Алгоритмы и программы. Афанасьева Т. В - 80 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

80
a:=1;
b:=10;
k:=3;
while a<=b do
begin
x:=exp(k*ln(a));
writeln(a,'^3=',x:4:0);
a:=a+h
end;
end.
Пример 4.2. Табулирование функции y=sin(x) на отрезке [1, 5] с
шагом 0.5.
program tab1;
const
h:real=0.5;
var
x,a,b:real;
begin
writeln('Табулирование функции y=sin(x) на отрезке [1,5] с шагом 0.5');
a:=1;
b:=5;
x:=a;
while x<=b do
begin
y:=sin(x);
writeln('y=', y:2:1);
x:=x+h;
end;
end.
Пример 4.3. Сумма значений функции у=x
2
на отрезке [1, 5] c шагом 1.
program summa;
const h:real=1;
var
i,k:integer;
x,a,b,s:real;
begin
a:=1; b:=5;
x:=a; s:=0;
writeln('Сумма значений функции у=x^2 на отрезке [1,5] c шагом 1');
while x<=b do begin
y:=x*x;

Страницы