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.

Answer 1

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

Answer 2

Привет! Чтобы заменить цикл FOR на цикл REPEAT в данном коде, нужно сделать следующее:

1. Удалите строку "FOR I:=0 TO M DO" и замените ее на "I := 0;" перед началом цикла REPEAT. 2. Удалите строку "END;" после цикла FOR и замените ее на "UNTIL I > M;" после конца цикла 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; i := 0; repeat X := A + i * H; F := COS(1 / X); Writeln('X=', X:6:3, ',F(X)=', F:6:3); i := i + 1; until i > M; end.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.