Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB8
.3.pas program Lab8;
const a=1.4; b=2.5; h=0.4; x1=2; xn=6;
Var y,x:real;
Begin
x:=x1;
y:=(ln(a*sqr(x)+b))/(a*x+1);
writeln(y);
while x<=xn do
begin
x:=x+h;
y:=(ln(a*sqr(x)+b))/(a*x+1);
writeln(y);
end;
end.
const a=1.4; b=2.5; h=0.4; x1=2; xn=6;
Var y,x:real;
Begin
x:=x1;
y:=(ln(a*sqr(x)+b))/(a*x+1);
writeln(y);
while x<=xn do
begin
x:=x+h;
y:=(ln(a*sqr(x)+b))/(a*x+1);
writeln(y);
end;
end.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант