Цикл с параметром

uses Crt;

var x: integer; y: real;

Begin

ClrScr;

writeln (' x y = 2 * x + 5 ');

writeln (' ------------- ');

for x:= -5 to 5 do

Begin

y:= 2 * x + 5;

writeln (x, ' ', y: 5: 2);

end;

readln;

end.

Цикл с предусловием

uses Crt;

var x: integer; y: real;

Begin

ClrScr;

writeln (' x y = 2 * x + 5 ');

writeln (' ------------- ');

x:= -5;

while x<= 5 do

Begin

y:= 2 * x + 5;

writeln (x, ' ', y: 5: 2);

x:= x + 1;

end;

readln;

end.

Цикл с постусловием

uses Crt;

var x: integer; y: real;

Begin

ClrScr;

writeln (' x y = 2 * x + 5 ');

writeln (' ------------- ');

x:= -5;

Repeat

y:= 2 * x + 5;

writeln (x, ' ', y: 5: 2);

x:= x + 1;

until x > 5;

readln;

end.

1. Ход работы

4.1 Разработать алгоритм программы на языке блок-схем и на языке программирования (см Приложение 1).

Протестировать программу, результаты работы программы представить в отчете

Дополнительное задание. Разработать алгоритм решения задачи на языке блок-схем и программу на языке Turbo Pascal (см. Приложение 2)

1. Вывод

1. Контрольные вопросы