Кто нибудь, пожалуйсто решите эти задания!
Линейные программы.
Вычисление по формулам. Вычислить значение выражения по формуле (все
переменные принимают действительные значения):
((x+y)/(y+1))-((xy-12)/(34+x))
Развилка.
Даны три числа а,в,с. Определить, какое из них равно d.Если ни одно не
равно d,то найти max(d-a,d-b,d-c)
Циклы.Ряды.
Дано натуральное число N Вычислить
(cos1/sin1)*(cos1+cos2)/(sin1+sin2)...(cos1+cos2+...+cosN)/(sin1+sin2+...+sinN)
Одномерные массивы.
Дана последовательность действительных чисел а1,а2,...ан.Выяснить,
будет ли она возрастающей.
Благодарю заранее!!!
1.
var
z,x,y:real;
begin
read(x,y);
z:=((x+y)/(y+1))-((xy-12)/(34+x));
write(z);
end.
2.
var
a,b,c,d, max:integer;
begin
read(a,b,c,d);
if (a<>d)and(b<>d)and(c<>d) then
begin
max:=d-a;
if (max<(d-b)) then max:=d-b;
if (max<(d-c)) then max:=d-c;
write('max=',max);
end
else
begin
if (a=d) then writeln('a=d');
if (b=d) then writeln('b=d');
if (c=d) then writeln('c=d');
end;
end.
! | Таня, ты уже должна знать правила, но ошибки повторяешь! Из уважения к ответившим я не удаляю тему. В следующий раз последует мгновенное удаление с понижением твоего рейтинга. Срочно измени название темы И не пость по нескольку задач в одну тему |
! | Тема закрыта ввиду полного игнорирования автором Правил Форума и указаний Администрации. |