Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите решить задачи ПО циклам

Автор: Грихан 13.03.2004 19:28

помогите решить задачи ПО циклам
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

Автор: AlaRic 14.03.2004 16:48

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

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 15.03.2004 17:10

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

Автор: AlaRic 15.03.2004 19:02

Это чтоб понятно было smile.gif