Автор: Гость 30.05.2006 18:41
Надо помогите чето сделать никак не могу: Задание такого: описать процедуру, выводящую на экран определенное кол-во заданного символа, и с помощью него построить вот эту штуку:
Код
*
***
*****
*******
ВОт что я сделал: но у меня получается, так:
*
потом я опять ввожу отступ, кол-во и символ
**
и тоже самое, а мне надо чтобы сразу эта шняга, помогите плз. Вота мой код:
Код
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 30.05.2006 21:38
Плати!
Сказал - делай! Регистрируйся, и пиши письмо. В течении 15 минут после оплаты (но учти, той суммы, которую назову Я) программа будет у тебя.
Надо уметь выполнять то, что сказано.
Автор: APAL 30.05.2006 21:41
Код
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.
Автор: мисс_граффити 30.05.2006 23:27
а может, он(а) не платить собирается, а плакать?
5+))))))
Автор: Гость 31.05.2006 1:35
1) задача элементарная для того кто хоть как-то знаком с языком
2) больше 50 рублей я не заплачу за такую фигню
3) а что трудно бесплатно помоч?
Могу вместо денег дать хорошие аккаунты из ultima online которые стоят от 10 до 50 wmz или помочь деньгами в WoW
Автор: APAL 31.05.2006 2:08
2Volvo:
Сам реши открывать мой пост или нет.
Автор: мисс_граффити 31.05.2006 4:16
Цитата(Гость @ 30.05.2006 22:35)
3) а что трудно бесплатно помоч?
слов нет.
сам же предложил.....
думаю, теперь уже точно никто помогать не будет.
Автор: noki 31.05.2006 4:43
Ну сразу видно, мозгов просто не хватило вот и никто и не помог, напрягаться надо, а не в потолок плевать.
Автор: APAL 31.05.2006 4:56
Цитата(noki @ 31.05.2006 0:43)
Ну сразу видно, мозгов просто не хватило вот и никто и не помог, напрягаться надо, а не в потолок плевать.
На "понт" берешь?
Не ты первый, не ты и последний...
Интересно почему же ты сам не решил эту задачу? Уж не из-за твоего ли потолка?
Автор: noki 31.05.2006 5:21
Не беру, я знаю, что на это никто не купится, просто обидно, что сейчас все за деньги. Про мой потолок ты прав, если сразу в голову не пришло(что-то относяшееся к учебе), то делать не буду... Достал инст, отдыха хочу. Народ вы хоть намек киньте... =) А функции такой нету которая очищает предыдущую строку?
Автор: APAL 31.05.2006 5:29
Не все за деньги... ты их сам предложил.
Цитата
А функции такой нету которая очищает предыдущую строку?
Если имеешь в виду на экране очистить, то есть:
GoToXY(x,y); - Перевод курсора в позицию x,y
Write(' '); - затирание текущей позиции пробелом с передвиганием курсора вправо
Функции без параметров: WhereX и WhereY - возвращают текущую позицию курсора