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

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

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

> Помоготе со звуком, Нужно вставить простенькую мелодию но незнаю как!!
сообщение
Сообщение #1





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

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


Program Man;                                    {Zagolovok programi}
Uses Graph,Crt; {Ima modula}
Var x,y: integer; {Obyvlenia peremenih}
Xman,Yman: Word; {Word - 0..65535 bezznakoviy,integer -32768..32768}
Procedure Zastavka;
begin
Clrscr; {Ochistaet aktivnoe okno i stavit kursor v verchniy leviy ugol}
Textbackground(3); {Ustanavlevaet cvet fona}
Window(10,5,70,20); {Opredelaet na ekran tekstovoe okno}
Clrscr; {Ochistaet aktivnoe okno i stavit kursor v verchniy leviy ugol}
GotoXY(24,25); {Peremechaet kursor v zadanau poziciu ekrana}
Write(' Житомирский кооперативный коледж бизнусу и прва '); {Vivod na ekran soobchenia}
GotoXY(20,10); {Peremechaet kursor v zadanau poziciu ekrana}
Write('Выполнил студент группы ТП-9_31'); {Vivod na ekran soobchenia}
GotoXY(20,12); {Peremechaet kursor v zadanau poziciu ekrana}
Write('ПВС'); {Vivod na ekran soobchenia}
GotoXY(29,15); {Peremechaet kursor v zadanau poziciu ekrana}
Write('2006'); {Vivod na ekran soobchenia}
Readln; {Chtenie}
Clrscr; {Ochistaet aktivnoe okno i stavit kursor v verchniy leviy ugol}
end;


