Здравствуйте! Помоги пожалуйста заменить цикл 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:=CO...
Здравствуйте! Помоги пожалуйста заменить цикл 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.
Гость
Ответ(ы) на вопрос:
ГостьДержи.делайте отступы,с отступами код более понятнее
Не нашли ответ?
Похожие вопросы