Написать программу. Записать в файл все "3-х буквенные" слова, состоящие из букв русского алфавита, Включая букву Ё - Pascal ABC
Формулировка задачи:
Записать в файл все "3-х буквенные" слова, состоящие из букв русского алфавита, Включая букву Ё!
Решение задачи: «Написать программу. Записать в файл все "3-х буквенные" слова, состоящие из букв русского алфавита, Включая букву Ё»
textual
Листинг программы
uses crt; const bk:string[33]='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯЭ'; var f:text; i,j,k,n:integer; a,b,c:char; d:string; begin assign (f,'d:\1.txt'); rewrite(f); n:=0; for i:=1 to 33 do for j:=1 to 33 do for k:=1 to 33 do begin n:=n+1; d:=bk[i]+bk[j]+bk[k]; write(d,' '); write(f,d,' '); end; writeln(' '); writeln(f,' '); write(n); write(f,n); close(f); end.
Объяснение кода листинга программы
- Установка начального значения переменной
n
равным 0. - Цикл
for
для прохода по каждому символу в строкеbk
. - Внутри цикла
for
создаются три переменныеa
,b
иc
, которые принимают значения текущего символа в строкеbk
. - Создается строка
d
, которая будет содержать трехбуквенные слова. - Внутри цикла
for
происходит запись трехбуквенных слов в строкуd
и в файлf
. - После окончания циклов происходит запись в файл пробела и значения переменной
n
. - Закрытие файла
f
.