Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 31 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

30
s:=s+slag;
end;
writeln(’!’,x:7:2,’ !’,y:7:3,’ !’,s:7:3,’ !’);
x:=x+h;
end;
Далее остается лишь написать пустой оператор ввода readln для задержки
результатов на экране.
readln;
end.
Ниже представлен полный текст программы.
program lab4;
const n=10;
h=0.05;
var i:byte;
x,y,s,slag:real;
Begin
writeln;
writeln(’ Автор – Иванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант № 100’);
writeln(’ Программа табулирования функции y=3^x, а также суммы
ряда ’);
writeln(’ ln(x) ln(x)^2 ln(x)^n ’);
writeln(’s= 1 + -----x + -------x^2 + ... +--------x^n’);
writeln(’ 1! 2! n!’);
writeln(’на отрезке [0.1;1] с шагом 0.05’);
writeln;
writeln (’! x ! y ! s !’);
x:=0;
while x<1+h do
begin
y:=exp(x*ln(3));
s:=1; {Начальное значение суммы, включая нулевое слагаемое}
slag:=1; {Значение нулевого слагаемого}
for i:=1 to n do
begin
slag:= slag*ln(3)/i*x;
s:=s+slag;
end;
writeln(’!’,x:7:2,’ !’,y:7:3,’ !’,s:7:3,’ !’);
x:=x+h;
end;
readln;
end.

Страницы