Практические работы по программированию циклов

Результат набора и отладки программ:

Программа Summ_1 (цикл с предусловием)

Program Summ_1;

Var S, Eps: Real;

I: Integer;

Begin

S: =0;

I: =1;

While (1/I > = Eps) And (I< MaxInt) Do

Begin

S: = S + 1/I;

I: = I + 1

End;

WriteLn('S= ', S, ' I= ', I)

End.

Программа Summ_2 (цикл с постусловием)

Program Summ_2;

Var S, Eps: Real;

I: integer;

Begin

S: =0;

I: =1;

Repeat

S: = S+1/I;

I: =I+1

Until (1/I < Eps) Or (I> = MaxInt);

WriteLn ('S= ', S, ' I= ', I);

End.

Программа Adding (структура цикла «Пока»)

Program Adding;

Var I, M, N, Summa: Integer;

Begin

Write (‘M= ‘);

ReadLn(M);

Write (‘N= ‘);

ReadLn(N0;

Summa: = 0;

I: = M;

While I < = N Do

Begin

Summa: = Summa + I;

I: = Succ(I0

End;

WriteLn (‘Сумма равна’, Summa)

End.

Программа Summering_2 (цикл по параметру)

Program Summering_2;

Var I, M, N, Summa: Integer;

Begin Write ('M= ');

ReadLn(M);

Write('N= ');

ReadLn(N);

Summa: =0;

For I: =M To N Do

Summa: = Summa+I;

WriteLn('Summa Ravna ', Summa: 8)

End.

Программа Summering_3 (цикл по параметру в обратном порядке)

Program Summering_3;

Var I, M, N, Summa: Integer;

Begin Write ('M= ');

ReadLn(M);

Write('N= ');

ReadLn(N);

Summa: =0;

For I: =N DownTo M Do

Summa: = Summa+I;

WriteLn('Summa Ravna ', Summa: 8)

End.

Упражнение 4

Составить программу, по которой последовательность символов будет вводиться до тех пор, пока не встретится строчная или прописная латинская буква «z». Подсчитать, сколько раз среди вводимых символов встретится буква «W».

Program Sim;

Var S: Integer;

I: Char;

Begin

S: = 0;

Repeat

Read (I);

If I='W'

Then S: = S+1

Until (I='Z') Or (I='z');

Write ('W=', S);

End.

Упражнение 6

Вычислить число точек с целочисленными координатами, попадающих в круг с радиусом и с центром в начале координат.

Program Chislo_tochek;

Var M, K, x, y, R: Integer;

Begin

R: =1;

For y: =-R To R Do

For x: =-R To R Do

If sqr(x) + sqr(y) < =sqr(R)

Then K: = K+1;

Write (' K=', K);

End.