Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2013, 14:55   #1
Daniyar34
Новичок
Джуниор
 
Регистрация: 17.02.2013
Сообщений: 5
По умолчанию не могу написать программу на паскале

Нужно вывести алфавит в виде дерева

файл вложен
Изображения
Тип файла: jpg W2-Zgldg1bM.jpg (35.4 Кб, 40 просмотров)
Daniyar34 вне форума Ответить с цитированием
Старый 17.02.2013, 15:04   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
var
  i, j: char;
begin
  for i := 'A' to 'Z' do
  begin
    write('A':(26 - ord(i) + ord('A')));
    for j:= 'B' to i do
      write(j:2);
    writeln;
  end;
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 17.02.2013, 15:05   #3
KlIm16
Пользователь
 
Регистрация: 16.02.2013
Сообщений: 37
По умолчанию

program jg;
var A:array[1..6,1..7]of integer;
i,j :integer;
begin for i:=1 to 6 do
for j:=1 to 7 do
a[i,j]:=i+j;
for i:=1 to 6 do
begin
for j:=1 to 7 do
if j<=i then write(a[i,j]:4);
writeln;
end; end.

Посмотри может поможет
KlIm16 вне форума Ответить с цитированием
Старый 17.02.2013, 15:08   #4
execom
Редкий тунеядец
Форумчанин
 
Аватар для execom
 
Регистрация: 29.10.2006
Сообщений: 595
По умолчанию

писал на коленках не компилировал но думаю должно работать
Код:
var
 i : integer;
 ST : string;
 Bukv : string;
 Propusk : string;
begin
for i:=1 to 26 do
  begin
    Bukv:=Bukv+chr(i+64)+' ';
    Propusk:='';
    for i:=26 downto i do
    Propusk:=Propusk+' ';
    ST:=Propusk+Bukv;
    writeln(ST);
  end;
readln;
end.
execom вне форума Ответить с цитированием
Старый 17.02.2013, 15:31   #5
Daniyar34
Новичок
Джуниор
 
Регистрация: 17.02.2013
Сообщений: 5
По умолчанию

Цитата:
Сообщение от execom Посмотреть сообщение
писал на коленках не компилировал но думаю должно работать
Код:
var
 i : integer;
 ST : string;
 Bukv : string;
 Propusk : string;
begin
for i:=1 to 26 do
  begin
    Bukv:=Bukv+chr(i+64)+' ';
    Propusk:='';
    for i:=26 downto i do
    Propusk:=Propusk+' ';
    ST:=Propusk+Bukv;
    writeln(ST);
  end;
readln;
end.


у тебя почти правильно сверху начинает выводить с A B C а надо сначала A потом под ними А В ниже А В С...и кстати можно ли написать прогу без string?? мы еще не проходили это в школе а училка меня не поймет
Daniyar34 вне форума Ответить с цитированием
Старый 17.02.2013, 15:44   #6
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Цитата:
и кстати можно ли написать прогу без string??
facepalm
Вы читаете только последнее сообщение в теме?)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 17.02.2013, 15:51   #7
Daniyar34
Новичок
Джуниор
 
Регистрация: 17.02.2013
Сообщений: 5
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
facepalm
Вы читаете только последнее сообщение в теме?)

твое проверил не правильно...
Daniyar34 вне форума Ответить с цитированием
Старый 17.02.2013, 15:56   #8
Daniyar34
Новичок
Джуниор
 
Регистрация: 17.02.2013
Сообщений: 5
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
facepalm
Вы читаете только последнее сообщение в теме?)
ого извиняюсь перепроверил получилось также как и у последнего помощника...)) помоги исправить эту ошибку?
Daniyar34 вне форума Ответить с цитированием
Старый 17.02.2013, 16:02   #9
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

У Паскаля текстовый режим 25 на 80 символов.
Не может на экране поместиться вся пирамидка.
http://ideone.com/DSVSul
Или нужно переключаться в режим 43(50) на 80 (не могу сказать как, так как нету под рукой паскаля).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 17.02.2013 в 16:04.
BDA на форуме Ответить с цитированием
Старый 17.02.2013, 16:05   #10
Daniyar34
Новичок
Джуниор
 
Регистрация: 17.02.2013
Сообщений: 5
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
У Паскаля текстовый режим 25 на 80 символов.
Не может на экране поместиться вся пирамидка.
http://ideone.com/DSVSul
Или нужно переключаться в режим 43 на 80 (не могу сказать как, так как нету под рукой паскаля).
ты есть в ВК , если нету тогда объясни что делает каждый цикл я щас просмотрел не понимаю внутр цикл...
Daniyar34 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу написать программу в c++ Rent05 Помощь студентам 1 26.06.2012 01:10
не могу написать на паскале.. Владимир91 Помощь студентам 2 22.12.2011 16:44
Не могу написать программу (С++) Alenka' Помощь студентам 3 12.11.2011 15:29
не могу написать программу. Нютик Паскаль, Turbo Pascal, PascalABC.NET 4 15.03.2011 21:49