Написать программу. Записать в файл все "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.

Объяснение кода листинга программы

  1. Установка начального значения переменной n равным 0.
  2. Цикл for для прохода по каждому символу в строке bk.
  3. Внутри цикла for создаются три переменные a, b и c, которые принимают значения текущего символа в строке bk.
  4. Создается строка d, которая будет содержать трехбуквенные слова.
  5. Внутри цикла for происходит запись трехбуквенных слов в строку d и в файл f.
  6. После окончания циклов происходит запись в файл пробела и значения переменной n.
  7. Закрытие файла f.

Оцени полезность:

14   голосов , оценка 3.786 из 5
Похожие ответы