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

Raep · 02.04.2012, 11:02

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

Vladimir_S · 02.04.2012, 12:07

Цитата:

Сообщение от Raep

Вывести латинский алфавит от 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 · 02.04.2012, 12:12

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

Vladimir_S · 02.04.2012, 12:16

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

Vladimir_S · 02.04.2012, 12:19

Цитата:

Сообщение от Raep

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

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

Raep · 02.04.2012, 12:28

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

Vladimir_S · 02.04.2012, 12:37

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

02.04.2012, 11:02	#1 (permalink)
Raep Member Регистрация: 25.07.2011 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа на паскале Вывести латинский алфавит от a до z в k колонок.Help! P.s:как вывести алфавит,я знаю,но в количество колонок,нет.

02.04.2012, 11:02
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Представлю вам топики, которые по содержанию очень сильно схожи с вашим Программа вычисления интеграла на Паскале Программа в паскале, помогите, пожалуйста, исправить программу Программа на Паскале Free или Turbo. Циклы

02.04.2012, 12:12	#3 (permalink)
Raep Member Регистрация: 25.07.2011 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А можно попроще или это самый простой способ?

02.04.2012, 12:16	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Сейчас немного исправил код - для лучшей оптимизации.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

02.04.2012, 12:28	#6 (permalink)
Raep Member Регистрация: 25.07.2011 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо,вроде все понятно)

02.04.2012, 12:37	#7 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Сейчас подумал - есть и совершенно другой путь, а именно использовать CRT-шные команды, типа GoToXY. Тогда можно заполнять последовательно не строки, а колонки. Но опять же не уверен, что это будет проще.