ЦИКЛЫ НА ПАСКАЛЬ.ЗАДАНИЯ№9 В ОГЭ ПО ИНФОРМАТИКЕ 2017г.

шисок значений 2: оператор 2;

список значений п: оператор п;

SLSE оператор;

END;

В списках значений допустимыми являются целые и некоторые другие гипы переменных (кроме вещественного и строкового). Оператор ELSE в неполной форме записи может отсутствовать.

Закрепим тему на примерах.

Пример 1. По введённым с клавиатуры номеру месяца, распечатать время года.

Решение: program vremena; uses crt; var iiinteger; begin clrscr;

\¥гке('Введите месяц года:');

read(i);

case i of

12,1,2: writeln('3HMa');

3,4,5 :writeln('BecHa');

6..                 8:writeln('JIeTo');

9..                                                    11    :writeln('OceHb');

else writeln('HeT такого месяца'); end; readkey; end.

Пример 2. Составить программу простейшего телефонного справочника на несколько номеров. Заметим, что оператор CASE работает только с целыми числами типа INTEGER, поэтому телефонные номера будут четырёхзначными.

Решение: program telephon; uses crt; var i: integer; begin clrscr;

writeln('Bведите номер телефона');

read(i);

case i of

2935: \Угке1п('Юля, ул. Энгельса 879 кв. 546');

12 2961: writeln('Абдурахман, пр. Акушинского 111 кв. 888');

8539: \угке1п('Махмуд , домашний адрес засекречен');

6444: writeln(‘MyKa, сахар, ул. Бапбесова 1, кв.О, ’);

else writeln('B этом справочнике нет такого номера ');

end;

readkey

end.

Задания для самостоятельного решения:

Операторы, для выполнения заданий выбрать самостоятельно.

1.       Напишите программу, которая переводит пуды в килограммы, если известно, что в одном пуде 16 килограмм.

2.       Напишите программу вычисления площади и длины окружности. Заметим, что эти величины отрицательными не бывают.

3.       По введённой с клавиатуры десятичной цифры, распечатайте его двоичный код.

4.       По введённой с клавиатуры двоичного кода, распечатайте его десятичную цифру.

^ЦИКЛЫ.

Циклом называется операция, в которой одни и те же действия повторяются многократно. В Турбо Паскале существуют следующие виды операторов цикла:

1) Цикл с параметром. 2) Цикл с предусловием. 3) Цикл с постусловием. Начнём с цикла с параметром, его иногда называют циклом со счётчиком. Он используется, когда известно количество циклов.

Цикл с параметром <FOR>. Формат записи:

FOR n:=nl ТО n2 DO <оператор>

Здесь: FOR /для/ - служебное слово;

п - параметр цикла, переменная целого типа;

ТО /до/ - служебное слово;

nl - начальное значение параметра цикла;

п2 - конечное значение параметра цикла;

DO /делать/ - служебное слово;

<оператор> - тело цикла;

Оператор тела цикла выполняется несколько раз от nl до п2 с шагом (+1). Например:

FOR п:= 3 ТО 7 DO WRITELN(n, SQR(n)); этот оператор цикла будет выводить в окно результатов следующие значения:

3         9

4         16

5         25

6       36

7       49

Если в теле цикла нужно использовать несколько операторов, то используют составной оператор BEGIN <оператор 1; оператор 2; ....> END; (Операторные скобки).

Например: FOR п:=1 ТО 5 DO BEGIN

s:=s+n;

р:=р*п;

k:=k+SQR(n);

END;

Существует модификация цикла, когда начальное значение nl больше конечного п2, тогда цикл изменяется с шагом (- 1). Такой цикл имеет вид: FOR n:=nl DOWNTO n2 DO <оператор>.

Здесь: DOWNTO /вниз до/ - служебное слово; nl > п2. ).

Например: FOR n:=6 DOWNTO 3 DO WRITE(n);

Этот оператор цикла будет выводить следующие значения: 6 5 4 3.

В программировании циклических структур могут встречаться вложенные циклы. Это когда одни циклы вложены в другие. Например:

FOR а:=1 ТО 2 DO - внешний цикл.

FOR b:=3 ТО 4 DO - второй вложенный цикл FOR с:=5 ТО 6 DO - первый вложенный цикл

WRITELN(a, b, с);

Такая программа будет выводить следующий результат:

1 3 5 1 3 6 1 4 5

1       4 6

2       3 5 2 3 6 2 4 5 2 4 6

В математических примерах и задачах могут использоваться знаки

5

и произведения

п-1

означает сложить числа от n = 1 до числа 5, т. е. n = 1+2+3+4+5, а запись

Пл

X X , означает умножить числа от n = 1 до числа 5, т. е. n = 1 *2*3*4*5. п=1

В примерах и задачах указывается, с каким шагом суммируются или перемножаются числа, но, если шаг не указан, то он равен 1.

Закрепим тему на примерах.

Пример 1. Распечатать квадраты целых чисел от 1 до 10.

Решение:

Program chisla;

Uses crt;

Var n : integer;

Begin clrscr;

For n:= 1 to 10 do writeln(n:2, sqr(n):5);

Readkey

End.

Пример 2. Распечатать факториал числа 10!. Заметим, что факториалом называется произведение натуральных целых чисел, начиная с единицы. Обозначается факториал так < п! >, т.е. число 10! это произведение чисел 10!= 1*2*3*4*5*6*7*8*9*10.

