Question

Нужно сделать программу в паскале, чтобы выводился русский и английский алфавит в столбик, а в конце русские буквы начинались заново(т.к. английских 26, а русских 32). Заранее спасибо.Например:А АБ BВ С Г DД E

Answer 1

begin

 var Q_En := new Queue<char>;

 

 for var i:='A' to 'Z' do

   Q_En.Enqueue(i);

 

 var Q_Ru := new Queue<char>;

 

 for var i:='А' to 'Я' do

   Q_Ru.Enqueue(i);

 

 for var i:= 'А' to 'Я' do

 begin

   Writeln(Q_Ru.Peek, Q_En.Peek);

   Q_Ru.Enqueue(Q_Ru.Dequeue);

   Q_En.Enqueue(Q_En.Dequeue);

 end;

end.

Answer 2

Begin

Var Rus := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

Var En := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

For var i:= 0 to 32 do

Begin

WriteLn(Rus[i mod 33+1], En[i mod 26+1]);

End;

End.

Answer 3

Конечно, вот пример программы на языке Паскаль, которая выводит русский и английский алфавит в столбик и начинает русские буквы заново после вывода всех английских букв:

pascalCopy code
program AlphabetOutput;

uses
  SysUtils;

procedure PrintAlphabets;
var
  russianAlphabet, englishAlphabet: string;
  i: Integer;
begin
  // Русский алфавит
  russianAlphabet := 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

  // Английский алфавит
  englishAlphabet := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

  // Выводим буквы алфавитов в столбик
  for i := 1 to Length(englishAlphabet) do
    Write(englishAlphabet[i] + ' ');
    
  // Добавляем перенос строки
  Writeln;

  // Выводим русские буквы, начинаем снова после 32-ой буквы
  for i := 1 to Length(russianAlphabet) do
  begin
    Write(russianAlphabet[i] + ' ');
    if i mod 32 = 0 then
      Writeln;
  end;
end;

begin
  // Устанавливаем кодировку для поддержки русских букв в консоли
  SetConsoleOutputCP(CP_UTF8);

  // Выводим алфавиты
  PrintAlphabets;
end.

Программа выводит русский и английский алфавит в столбик, как указано в примере, и после вывода всех русских букв начинает их вывод заново.