Помощь - Поиск - Пользователи - Календарь
Полная версия: Программа для вычисления значений функции.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Влад
7.12.2004 1:00
Помогите написать программу. :molitva:

Составить программу вычисления значений функции F(X) на отрезке [A,B] в точках Xi = A + iH , где H = (B – A)/M , M – заданное целое число.

Методические указания

1. для задания знеачений Х и соответствующих значений функции следует использовать простые переменные.
2. Значение шага Н должно вычислиться один раз.
3. при изменении значения аргумента Х испольовать оператор присваивания Х:=Х + Н , а не оператор с использованием операции умножения Х : = А + I * H , что существенно сокращает время выполнения программы.

ВАРИАНТ РАБОТЫ : Sin (X/4)/2

Параметры : А Pi/2
B Pi
M 15
volvo
7.12.2004 1:10
Самому не стыдно? Куда уже проще - ведь все расписано...
Код

const
 a = Pi / 2;
 b = Pi;
 m = 15;
var
 h, now: real;
 i: integer;
begin
 h := (b - a) / m;
 now := a;
 for i := 1 to m do
   begin
     writeln('x = ', now:6:3, ' F(x) = ', (sin(now/4) / 2):8:5);
     now := now + h
   end;
end.
Влад
7.12.2004 13:16
Я сам написал , только небыл уверен в правельности. Некодил 4 года, а сейчас начал...

Цитата
VAR H , X : Real;
        N : Integer;
BEGIN
clrscr;
H:=(Pi-Pi/2)/15;
X:=2;
FOR n:=1 to 16 do
BEGIN
writeln ('sin(',x:5:4,')=',(sin((x/4)/2)):5:4);
x:=x+h;
readln;
end;
end.
volvo
7.12.2004 14:04
Влад
Только откуда взялось
Код
X:=2;

Кроме этого, выражение:
Цитата
(sin((x/4)/2))

считает не Sin (X/4)/2, а Sin (X/8)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.