Решение циклических задач средствами языка Паскаль.

Теория.

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

Whileусловиеdo

begin

действия

end;

Цикл повторяется до тех пор, пока выполняется условие.

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

FORсчетчик: =начальное значениеTOконечное значениеDO

begin

действия

end;

Начальное значение счетчика должно быть меньше конечного. При каждом выполнении цикла значение счетчика увеличивается на единицу.

Примеры задач.

1. Вычислить значение функции для всех x от 0 до π с шагом π/6. Вывести все полученные значения.

Program funct;

Var x,y: real;

Begin

x:=0;

while x<=6.28 do

begin

y:=sin(x);

writeln(‘x=’,x:0:2, ‘ y=’,y:0:2);

x:=x+3.14/6

end;

End.

2. Вычислить

Program summa;

Var i: integer;

x,s:real;

Begin

writeln(‘введите x’);

readln (x);

s:=0;

for i:=1 to 15 do

begin

s:=s+x+sqr(i);

end;

writeln(‘s=’,s:0:2);

End.

3. Вычислить значения функции для x от -2 до 3 с шагом 0,4.

Program funct;

Var x,y: real;

Begin

x:=-2;

while x<=3 do

begin

if x>0

then y:=2*sqr(x)-3

else y:=abs(x-5);

writeln(‘x=’,x:0:2, ‘ y=’,y:0:2);

x:=x+0.4

end;

End.

4. Дано натуральное число n. Вычислить .

Program proiz;

Var i,n: integer;

p:real;

Begin

writeln(‘введите n’);

readln (n);

p:=1;

for i:=1 to n do

begin

p:=p*(i-2);

end;

writeln(‘p=’,p:0:2);

End.

5. Даны натуральные n и m. Вычислить

Program summa;

Var i,j,n,m: integer;

s:real;

Begin

writeln(‘введите n и m’);

readln (n,m);

s:=0;

for i:=1 to n do

for j:=1 to m do

begin

s:=s+i+j;

end;

writeln(‘s=’,s:0:2);

End.

Задания.

Студенты решают задачи на компьютерах по вариантам с помощью среды программирования PascalABC.