Построение таблицы значений функции y=sin(x) на Pascal

Построение таблицы значений функции y=sin(x) на отрезке 0<=x<=1 c шагом h=0.1 на Pascal

Program tabl; {таблица значений sin(x)}
uses crt;
const h=0.1 ;
var x,y:real;

begin
textcolor(5);
textbackground(10);
clrscr;
writeln(‘таблица’);
writeln(‘ x sinx’ ) ;
writeln(‘—————‘);
x:=0;
repeat;
writeln(‘! ‘,x:3:1,’ ! ‘ ,sin(x):10:7,’ ! ‘);
x:=x+h;
until x>1;
end.

Пояснения
Результатом работы программы будет:

x sin x
0.0 0.0000000
0.1 0.0998334
0.2 0.1986693
0.9 0.7833269


Оставить комментарий





Статистика

Рейтинг@Mail.ru