Заменить цикл for на цикл repeat! ! program primer1; - вопрос №13361445 от foxheb57 04.04.2023 07:45

Question

Информатика: Заменить цикл for на цикл repeat! ! program primer1; uses crt; const a=pi/4; b=4/pi; m=20; var f,h,x: real; i: integer; begin clrscr; h: =(b-a)/m; for i: =0 to m do begin x: =a+i*h; f: =cos (1/x); writeln ( x= , x: 6: 3, ,f(x)= ,f: 6: 3); end; end.

foxheb57 · Answer

Держи.делайте отступы,с отступами код более понятнее...

Заменить цикл for на цикл repeat! ! program primer1; uses crt; const a=pi/4; b=4/pi; m=20; var f,h,x: real; i: integer; begin clrscr; h: =(b-a)/m; for i: =0 to m do begin x: =a+i*h; f: =cos (1/x); writeln ('x=', x: 6: 3,',f(x)=',f: 6: 3); end; end.