Занятие №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.
