Вывод заданного кол-ва символов с помощью процедуры., И построения из них простого рисунка. Опции

[Гость]

Надо помогите чето сделать никак не могу: Задание такого: описать процедуру, выводящую на экран определенное кол-во заданного символа, и с помощью него построить вот эту штуку:

Код

     *
    ***
   *****
  *******

ВОт что я сделал: но у меня получается, так:
*
потом я опять ввожу отступ, кол-во и символ
**
и тоже самое, а мне надо чтобы сразу эта шняга, помогите плз. Вота мой код:

Код

program Zvezda;
uses
CRT;
var
R,C,i,Z,B:integer; X,G,ch:char;

procedure Zvezdochka(var R,C:integer);
begin
readln(R);
readln(X);
readln(C);
for i:=1 to R do begin
write(' '); end;
for i:=1 to C do begin
write(X); end;
end;



Begin
clrscr;
writeln('Vvedite:');
writeln('1)Na kakom rasstoianii budet naxoditsia simvol:');
writeln('2)Kakoy eto simvol');
writeln('3)Skolko budet takix simvolov');
Zvezdochka(R,C);
readln(G);
end.

[Гость]

ЗАПЛАЧУ!!!

[volvo]

Плати!

Сказал - делай! Регистрируйся, и пиши письмо. В течении 15 минут после оплаты (но учти, той суммы, которую назову Я) программа будет у тебя.

Надо уметь выполнять то, что сказано.

[APAL]

Код

Uses Crt;
Const
  k = 4;
Var
  j : byte;

Procedure ZVD(nn : byte;Ch : Char);
Var ii : Byte;
Begin
  For ii:=1 to nn do Write(Ch);
End;

Begin
  For j:=1 to k do
  Begin
    GoToXY(k+1-j,WhereY);
    ZVD(j*2-1,'*');
    Writeln;
  End;
End.

[мисс_граффити]

а может, он(а) не платить собирается, а плакать?

5+))))))

Сообщение отредактировано: klem4 - 30.05.2006 19:29

[Гость]

1) задача элементарная для того кто хоть как-то знаком с языком
2) больше 50 рублей я не заплачу за такую фигню
3) а что трудно бесплатно помоч?
Могу вместо денег дать хорошие аккаунты из ultima online которые стоят от 10 до 50 wmz или помочь деньгами в WoW

[noki]

Зарегился!

[APAL]

2Volvo:

Сам реши открывать мой пост или нет.

[noki]

???

[мисс_граффити]

3) а что трудно бесплатно помоч?

слов нет.
сам же предложил.....

думаю, теперь уже точно никто помогать не будет.

[noki]

Ну сразу видно, мозгов просто не хватило вот и никто и не помог, напрягаться надо, а не в потолок плевать.

[APAL]

Ну сразу видно, мозгов просто не хватило вот и никто и не помог, напрягаться надо, а не в потолок плевать.

На "понт" берешь?
Не ты первый, не ты и последний...

Интересно почему же ты сам не решил эту задачу? Уж не из-за твоего ли потолка?

[noki]

Не беру, я знаю, что на это никто не купится, просто обидно, что сейчас все за деньги. Про мой потолок ты прав, если сразу в голову не пришло(что-то относяшееся к учебе), то делать не буду... Достал инст, отдыха хочу. Народ вы хоть намек киньте... =) А функции такой нету которая очищает предыдущую строку?

[APAL]

Не все за деньги... ты их сам предложил.

А функции такой нету которая очищает предыдущую строку?

Если имеешь в виду на экране очистить, то есть:

GoToXY(x,y); - Перевод курсора в позицию x,y
Write(' '); - затирание текущей позиции пробелом с передвиганием курсора вправо


Функции без параметров: WhereX и WhereY - возвращают текущую позицию курсора