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.

PROGRAM PRG4_4;

Var str: string;

L, I, J: INTEGER;

M : SET OF CHAR;

BEGIN

M ;= ['.',',','!',':',';','?','-'];

WRITELN('BBEДИTE ТЕКСТ');

READLN(STR);

L := LENGTH (STR);

FOR I := 1 TO L DO

If not(str[I] in m) then write(str[I])

ELSE BREAK;

FOR J:=l+1 TO L DO

WRITE(STR[J]);

WRITELN

END.

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

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

- задаем значение множества М - множества знаков препина­ния;

- цикл FOR I := 1 ТО L DO осуществляет вывод строки до первого знака препинания;

- цикл FOR J := 1+1 ТО L DO выводит строку после первого знака препинания;

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

Переменные:

I, J - переменные циклов;

L - длина строки;

STR - строка текста;

М - множество знаков препинания.

ВВЕДИТЕ ТЕКСТ

ABC DFG, GH, , , , , , ЕЕ.

ABC DFG GH, , , , , , ЕЕ.

ВВЕДИТЕ ТЕКСТ

; ABC DFG GH, , , , , , ЕЕ.

ABC DFG GH, , , , , , EE.

Рис. 4.1. Результат работы PRG4_4

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

PROGRAM PRG4_5;