Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

паскаль см. вложение

циклы

Ответ оставил Гость

var
a, b, c, xn, xk, h, f: Real;
begin

Write(Введите Xn: ); Readln(xn);
Write(Введите Xk: ); Readln(xk);
Write(Введите шаг H: ); Readln(h);
Write(Введите a: ); Readln(a);
Write(Введите b: ); Readln(b);
Write(Введите c: ); Readln(c);


while xn <= xk do
begin
if (c < 0) and (b <> 0) then
f := a * sqr(xn) + sqr(b) * xn
else if (c > 0) and (b = 0) then
f := (xn + a) / (xn + c)
else
f := xn / c;

Writeln(xn:0:3, | , f:0:3);  // таблицу сам оформишь

xn := xn + h;
end;

Readln;
end.