Решение: program factorial; uses crt; var n: integer;

f: real; begin clrscr; f:=l;

for n:=l to 10 do f:=f*n;

writeln(n,'!-,f:7:0);

readkey

end.

Пример 3. Распечатать факториал числа 1754!. Для решения этого примера возьмём тип EXTENDED из таблицы 2 с подключением математического сопроцессора.

Решение:

{$N+}      { - подключение математического сопроцессора}

program factorial; uses crt; var I: integer;

f: extended; begin clrscr;

f:=l;

for i:=l to 1754 do begin f:=f*i;   {- счётчик факториалов}

writeln(i,' ’,f);      { - вывод результатов}

end;

readkey;

end.                                                                                                                            -

Здесь, число 1754 это максимальное число вычислений факториалов.

Пример 4. Распечатать слово «Школа» в 5 строк и 6 колонок. Для решения этой задачи используем вложенные циклы.

Решение: program schoole_; uses crt;

var i, j : integer; begin clrscr; for i:=l to 5 do begin for j:=l to 6 do begin

\угке('111кола10);      {- печатает 6 строк}

end;

writeln; {прерывает строку для печати с новой строки} end; readkey end.

Пример 5. Найти четырёхзначные числа, где сумма первых двух цифр равна сумме двум последним. Например, число 1322, это 1+3 = 2+2. В этой задаче воспользуемся вложенными циклами, чтобы разложить четырёхзначные числа на цифры.

Решение:

Program chisla;

Uses crt;

Var il, i2, i3, i4 : integer;

Begin clrscr;

For il:=l to 9 do

For i2:=0 to 9 do

For i3:=0 to 9 do

For i4:=0 to 9 do 1 £

If il + i2 = i3 + i4 then writeln(il, i2, i3, i4);

Readkey

End.

100

.<? -

Пример 6. Вычислить

m=1

Решение:

program summa; uses crt; var s,m: integer; begin clrscr; s:=0;

for m:=l to 100 do s:=s+m; writeln('CyMMa чисел = ',s); readkey end.

Задания для самостоятельного решения:

Вычислить:

²⁰

l)^[1] = Z”;            2)^{S  =}   X^n!;

/1=5                                                                n=5

3) s = Yj(^sin(*) + cos(x)); _A)P = \\t²

x=—5                                                              t=2

1) Цикл с параметром. 2) Цикл с предусловием. 3) Цикл с постусловием. Начнём с цикла с параметром, его иногда называют циклом со счётчиком. Он используется, когда известно количество циклов.

Цикл с параметром <FOR>. Формат записи:

FOR n:=nl ТО n2 DO <оператор>

Здесь: FOR /для/ - служебное слово;

п - параметр цикла, переменная целого типа;

ТО /до/ - служебное слово;

п1 - начальное значение параметра цикла;

п2 - конечное значение параметра цикла;

DO /делать/ - служебное слово;

<оператор> - тело цикла;

Оператор тела цикла выполняется несколько раз от nl до п2 с шагом (+1). Например:

FOR п:= 3 ТО 7 DO WRITELN(n, SQR(n)); этот оператор цикла будет выводить в окно результатов следующие значения:

3          9

4          16

5          25

6          36

7          49

Если в теле цикла нужно использовать несколько операторов, то используют составной оператор BEGIN <оператор 1; оператор 2; ....> END; (Операторные скобки).

Например: FOR п:=1 ТО 5 DO BEGIN s:=s+n; p:=p*n; k:=k+SQR(n);

END;

Существует модификация цикла, когда начальное значение nl больше конечного п2, тогда цикл изменяется с шагом (- 1). Такой цикл имеет вид:

FOR n:=nl DOWNTO n2 DO <оператор>.

Здесь: DOWNTO /вниз до/ - служебное слово; nl > п2.

Например: FOR n:=6 DOWNTO 3 DO WRITE(n);

Этот оператор цикла будет выводить следующие значения: 6 5 4 3.

В программировании циклических структур могут встречаться вложенные циклы. Это когда одни циклы вложены в другие. Например: FOR а:=1 ТО 2 DO - внешний цикл.

FOR b:=3 TO 4 DO - второй вложенный цикл FOR c:=5 TO 6 DO - первый вложенный цикл WRITELN(a, b, с);

Такая программа будет выводить следующий результат:

1 3 5 1 3 6 1 4 5

1    4 6

2    3 5 2 3 6 2 4 5 2 4 6

В математических примерах и задачах могут использоваться знаки

и произведения

. Например, такая запись

, означает сложить числа от n = 1 до числа 5, т. е.

5

 

числа 5, т. е. n = 1 *2*3 *4*5. В примерах и задачах указывается, с каким шагом суммируются или перемножаются числа, но, если шаг не указан, то он равен 1.

Закрепим тему на примерах.

Пример 1. Распечатать квадраты целых чисел от 1 до 10.

Решение:

Program chisla;

Uses crt;

Var n : integer;

Begin clrscr;

I'or ii:    I to 10 do writeln(n:2, sqr(n):5);

Readkey I I к I

ll/mu, f> : Распечатать факториал числа 10!. Заметим, что факториалом на h i и " ■' I прои тсдепис натуральных целых чисел, начиная с

---

[1] Задача: Найти трёхзначные числа, сумма кубов циф^> которых равна самому числу. Например: трёхзначное число 407 = 4' + 0 + 7 .