Вычислить значения следующих функций f(x) на отрезке |а, ь] с шагом h, представив результат в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции: f(x)=ctgx+1 решить в паскале program z3_73; uses crt; var a,b,h,x,fx: real; begin clrscr; write('введите отрезок a,b='); read(a,b); write('введите величину шага h='); read(h); writeln(' x ',' fx '); x: =a; while x< =b do begin fx: =cos(x)/sin(x)+1; writeln(x: 2: 5,' ',fx: 5: 6); x: =x+h; end; readkey; end. while x< =b do-замените вот это на for
uses crt;
var
a, b, h, x, fx: Real;
i, n: integer;
begin
ClrScr;
Write('Введите отрезок a,b и величину шага h =');
Read(a, b, h);
Writeln(' x ':2, ' ', ' fx ':5);
x := a;
for i := 1 to round(abs(b - a) / h) do
begin
fx := cos(x) / sin(x) + 1;
writeln(x:2:5, ' ', fx:5:6);
x := x + h;
end;
Readkey;
end.