IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Пирамида...
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9

Репутация: -  0  +


Народ здрасьте, помогите решить задачку!
Нарисовать пирамиду, где размер случайный (в разумных пределах), цвет тоже, каждая след. ступенька уменьшается на рандомное число...

Заранее благодарен...

Сообщение отредактировано: volvo -


--------------------
Типа того...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 1)
сообщение
Сообщение #2


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


Лови решение (длинное, корявое :-[, зато работает)
==================================

PROGRAM piramida;
var s : string;
StartRazm, razm, decr : integer;

function MakeStr(razm,cur:integer): string;
var s:string;
i:integer;
begin s:='';
for i:=1 to razm do
if not(i in [((razm-cur)div 2 + 1) .. ((razm-cur)div 2 + cur)]) then
s:=s+' '
else s:=s+'=';
MakeStr:=s
end;

begin
randomize;
StartRazm:=(random(10)+1)*2; {Все размеры четные}
razm:=StartRazm;
decr:=(random(3)+1)*2;{На ск-ко уменьшаю}
while razm>0 do begin
s:=MakeStr(StartRazm,razm); {Генерю строку}
WriteLn(s);
razm:=razm-decr
end;
end.


===============================
Кстати, если именно нарисовать (в смысле, с графикой), то это не ко мне...
И начсет цвета: каждая ступенька - случ. или как? (здесь пока никак)


P.S. Я не опоздал?

Сообщение отредактировано: Altair -


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 14:11
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name