Программирование циклических алгоритмов

Программирование циклических алгоритмов §3.5

Операторы циклов

• С предусловием

• С постусловием

• С параметром

10) or (t 10) then writeln('YES') else writeln('NO') end. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (1, 2); (11, 2); (1, 12); (11, 12); (–11, –12); (–11, 12); (–12, 11); (10, 10); (10, 5). Сколько было запусков, при которых программа напечатала «YES»? " width="640"

var s, t: integer;

begin

readln(s);

readln(t);

if (s 10) or (t 10)

then writeln('YES')

else writeln('NO')

end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:

(1, 2); (11, 2); (1, 12); (11, 12); (–11, –12); (–11, 12); (–12, 11); (10, 10); (10, 5).

Сколько было запусков, при которых программа напечатала «YES»?

5) and (t 5)          then writeln('YES')          else writeln('NO') end. Было проведено 9 запусков программы, при которых в качестве значений переменных  s  и  t  вводились следующие пары чисел: (6, 8); (3, 5); (–7, 2); (7, 7); (9, 8); (–1, 3); (–4, 5); (6, 9); (2, –1). Сколько было запусков, при которых программа напечатала «YES»? " width="640"

var s, t: integer;

begin

     readln(s);

     readln(t);

     if (s 5) and (t 5)

         then writeln('YES')

         else writeln('NO')

end.

Было проведено 9 запусков программы, при которых в качестве значений переменных  s  и  t  вводились следующие пары чисел:

(6, 8); (3, 5); (–7, 2); (7, 7); (9, 8); (–1, 3); (–4, 5); (6, 9); (2, –1).

Сколько было запусков, при которых программа напечатала «YES»?

Цикл с предусловием ( ПОКА)

WHILE DO ;

НЕТ

условие

ДА

оператор

Вывести числа от 1 до 10

1 2 3 4 5 6 7 8 9 10

Вывести числа от 1 до 10

1 2 3 4 5 6 7 8 9 10

Program chislo ;

Var i:integer;

Begin

i:=1;

While i do

Begin

Write( i ,' ');

i:=i+1;

End;

End.

i:=1

i

Write(i)

i:=i+1;

10 End. i:=1 Write(i) i:=i+1; i10 " width="640"

Вывести числа от 1 до 10

1 2 3 4 5 6 7 8 9 10

Program chislo ;

Var i:integer;

Begin

i:=1;

repeat

Write( i ,' ');

i:=i+1;

until i10

End.

i:=1

Write(i)

i:=i+1;

i10

Вывести числа от 1 до 10

1 2 3 4 5 6 7 8 9 10

Program chislo ;

Var i:integer;

Begin

For i:=1 to 10 do Write( i ,' ');

End.

i:=1

Write(i)

Пример: Сосчитать сумму чисел от 1 до N .

Пример: Сосчитать сумму чисел от 1 до N .

Program sum ;

Var i,n,s:integer;

Begin

Writeln(‘ Введите n’);

Read(n);

S:=0; i:=1;

While i do

Begin

s:=s+i;

i:=i+1;

End;

Writeln(‘ Сумма чисел= ’,S);

End.

Пример: Составить таблицу значений функции y=x 2 +2 на отрезке [4;6] c шагом 0,4.

Program func ;

Const a=4; b=6; h=0.4;

Var x,y:real;

Begin

x:=a;

While x do

Begin

y:=sqr(x)+2;

Writeln(‘x=’,x:4:2,‘y=’,y:4:2);

x:=x+h;

End;

End.