Программа на паскале

[Raep]

Программа на паскале

Вывести латинский алфавит от a до z в k колонок.Help!
P.s:как вывести алфавит,я знаю,но в количество колонок,нет.

 

[Vladimir_S]

Вывести латинский алфавит от a до z в k колонок.Help!
P.s:как вывести алфавит,я знаю,но в количество колонок,нет.

Например, так:

Var
 Nc,Nr,i,j:Byte;
Begin
 Write('Number of columns (<14) = ');
 Readln(Nc);
 Nr:=26 div Nc;
 For i:=1 to Nr do
  begin
   j:=0;
   Repeat
    Write(Chr(64+i+j*Nr),Chr(96+i+j*Nr),'  ');
    Inc(j);
   Until (i+j*Nr)>26;
   Writeln;
  end;
 Readln
End.

 

[Raep]

А можно попроще или это самый простой способ?

 

[Vladimir_S]

Сейчас немного исправил код - для лучшей оптимизации.

 

[Vladimir_S]

А можно попроще или это самый простой способ?

Ну можно, в принципе, через матрицу - но я не уверен, что это будет проще. Ну или как-то заранее готовить векторы-строки - но это тоже "что в лоб, что по лбу".
А предложенное решение вовсе не сложное. Если, конечно, разобраться.

 

[Raep]

Спасибо,вроде все понятно)

 

[Vladimir_S]

Сейчас подумал - есть и совершенно другой путь, а именно использовать CRT-шные команды, типа GoToXY. Тогда можно заполнять последовательно не строки, а колонки. Но опять же не уверен, что это будет проще.