Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста решить задачи паскаль))) оч нужно))
помогите пожалуйста решить задачи паскаль))) оч нужно))
1. Даны x,y,z. Вычислить a, b, если а=\frac{2cos(X-\Pi /6}{1/2+sin^{2}y}
b=1+\frac{z^{2}}{3+z^{2}/5}
2. Даны действительные числа a,b,c,d. Если a≤b≤c≤d, то каждое заменить наибольшим из них; если a>b>c>d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами. (Структурные операторы. Условный оператор)

3. Определить успеваемость ученика младших классов по 6 основным предметам (двоечник, троечник, хорошист, отличник). (Оператор варианта)

4. Найти все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 – остаток 2, при делении на 4 – остаток 3, а само число делится на 5.
(Цикл с параметром)
5. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (Цикл с предусловием.)

6. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (цикла с постусловием)
1 | Автор: PIt | 2012-05-07, 21:27   |  Репутация: [ + 0 ]
var
a:array[1..4]of integer;
i,max:integer;
begin
max:=low(max);
for i:=1 to 4 do begin
read(a[i]);
if a[i]>max then max:=a[i];end;
if (a[1]<=a[2])and(a[2]<=a[3])and(a[3]<=a[4]) then
for i:=1 to 4 do
a[i]:=max
else
if (a[1]>a[2])and(a[2]>a[3])and(a[3]>a[4]) then exit else
for i:=1 to 4 do
a[i]:=a[i]*a[i];
end.

Quote (PIt)
3. Определить успеваемость ученика младших классов по 6 основным предметам (двоечник, троечник, хорошист, отличник). (Оператор варианта)

Какие входные данные?

Quote (PIt)
4. Найти все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 – остаток 2, при делении на 4 – остаток 3, а само число делится на 5.


var
i:integer;
begin
for i:=100 to 999 do
if (i mod 2=1)and(i mod 3=2)and(i mod 4=3)and(i mod 5=0) then writeln(i,' ');
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-08, 15:28   |  Репутация: [ + 211 ]
насчет 3 . больше никаких данных
первая задача которую ты написал в паскалеABC не работает
3 | Автор: PIt | 2012-05-16, 23:46   |  Репутация: [ + 0 ]
Я знаю) Переходи на обычный, который ты можешь скачать на этом сайте:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-05-17, 09:10   |  Репутация: [ + 211 ]
ну а третю сможешь решить?))
5 | Автор: PIt | 2012-05-17, 12:32   |  Репутация: [ + 0 ]
Могу)

var
a:integer;
begin
readln(a);
if a=2 then writeln('Двоечник');
if a=3 then writeln('Троечник');
if a=4 then writeln('Хорошист');
if a=5 then writeln('Отличник');
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-05-18, 09:08   |  Репутация: [ + 211 ]
решите пожалуйста задачи :
1)Найти наименьший элемент матрицы М(3,3)
и
2)Дана матрица А(N,N). Переменной В присвойте значение, равное количеству строк матрицы А, содержащих хотя бы одну нулевую компоненту.
Спасибо заранее:)
7 | Автор: norka | 2012-05-24, 17:36   |  Репутация: [ + 0 ]
1.
var
a:array[1..3,1..3]of integer;
i,j,m:integer;
begin
m:=high(m);
for i:=1 to 3 do
for j:=1 to 3 do begin
read(a[i,j]);
if m>a[i,j] then m:=a[i,j];end;
writeln(m);
end.

2.
var
a:array[1..100,1..100]of integer;
i,j,b,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then begin b:=b+1;i:=i+1;j:=1;end;
writeln(b);
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
8 | Автор: Berestovskiy | 2012-05-24, 18:01   |  Репутация: [ + 211 ]
еще пожалуйста:))решите пожалуйста)вы мое спасение:)
1)Заданную строку А перепишите в обратном порядке в строку В.
и
2)Найдите самое длинное и самое короткое слово в заданном предложении

Репутацию я вам подниму:)))я в контактах буду размещать ваш электронный адрес:)

Добавлено (24.05.12, 21:18)
---------------------------------------------
пожалуйста решите(((

Добавлено (24.05.12, 21:22)
---------------------------------------------
решите пожалуйста((((

Добавлено (27.05.12, 21:29)
---------------------------------------------
1)Заданную строку А перепишите в обратном порядке в строку В.
и
2)Найдите самое длинное и самое короткое слово в заданном предложении

9 | Автор: norka | 2012-05-27, 21:29   |  Репутация: [ + 0 ]
Не надо нудить.

1)
Code

len:=length(a);\\запоминаем длину строки

for i:=1 to len do
  b[i]:=a[len-i+1]


2)
Code

a:=pos(' ', s);\\ищем первый пробел
min:=a;
minstr:=copy(s,1,a);\\запоминаем первое слово, по умолчанию оно самое короткое
max:=a;
maxstr:=copy(s,1,a);\\и самое длинное
delete(s,1,a);\\удаляем слово

repeat
  a:=pos(' ', s);
  if min>a then\\если найденное слово меньше, то запоминаем его
   begin  
    min:=a;
    minstr:=copy(s,1,a);
  end;
  if max<a then \\аналогично
   begin  
    max:=a;
    maxstr:=copy(s,1,a);
  end;
  delete(s,1,a);
until a<>0;\\продолжаем до тех пор пока не останется пробелов в строке
if min>s then minstr:=s;\\если оставшееся слово меньше запоминаем его
if max<s then minstr:=s;\\если больше

может с первого раза не заработать, компилятора под рукой нет.

И для комментирования я наверное не те слэши поставил, надо в другую сторону.
10 | Автор: Fireleo | 2012-05-28, 08:18   |  Репутация: [ + 30 ]
Насчёт слэшей - прав)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
11 | Автор: Berestovskiy | 2012-05-28, 09:48   |  Репутация: [ + 211 ]
5. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (Цикл с предусловием.)

6. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (цикла с постусловием)

помогите пожалуйста решить...
12 | Автор: PIt | 2012-06-03, 14:07   |  Репутация: [ + 0 ]
Что именно не можешь сделать?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
13 | Автор: Berestovskiy | 2012-06-03, 14:14   |  Репутация: [ + 211 ]
ну обе эти задачи)
14 | Автор: PIt | 2012-06-03, 14:28   |  Репутация: [ + 0 ]
Ну я понял)
Так нужно что-бы ты научился хоть чему-то)
Ты вообще что-нибудь в паскале понимаешь?)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
15 | Автор: Berestovskiy | 2012-06-03, 15:30   |  Репутация: [ + 211 ]
Да еслиб понимал, не просил бы)) Ну мне просто курсач сдать надо )) оч прям))

Добавлено (07.06.12, 01:08)
---------------------------------------------
поможешь мне с этими задачами??

16 | Автор: PIt | 2012-06-07, 01:08   |  Репутация: [ + 0 ]
Помогу, как будет время

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
17 | Автор: Berestovskiy | 2012-06-07, 04:57   |  Репутация: [ + 211 ]
ну буду ждать
18 | Автор: PIt | 2012-06-17, 00:35   |  Репутация: [ + 0 ]
ок)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
19 | Автор: Berestovskiy | 2012-06-17, 21:38   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста решить задачи паскаль))) оч нужно))
  • Страница 1 из 1
  • 1
Поиск: