не могу написать программу на паскале

[Daniyar34]

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

файл вложен

[BDA]

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.

[KlIm16]

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.

Посмотри может поможет

[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.

[Daniyar34]

Сообщение от 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?? мы еще не проходили это в школе а училка меня не поймет

[BDA]

и кстати можно ли написать прогу без string??

facepalm
Вы читаете только последнее сообщение в теме?)

[Daniyar34]

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

facepalm
Вы читаете только последнее сообщение в теме?)

твое проверил не правильно...

[Daniyar34]

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

facepalm
Вы читаете только последнее сообщение в теме?)

ого извиняюсь перепроверил получилось также как и у последнего помощника...)) помоги исправить эту ошибку?

[BDA]

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

[Daniyar34]

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

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

ты есть в ВК , если нету тогда объясни что делает каждый цикл я щас просмотрел не понимаю внутр цикл...