Занятие №1.

Тема:

• Вывод на экран

• Организация цикла

• Программные скобки

Программа №1. Вывод сообщения:

var

   i: integer;

begin

    writeln('Hello world!');

end.

Программа №2. Вывод сообщения в цикле:

var

   i: integer;

begin

     for i:=1 to 10 do

         writeln('Hello world!');

end.

Программа №3. Вывод сообщения в цикле for:

var

   i: integer;

begin

     for i:=1 to 10 do

         writeln(i, ' строка');

         writeln('Hello world!');

end.

Результат работы программы №3:

1 строка
2 строка
3 строка
4 строка
5 строка
6 строка
7 строка
8 строка
9 строка
10 строка
Hello world!

Программа №4. Вывод сообщения в цикле с использованием операторных скобок begin-end:

var

   i: integer;

begin

     for i:=1 to 10 do

     begin

         writeln(i, ' строка');

         writeln('Hello world!');

     end

end.

Результат работы программы №4:

1 строка
Hello world!
2 строка
Hello world!
3 строка
Hello world!
4 строка
Hello world!
5 строка
Hello world!
6 строка
Hello world!
7 строка
Hello world!
8 строка
Hello world!
9 строка
Hello world!
10 строка
Hello world!

Обратите внимание на отличие в результатах работы №3 и №4!!!  Это наглядный пример работы операторных скобок begin-end.

Программа №5. Таблица умножения:

  VAR

     i: integer;

     j: integer;

     N: integer;

  BEGIN

       cls;

       write('Введите число элеметов таблицы умножения:');

       readln(N);

       writeln('**** !!!! Таблица умножения !!! ***');

       for i:= 1 to N do

       BEGIN

            for j:= 1 to N do

                write(i*j:3, ' ');

                writeln();

       END;

  END.