Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
17
Добавлен:
08.06.2015
Размер:
217 б
Скачать
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.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант