Как переделать программу на "цикл с предусловием"

@Alexa20 · Регистрация: 26.05.2011

Author24 — интернет-сервис помощи студентам

С помощью цикла for переделать алгоритм решения на "цикл с предусловием", и потом посмотреть будет она работать или нет. Программу можно составить любую.

@ProofX · 09.06.2011, 22:00

Вот тебе с циклом FOR

Pascal

program ProofX;
uses crt;
var
y:real;
x:integer;
begin
 Clrscr;
 Writeln('X        F(X)');
 For x:=0 to 4 do
 begin
  y:=sqr(x)-3*x+2;
  writeln(x,'       ',y:5:3);
 end;
 readln;
end.

Вот тебе с предусловием While

Pascal

program ProofX;
uses crt;
var
y:real;
x:integer;
begin
 Clrscr;
 Writeln('X        F(X)');
 while x<>4 do
 begin
  y:=sqr(x)-3*x+2;
  x:=x+1;
  writeln(x,'       ',y:5:3);
 end;
 readln;
end.

Если просто изменить For на While работать будет, но не совсем правильно.

Если помог тыкни + )

@Alexa20 0 / 0 / 0 Регистрация: 26.05.2011 Сообщений: 8
		1
	Как переделать программу на "цикл с предусловием" 09.06.2011, 14:00. Показов 1253. Ответов 1 Метки нет (Все метки) С помощью цикла for переделать алгоритм решения на "цикл с предусловием", и потом посмотреть будет она работать или нет. Программу можно составить любую. 0

	09.06.2011, 22:00

Как переделать программу на "цикл с предусловием"

Решение