Циклические программы на Паскале Оператор перехода goto. Цикл. Метки

Пред­положим, мы хотим, чтобы компьютер бесконечно повторял вы­полнение следующего фрагмента: Write ('Это '); Write ('тело '); Write ('цикла'); Write (‘ ‘)

в результате чего на мониторе мы бы увидели:

Это тело цикла Это тело цикла Это тело цикла Это тело цикла...

Большинство языков программирования (в том числе и Пас­каль) устроены так, что операторы выполняются в том порядке, в котором они записаны. Это значит, что после оператора Write ('Это ') обязательно выполнится оператор Write ('тело '), а после него -Write ('цикла'), а после него - Write (' '). Все это хорошо. Но нам нуж­но, чтобы после выполнения оператора Write (' ') Паскаль нарушал этот свой принцип последовательного выполнения операторов и выполнял бы оператор Write ('Это '). Если мы этого добьемся, то дальше все пойдет само собой, так как после Write ('Это ') Паскаль автоматически выполнит Write ('тело ') и так далее до бесконечности.

Если бы операторы Паскаля можно было писать по-русски, то для достижения нашей цели было бы естественно воспользоваться такой конструкцией:

метка m1: Write ('Это'); Write ('тело '); Write ('цикла'); Write (' '); иди к оператору, помеченному меткой m1
Здесь мы видим новый для нас "оператор" ИДИ, который вы­полняется после Write (' ') и единственная работа которого заключа­ется в том, чтобы заставить компьютер перескочить к выполнению оператора Write ('Это '), помеченного меткой m1.

А вот как этот фрагмент выглядит реально на Паскале:

m1: Write ('Это'); Write ('тело '); Write ('цикла'); Write (' ');

Goto m1

END.
Для прерывания работы программы (в том числе и зациклившейся) существует комбинация клавиш Ctrl-Break
Группа операторов, выполняющихся многократно, называется телом цикла.

У нас это все операторы начиная с Write ('Это ') и кон­чая GOTO m1.

k:=6; a=100;

goto 8;

a:=a+k; k=2*k WriteLn(a);

END.

Почему операторы a=a+k; k:=2*k; WriteLn(a) выполнены не будут вообще, несмотря на то, что написаны?

 Задания 1-3 Написать программы для выполнения следующих заданий:

1. Бесконечно печатать букву А: ААААААААААА.....

2. Бесконечно печатать 1000 999 998 997 996 ......

3. Бесконечно печатать 100 50 25 12.5... с восьмью десятичными знаками.

1. 
   напечатать 10 раз букву А
   

Label g1;

Var t: integer;

Begin

g1: if t <=10 then WriteLn (‘A’);

t := t+1;

Goto g1;

End.

• 
  Обозначьте блок, являющийся телом цикла.
  

• 
  Выведите на экран букву и её номер.
  

2. 
   напечатать последовательность чисел 1000 999 … 0
   
3. 
   100 50 25 12.5 …0
   

• 
  Задания 4 -7
  
1. 
   При помощи цикла напечатать на экране: Начало счета 3 5 7 9 Конец счета
   
2. 
   Напечатать 1 2 3 4... 99 100 99... 3 2 1.
   
3. 
   "Таблицы Брадиса". Вычислить и напечатать с шестью деся­тичными знаками квадраты чисел 0.000 0.001 0.002 0.003 . . . 0.999 1.000.
   
4. 
   Для х = 2700, 900, 300, 100... и т. д. вычислять и печатать у = х/4 +20 и z = 2у + 0.23 до тех пор, пока yz не станет меньше 1/х.
   

3.3. Оператор цикла repeat.

Тело цикла

f=3;

f:=f+2;

m2: Write(′ Конец счета’)

Порядок работы обеих программ совершенно одинаков, так что можно считать слово repeat заменой метки m1, а конструкцию until f>9 считать заменой оператора if f>9 then goto m2 else goto m1.

Более подробно работа оператора repeat описывается так:

1. 
   Придумайте переменную, в которую человек с клавиатуры будет вводить слово____________
   
2. 
   Запишите операторы тела цикла ____________________________
   
3. 
   Определите условие _____________________________
   
4. 
   Составьте и наберите программу.
   

WriteLn('Bведите слово');

Readln(Slovo);

Writeln(Slovo, '!')

Slovo=′Хватит’;

 Задание 8

Усложним предыдущую задачу. Пусть компьютер перед распе­чаткой каждого слова ставит его порядковый номер.

3адания 9-10

Выполнить с применением оператора repeat последние два за­дания из предыдущего раздела.

Если камень бросить горизонтально со 100-метровой башни со скоростью v = 20 м/с, то его расстояние от башни по горизонтали (s) будет выражаться формулой s = vt, где t - время полета камня в секундах. Высота над землей h будет выражаться формулой h = 100 - 9.81t²/2 . Вычислять и печатать t, s и h для t = 0, 0.2, 0.4, 0.6 и так далее до тех пор, пока камень не упадет на землю.

нет

Тело цикла

Write ('Начало счета '); Write ('Начало счета ');

f=3; f:=3;

m1: if f<=9 then goto m3 while f<=9 do

else goto m2; begin

m3: Write(f,′ ′); Writer (f,′ ′);

f=f+2; f=f+2;

goto m1; end;

m2: Write(' Конец счета) Write (′Конец счета′)

• компьютер выходит из цикла оператора repeat тогда, когда усло­вие истинно, а из цикла оператора while - когда условие ложно;

• while может ни разу не выполнить оператор, стоящий после do;

repeat же хотя бы раз операторы, стоящие между repeat и until, выполнит.

• при компиляции оператор while дает несколько более эффектив­ную программу, чем оператор repeat.

Вычислять с использованием while квадратные корни из чисел 900,893, 886, 879 и т. д. до тех пор, пока это можно делать.

Начальное значение счетчика

нет

Тело цикла

Следующие значение счетчика

Но здесь цикл будет повторяться бесконечно, а нам надо только 200 раз.

I:=1;

i:=i+1 {увеличение i на 1}

END.

m1 if i>200 then goto m2

WriteLn (′ФУТБОЛ′)

i=i+1

m2

Конструкция for i:=1 to 200 do читается так:

Имя - это имя произвольной переменной порядкового типа, в частности целочисленной переменной, назы­ваемой переменной цикла;

• 
  Усложним задачу. Пусть компьютер печатает букву и ее номер.
  
• 
  Какую функцию выполняет счетчик в этой задаче?
  

 3адание 14 Напечатать с помощью операторов for: