Заменить цикл for на цикл repeat! ! program primer1; - вопрос №33610451 от dimа11 24.12.2021 05:12

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.

dimа11 · 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.