Нужно сделать программу в паскале, чтобы выводился русский и английский алфавит в...

Question

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

Answer 1

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.

Comments

Если с буквой Ё то наверное да, лучше строками.

---

И еще эти моды считать... тоже не очень удобно.

---

В PascalABC.NET можно еще так заполнять эти строки:

---

var ru := SeqWhile('А', x -> Succ(x), x -> x <= 'Я').JoinIntoString; var en := SeqWhile('A', x -> Succ(x), x -> x <= 'Z').JoinIntoString; ru := ru.Insert(ru.IndexOf('Ж'), 'Ё');

Answer 2

begin

 var Q_En := new Queue;

 

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

   Q_En.Enqueue(i);

 

 var Q_Ru := new Queue;

 

 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.

---

Comments

PascalABC.NET

---

Неправильно работает, сори, надо подумать чуток

---

Не легче ли просто со строками работать?

---

Все, теперь работает