рекурсивная процедура

[Avvakymova]

подскажите,пожалуйста,что писать в основной программе!!!

procedure piramidka(c:char; kiko:byte);
var i:byte;
begin
for i:=1 to (ord(c)-ord('A')) do
write(c);
writeln;
if (ord(c)-ord('A')) < kiko then
piramidka(chr(ord(c)+1),kiko);
end;

begin
  piramidka('A',25);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

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

Поэтому Ваш вопрос неясен - что и где Вы собираетесь писать?!!

[rus12]

В целом ничего, но можно вот так

procedure piramidka(c:char; kiko:byte);
var i:byte;
begin
for i:=1 to (ord(c)-ord('A')) do
write(c);
writeln;
if (ord(c)-ord('A')) < kiko then
piramidka(chr(ord(c)+1),kiko);
end;

begin
  piramidka('A',25);
  readln;
end.

[Avvakymova]

А можно ее сделать не через процедуру?

[GetMax]

А можно ее сделать не через процедуру?

Легко. Скопируйте тело процедуры в основную программу. И переменные описать не забудьте.

[Serge_Bliznykov]

Легко. Скопируйте тело процедуры в основную программу.

да щас! Прямо таки - ЛЕГКО.

процедура рекурсивная. Чтобы ещё "развернуть" в последовательную, нужно рекурсию заменить циклом.
Так что, насчёт "Легко", Вы, товарищ, чуток погорячились...

p.s. хотя, в данной задаче рекурсия скорее притянута за уши, чем является обязательным условием, поэтому особых проблем с циклом не будет.

Avvakymova, и учтите, что тогда эта программа уже не будет рекурсивной!

[GetMax]

да щас! Прямо таки - ЛЕГКО.

Ну да, Вы правы. Я слегка погорячился. Хотя я думаю если автор сам смог сделать эту рекурсивную функцию, то развернуть ее в цикл проблем особых не составит.

[Sparkman]

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

А можно ее сделать не через процедуру?

var i,kiko:byte;c:char;
begin
     c:='A';
     kiko:=25;
     while (ord(c)-ord('A')) <= kiko do
     begin
          for i:=1 to (ord(c)-ord('A')) do
          write(c);
          writeln;
          c:=chr(ord(c)+1);
     end;
  readln;
end.