VPF::Табуляция - Форум программистов

RacerDeXakep

Дата 21.12.2008, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 9.4.2007

Репутация: нет
Всего: нет

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

Задание:

Выполнить табуляцию функции: sin(x)/x.
Диапазон изменения аргументов: А=–π/2 В= π/2
n=21

Код


Program LR13;
uses crt;
const a=-(PI/2); b=PI/2; n=21;
var i:integer;x,y,h:real;
function link(x:real):real;
begin
If (a>-(PI/2)) and (b<PI/2) then
link:=sin(x)/x;
end;
Begin
clrscr;
h:=(b-a)/n;
Writeln(' ----------------');
Writeln('|  I |  x  |  y  |');
Writeln(' ----------------');
For i:=1 to 21 do begin
x:=a+i*h;
y:=link(sin(x)/x);
writeln('| ', I:2,' |',x:4:1,' |',y:4:1,' |');
readln;
end;
end.

Metalex

Дата 22.12.2008, 00:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

RacerDeXakep, все вроде правильно, только здесь:

Цитата(RacerDeXakep @ 21.12.2008, 21:37

)

For i:=1 to 21 do
beginx:=a+i*h;
y:=link(sin(x)/x);
writeln('| ', I:2,' |',x:4:1,' |',y:4:1,' |');
readln;
end;

Цитата(RacerDeXakep @ 21.12.2008, 21:37

)

readln;

написано в середине цикла, поэтому придется после каждой пары чисел нажимать еnter, чтоб получить результат и это же

Цитата(RacerDeXakep @ 21.12.2008, 21:37

)

readln;

отсутствует перед

Цитата(RacerDeXakep @ 21.12.2008, 21:37

)

end.

--------------------

Don't let the system get you down.

RacerDeXakep

Дата 22.12.2008, 06:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 9.4.2007

Репутация: нет
Всего: нет

Спасибо большое!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »