Программа
Program Pilshikov_5_20 (input,output);
{ Напечатать таблицу значений функций
sin(x) и cos(x) на отрезке [0,1]
с шагом 0.1 }
Const
FirstPoint=0;
FinalPoint=1;
Step=0.1;
m=8;
n=4;
Var
x:real;
QuantityStep:integer;
BEGIN
x:=FirstPoint;
QuantityStep:=0;
writeln('x ':m,'sin(x)':m,'cos(x)':m);
writeln(' ----------------------');
while x<=FinalPoint do Begin
writeln(x:m:n,sin(x):m:n,cos(x):m:n);
QuantityStep:=QuantityStep+1;
x:=FirstPoint+QuantityStep*Step
End
END.
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию