помогите решить задачи ПО циклам Опции

[Грихан]

помогите решить задачи ПО циклам
1 Найти произведение нечётных чисел от 1 до 21
2 Вывести таблицу значений функции Y=SIN(X) ГДЕ x=[90,180]
3 Вывести множество 25 значений функции Y=2X/(SQRT A*B)
4 Вывести множество 15 значений функции Y=A*X*X+B*X ГДЕ X=-2,h=0.5
5 Вывести таблицу значений функции Y=COS(X) где x=[90,180] ,h=15

Сообщение отредактировано: volvo - 21.01.2005 20:56

[AlaRic]

Вот тебе первая:

program chisla;
const n=21;
var
  i:longint;
  s:real;
begin
  s:=1;
  for i:=1 to n do
    if odd(i)=true then s:=s*i; {odd проверяет нечетно ли число}
  writeln('Answer ',s:15:1);
end.

При тестировании вначале выдавала неправильный результат из-за ограниченности типа integer(переменная s), как только поменял на real - все заработало!

[Chester]

IF ODD(i)=true then...
ODD(i) проверяется на верность (т.е. на TRUE), так что можно писать без "=true"
А вообще почти такие же примеры есть на сайте.

[AlaRic]

Это чтоб понятно было