Procedure Graf;
Var Gd,Gm: Integer; {Obavlenie peremenih}
Begin
Gd:=Detect; {Avtoopredelenie aparatnogo obespechenia}
InitGraph(Gd,Gm,'C:\Tp7\'); {Zagruzaet graficheskiy drayver}
If GraphResult<>grOk Then Begin {Vozvrachaet kod oshibki dla posledney graficheskoy operacii}
Writeln ('Error!'); {Vivod na ekran soobchenia}
Readln; {Chtenie}
Halt(1); {Ostanavlevaet programu i vuhodit v OS}
End;
End;

Procedure Hands;
Begin
{Pravaya Ruk }
Line (Xman+30,Yman+30,Xman+30,Yman+80);
Line (Xman+30,Yman+30,Xman+80+x,Yman+120-y);
Line (Xman+80+x,Yman+120-y,Xman+50+x,Yman+120-y);
Line (Xman+30,Yman+60,Xman+50+x,Yman+120-y);
{===========}

{Levaya Ruka}
Line (Xman-30,Yman+30,Xman-30,Yman+60);
Line (Xman-30,Yman+30,Xman-80-x,Yman+120-y);
Line (Xman-80-x,Yman+120-y,Xman-50-x,Yman+120-y);
Line (Xman-30,Yman+60,Xman-50-x,Yman+120-y);
{===========}
End;

Procedure Legs;
Begin
{Pravaya Nog }
Line (Xman,Yman+150,Xman+30,Yman+150);
Line (Xman+30,Yman+150,Xman+70+x,Yman+250-y);
Line (Xman+70+x,Yman+250-y,Xman+40+x,Yman+250-y);
Line (Xman+40+x,Yman+250-y,Xman,Yman+150);
{===========}

{Levaya Nog }
Line (Xman,Yman+150,Xman-30,Yman+150);
Line (Xman-30,Yman+150,Xman-70-x,Yman+250-y);
Line (Xman-70-x,Yman+250-y,Xman-40-x,Yman+250-y);
Line (Xman-40-x,Yman+250-y,Xman,Yman+150);
{==========}
End;

Procedure Glaza;
begin
Circle (Xman-10,Yman-3,5); {Glaz leviy}
Circle (Xman+10,Yman-3,5); {Glaz praviy}
End;
Begin
Zastavka;
Graf; {Procedura Graph}
Xman:=GetMaxx div 2; {Ichet max tochku po gorizontale}
Yman:=GetMaxy div 3; {Ichet max tochku po vertikale}

{’г«®ўЁйҐ}
Circle (Xman,Yman,30); {Golova}
Rectangle (Xman-10,Yman+15,Xman+10,Yman+20); {pramougolnik - Korpus celiy}


SetFillStyle (1,LightGray); {Styl i cvet zalivki golovi}
FloodFill (Xman,Yman,White); {Zakrashuet zamknutuu oblast(golovu)ispolzua tekuchiy stil i cvet zakraski}

Rectangle (Xman-30,Yman+30,Xman+30,Yman+150); {Pramougolnik - verhnaa chast korpusa}
SetFillStyle (1,Green); {Styl i cvet zalivki verhney chasti korpusa }
FloodFill (Xman,Yman+40,White); {Zakrashuet zamknutuu oblast(tulovihca)ispolzua tekuchiy stil i cvet zakraski}

Line (Xman-30,Yman+120,Xman+30,Yman+120); {Linia kotoray delit korpus}
SetFillStyle (1,Red); {Styl i cvet zalivki nizney chasti korpusa }
FloodFill (Xman,Yman+130,White); {Zakrashuet zamknutuu oblast(tulovihca)ispolzua tekuchiy stil i cvet zakraski}
{========}
Repeat
{Operatoru mezdu slovami REPEAT i UNTIL povtorayuca do teh por poka BULEVO virazenie TRUE}
x:=0; y:=0;
Setcolor (White); {Ustanavlevaet tekuchiy cvet, ispolzuy palitru}
SetFillStyle (1,Green); {Styl i cvet zalivki ruk kogda oni opuskautsa }
Hands; {Procedura Ruki}
Legs; {Procedura nogi}
Glaza; {Procedura Glaza}
SetFillStyle (1,Black); {Styl i cvet zalivki glaz}
FloodFill (Xman+10,Yman-3,White); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman-3,White); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
SetFillStyle (1,Green); {Styl i cvet zalivki ruk kogda oni opuskautsa }
FloodFill (Xman+32,Yman+42,White); {Zakrashuet zamknutuu oblast(Ruka pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-32,Yman+42,White); {Zakrashuet zamknutuu oblast(Ruka levay)ispolzua tekuchiy stil i cvet zakraski}
SetFillStyle (1,Red); {Styl i cvet zalivki nog kogda oni opuskautsa }
FloodFill (Xman+10,Yman+152,White); {Zakrashuet zamknutuu oblast(noga pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman+152,White); {Zakrashuet zamknutuu oblast(noga levay)ispolzua tekuchiy stil i cvet zakraski}




Sound (500); {Vkluchaet vnutreniy dinamik komputera}
Delay (50000); {Priostonavluet vupolnenie programi na zadanoe chislo milisikund}
Nosound; {Vikluchaet vnutreniy dinamik komputera}
Setcolor (Black); {Ustanavlevaet tekuchiy cvet, ispolzuy palitru}
SetFillStyle (1,Black); {Styl i cvet zalivki nog i ruk kogda oni opuskautsa}
Hands; {Procedura Ruki}
Legs; {Procedura Nogi}
Glaza; {Procedura Glaza}
FloodFill (Xman+10,Yman-3,Black); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman-3,Black); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman+32,Yman+42,Black); {Zakrashuet zamknutuu oblast(ruka levay)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-32,Yman+42,Black); {Zakrashuet zamknutuu oblast(ruka pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman+10,Yman+152,Black); {Zakrashuet zamknutuu oblast(noga levay)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman+152,Black); {Zakrashuet zamknutuu oblast(noga pravy)ispolzua tekuchiy stil i cvet zakraski}

x:=50; y:=30;
Setcolor (White); {Ustanavlevaet tekuchiy cvet, ispolzuy palitru}
{Styl i cvet zalivki ruk kogda oni podnimauca}
Hands; {Procedura Ruki}
Legs; {Procedura Nogi}
Glaza; {Procedura Glaza}
SetFillStyle (1,White); {Styl i cvet zalivki glaz }
FloodFill (Xman+10,Yman-3,White); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman-3,White); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
SetFillStyle (1,Green); {Styl i cvet zalivki ruk kogda oni podnimauca}
FloodFill (Xman+32,Yman+42,White); {Zakrashuet zamknutuu oblast(ruka pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-32,Yman+42,White); {Zakrashuet zamknutuu oblast(ruka levay)ispolzua tekuchiy stil i cvet zakraski}
SetFillStyle (1,Red); {Styl i cvet zalivki nog kogda oni podnimauca}
FloodFill (Xman+10,Yman+152,White); {Zakrashuet zamknutuu oblast(noga levay)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman+152,White); {Zakrashuet zamknutuu oblast(noga pravy)ispolzua tekuchiy stil i cvet zakraski}

Sound (1000); {Vkluchaet vnutreniy dinamik komputera}
Delay (50000); {Priostonavluet vupolnenie programi na zadanoe chislo milisikund}
Nosound; {Vikluchaet vnutreniy dinamik komputera}
Setcolor (Black); {Ustanavlevaet tekuchiy cvet, ispolzuy palitru}
SetFillStyle (1,Black); {Styl i cvet zalivki nog i ruk kogda oni podnimauca}
Hands; {Procedura Ruki}
Legs; {Procedura Nogi}
Glaza; {Procedura Glaza}
FloodFill (Xman+10,Yman-3,Black); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman-3,Black); {Zakrashuet zamknutuu oblast(Glaz pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman+32,Yman+42,Black); {Zakrashuet zamknutuu oblast(ruka pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-32,Yman+42,Black); {Zakrashuet zamknutuu oblast(ruka levay)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman+10,Yman+152,Black); {Zakrashuet zamknutuu oblast(noga pravy)ispolzua tekuchiy stil i cvet zakraski}
FloodFill (Xman-10,Yman+152,Black); {Zakrashuet zamknutuu oblast(noga levay)ispolzua tekuchiy stil i cvet zakraski}

Until Keypressed; {Opredelaet ili bila nazata klavisha na klaviature}
Readln; {Zcituet}
CloseGraph; {Zakrivaet Graficheskuu sistemu}
End.


Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Во первыйх пользуйся тегами, во вторых, ну мелодия ладно понятно, супер код то зачем свой запостил вообще ? в третьих: Ноты


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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