PROGRAM PRG4_1;

VAR I: CHAR;

К, J: INTEGER;

BEGIN

К:= 1;

FOR I:= 'A' TO 'Z' DO

BEGIN

FOR J:= 1 TO К DO

WRITE(I);

К:= K+1

END;

WRITELN

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- цикл FOR I:= 'A' TO 'Z' DO определяет, какую букву выво­дим на печать;

- цикл FOR J:= 1 ТО К DO определяет, сколько раз будет печататься буква;

- после вывода всех букв закрываем строку оператором WRITELN.

Переменные:

I - переменная цикла; определяет, какая буква выводится;

К - количество повторений буквы;

J - переменная цикла.

Задача 4.2 Вывести в одну строку ZYY...AA...A..

PROGRAM PRG4_2;

VAR I: CHAR;

К, J: INTEGER;

BEGIN

K:=1;

FOR I:= 'Z' DOWNTO 'A' DO

BEGIN

FOR J:= 1 TO К DO

WRITE(I);

К:= K+1

END;

WRITELN

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- цикл FOR I:= 'Z'DOWNTO 'A' DO определяет, какую букву выводим на печать;

- цикл FOR J:= 1 ТО К DO определяет, сколько раз будет печататься буква;

- после вывода всех букв закрываем строку оператором WRITELN.

Переменные:

I - переменная цикла; определяет, какая буква выводится;

К - количество повторений буквы;

J - переменная цикла.

 

Задача 4.3 Вывести треугольник А В С... Z

В С... Z

...... Z

PROGRAM PRG4_3;

VAR I, L: CHAR;

J: INTEGER;

BEGIN

L:= 'A';

FOR J:= 1 TO 26 DO

BEGIN

FOR I:= 'A' TO L DO

WRITE(' ');

FOR I:= L TO 'Z' DO

WRITE(I);

WRITELN;

L:= SUCC(L);

END;

END.

ДЛЯ решения задачи:

- формируем тело программы и описываем переменные;

- цикл FOR J:= I TO 26 DO определяет, сколько строк будет печататься;

- цикл FOR I:= 'A' TO L DO определяет, сколько пробелов выводим на печать в начале строки;

- FOR I:= L TO 'Z' DO определяет, какую букву выводим на печать;

- после вывода всех букв закрываем каждую строку операто­ром WRITELN.

Переменные:

I - переменная цикла; определяет, какая буква выводится;

L - вспомогательная переменная;

J - переменная цикла определяет, сколько строк будет печататься.

 

Задача 4.4 Дана строка символов. Удалить из нее первый знак препинания.

Для решения данной задачи нам понадобится объявить множе­ство знаков препинания М. Затем, последовательно проверяя ка­ждый символ строки на принадлежность этому множеству, найдем первый знак препинания. Найдя знак, необходимо досрочно вый­ти из цикла проверки, например с помощью оператора BREAK.