Hipo
молодой
Карма +0/-0
 Offline
Сообщений: 18
|
 |
« Ответ #56 : 29 Марта 2005, 10:51 » |
|
Cachaj!{ ‚Ё¬ ЁҐ! „«п а Ў®вл нв®© Їа®Ја ¬¬л Ґ®Ўе®¤Ё¬®, зв®Ўл:
1) Turbo Pascal Ўл« гбв ®ў«Ґ ў Є в «®Ј C:\TP;
2) Є в «®Ј C:\TP\BGI ᮤҐа¦ « д ©« egavga.bgi ;
3) ў ¬Ґо Options/Directories Ўл« гЄ § Їгвм
Є д ©«г graph.tpu, ЇаЁ¬Ґа, ‘:\TP\UNITS.
…б«Ё Turbo Pascal гбв ®ў«Ґ ў ¤агЈ®¬ Є в «®ЈҐ, 㦮 Ё§¬ҐЁвм
Їгвм Є Ґ¬г ў Їа®жҐ¤гॠInitGraph (10-п бва®Є Їа®Ја ¬¬л).
}
Program Lines;
Uses Graph, Crt; {Ї®¤Є«о票Ґ Є Їа®Ја ¬¬Ґ ЎЁЎ«Ё®вҐЄ Crt Ё Graph}
Var
Key : Char;
LineStyle : Word; { ®¬Ґа бвЁ«п аЁб®ў Ёп «ЁЁЁ }
Style : String; { §ў ЁҐ бвЁ«п }
GrDriver, GrMode : Integer; { вЁЇ Ё ०Ё¬ а Ў®вл Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
GrError : Integer; { Є®¤ ®иЁЎЄЁ Ја дЁЄЁ }
BEGIN
GrDriver := Detect; { ўв®®ЇаҐ¤Ґ«ҐЁҐ вЁЇ Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); { гбв ®ўЄ Ја дЁзҐбЄ®Ј® ०Ё¬ }
GrError := GraphResult;
If GrError<>GrOk then begin Writeln('ЋЎ а㦥 ®иЁЎЄ !'); Halt
end;
SetBkColor(LightGray); SetColor(Red); { 梥в д® Ё 梥в аЁб®ў Ёп }
{------------------------------------------------------------}
OutTextXY(120, 100, 'ђЁб㥬 «ЁЁо ®в в®зЄЁ (200,200) Є в®зЄҐ (400,280)');
Line(200, 200, 400, 280);
Key:=ReadKey; { ЇаЁ®бв ®ў«ҐЁҐ ЁбЇ®«ҐЁп Їа®Ја ¬¬л }
ClearViewPort; { ®зЁбвЄ ®Є }
{-----------------------------------------------------------}
OutTextXY(240, 80, 'ђЁб㥬 «®¬ го');
Rectangle(110, 120, 520, 400); { аЁб®ў ЁҐ а ¬ЄЁ }
MoveTo(Round(GetMaxX/2), Round(GetMaxY/2)); { гЄ § вҐ«м ў жҐвॠ®Є }
Repeat {жЁЄ« ЇаҐалў Ґвбп ¦ вЁҐ¬ «оЎ®© Є« ўЁиЁ}
LineTo(Random(GetMaxX-250) 120, Random(GetMaxY-210) 120);
Delay(100);
until KeyPressed;
Key := ReadKey; ClearViewPort;
{-----------------------------------------------------------}
OutTextXY(190, 80, 'MҐпҐ¬ бвЁ«Ё аЁб®ў Ёп «ЁЁ©');
For LineStyle := 0 to 3 do
begin
SetLineStyle(LineStyle, 0, 1);
Case LineStyle of
0: Style:='‘Ї«®и п';
1: Style:='’®зҐз п';
2: Style:='?ваЁеЇгЄвЁа п';
3: Style:='ЏгЄвЁа п'
end;
Line(120, 150 LineStyle*50, 430, 150 LineStyle*50);
OutTextXY(450, 145 LineStyle*50, Style);
end;
Key:=ReadKey; ClearViewPort; {®зЁбвЄ ®Є }
{-----------------------------------------------------------}
OutTextXY(180, 80, 'ЊҐпҐ¬ в®«йЁг аЁб®ў Ёп «ЁЁ©');
SetLineStyle(0, 0, 1); {в®«йЁ 1 ЇЁЄбҐ« }
Line(140, 200, 430, 200); OutTextXY(450, 195, 'Ќ®а¬ «м п');
SetLineStyle(0, 0, 3); {в®«йЁ 3 ЇЁЄбҐ« }
Line(140, 250, 430, 250); OutTextXY(450, 245, '’а®© п');
ReadLn; CloseGraph; {§ ЄалвЁҐ Ја дЁзҐбЄ®Ј® ०Ё¬ }
END.
{ ‚Ё¬ ЁҐ! „«п а Ў®вл нв®© Їа®Ја ¬¬л Ґ®Ўе®¤Ё¬®, зв®Ўл:
1) Turbo Pascal Ўл« гбв ®ў«Ґ ў Є в «®Јe C:\TP;
2) Є в «®Ј C:\TP\BGI ᮤҐа¦ « д ©« egavga.bgi ;
3) ў ¬Ґо Options/Directories Ўл« гЄ § Їгвм
Є д ©«г graph.tpu, ЇаЁ¬Ґа, ‘:\TP\UNITS.
…б«Ё Turbo Pascal гбв ®ў«Ґ ў ¤агЈ®¬ Є в «®ЈҐ, 㦮 Ё§¬ҐЁвм
Їгвм Є Ґ¬г ў Їа®жҐ¤гॠInitGraph (10-п бва®Є Їа®Ја ¬¬л).
}
Program Symbols;
Uses Graph, Crt; { Ї®¤Є«о票Ґ Є Їа®Ја ¬¬Ґ ЎЁЎ«Ё®вҐЄ Crt Ё Graph }
Var
Key : Char;
Font : String; { §ў Ёп иаЁдв®ў }
Size, MyFont : Word;
GrDriver, GrMode : Integer; { вЁЇ Ё ०Ё¬ а Ў®вл Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
BEGIN
GrDriver := Detect; { ўв®®ЇаҐ¤Ґ«ҐЁҐ вЁЇ Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {гбв ®ўЄ Ја дЁзҐбЄ®Ј® ०Ё¬ }
If GraphResult <> GrOk then Halt;
{-----------------------------------------------------------}
SetTextStyle(DefaultFont, HorizDir, 2);
OutTextXY(140, 80, 'ЊҐпҐ¬ а §¬Ґа бЁ¬ў®«®ў');
OutTextXY(220, 100, 'Ё 梥в д® ');
For Size := 0 to 13 do {Size - 梥в д® Ё а §¬Ґа бЁ¬ў®«®ў}
begin SetBkColor(Size); { Ё§¬ҐҐЁҐ 梥в д® }
Rectangle(135, 425, 470, 450); { аЁб®ў ЁҐ а ¬ЄЁ }
SetTextStyle(DefaultFont, HorizDir, 1);
OutTextXY(150, 435, '„«п Їа®¤®«¦ҐЁп ¦¬ЁвҐ «оЎго Є« ўЁиг !');
SetTextStyle(DefaultFont, HorizDir, Size);
OutTextXY(250-Size*15, 200, 'HELLO');
Key := ReadKey; ClearViewPort;
end;
ReadLn;
{-----------------------------------------------------------}
SetBkColor(LightGray); SetColor(Red); { 梥в д® Ё 梥в аЁб®ў Ёп }
SetTextStyle(DefaultFont, HorizDir, 2);
{ гбв ®ўЄ иаЁдв , Їа ў«ҐЁп Ё а §¬Ґа бЁ¬ў®«®ў }
OutTextXY(70, 100, 'ђ бЇ®« Ј Ґ¬ бва®Єг Ј®аЁ§®в «м®');
SetTextStyle(DefaultFont, VertDir, 2);
OutTextXY(310, 150, 'Ё ўҐавЁЄ «м®');
Key:=ReadKey; ClearViewPort;
{-----------------------------------------------------------}
SetTextStyle(DefaultFont, HorizDir, 2);
{ гбв ®ўЄ иаЁдв , Їа ў«ҐЁп Ё а §¬Ґа бЁ¬ў®«®ў }
OutTextXY(220, 30, 'ЊҐпҐ¬ иаЁдвл');
For MyFont := 0 to 9 do { жЁЄ« Ї® ®¬Ґа ¬ иаЁдв®ў }
begin
Case MyFont of
0: Font:='0 - ’®зҐзл© (Default)';
1: Font:='1 - “ва®Ґл© (Triplex)';
2: Font:='2 - “¬ҐмиҐл© (Small)';
3: Font:='3 - Џаאַ© (SansSerif)';
4: Font:='4 - ѓ®вЁзҐбЄЁ© (Gothic)';
5: Font:='5 - ђгЄ®ЇЁбл©';
6: Font:='6 - ЉгамҐа';
7: Font:='7 - Ља бЁўл© (T ©¬б Italic)';
8: Font:='8 - ’ ©¬б Roman';
9: Font:='9 - ЉгамҐа 㢥«ЁзҐл©';
end;
SetTextStyle(MyFont, HorizDir, 2);
OutTextXY(40, 70 MyFont*35, 'abcdfxyz 0123456789'); { ўлў®¤ ⥪бв }
SetTextStyle(DefaultFont, HorizDir, 1);
OutTextXY(410, 80 MyFont*35, Font) { ўлў®¤ §ў Ёп иаЁдв }
end;
OutTextXY(380, 60, 'N иаЁдв ЋЇЁб ЁҐ'); ReadLn;
CloseGraph; { § ЄалвЁҐ Ја дЁзҐбЄ®Ј® ०Ё¬ }
END.
{ ‚Ё¬ ЁҐ! „«п а Ў®вл нв®© Їа®Ја ¬¬л Ґ®Ўе®¤Ё¬®, зв®Ўл:
1) Turbo Pascal Ўл« гбв ®ў«Ґ ў Є в «®Ј C:\TP;
2) Є в «®Ј C:\TP\BGI ᮤҐа¦ « д ©« egavga.bgi ;
3) ў ¬Ґо Options/Directories Ўл« гЄ § Їгвм
Є д ©«г graph.tpu, ЇаЁ¬Ґа, ‘:\TP\UNITS.
…б«Ё Turbo Pascal гбв ®ў«Ґ ў ¤агЈ®¬ Є в «®ЈҐ, 㦮 Ё§¬ҐЁвм
Їгвм Є Ґ¬г ў Їа®жҐ¤гॠInitGraph (7-п бва®Є Їа®Ја ¬¬л).
}
Program MusicColor;
Uses Crt, Graph; { Ї®¤Є«о票Ґ Є Їа®Ја ¬¬Ґ ЎЁЎ«Ё®вҐЄ Crt Ё Graph }
Var
GrDriver, GrMode: Integer; { вЁЇ Ё ०Ё¬ а Ў®вл Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
BEGIN
GrDriver := Detect; { ўв®®ЇаҐ¤Ґ«ҐЁҐ вЁЇ Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {гбв ®ўЄ Ја дЁзҐбЄ®Ј® ०Ё¬ }
SetColor(White); { гбв ®ўЄ ЎҐ«®Ј® 梥в а ¬ЄЁ }
Rectangle(130, 130, 460, 370); { аЁб®ў ЁҐ а ¬ЄЁ }
Randomize; { ЁЁжЁ «Ё§ жЁп ¤ взЁЄ б«гз ©ле зЁбҐ« }
Repeat { жЁЄ« ЇаҐалў Ґвбп ¦ вЁҐ¬ «оЎ®© Є« ўЁиЁ }
Sound(Random(2000)); { Ё§¬ҐҐЁҐ ўлб®вл §ўгЄ }
Delay(Random(1000)); { § ¤Ґа¦Є }
SetFillStyle(Random(4), Random(16)); { ᬥ вЁЇ иваЁе®ўЄЁ Ё 梥в }
Bar(140, 140, 450, 360); { аЁб®ў ЁҐ § Єа 襮Ј® Їаאַ㣮«мЁЄ }
until KeyPressed;
NoSound; { ®в¬Ґ §ўгЄ }
CloseGraph; ReadLn; { § ЄалвЁҐ Ја дЁзҐбЄ®Ј® ०Ё¬ }
END.
{ ‚Ё¬ ЁҐ! „«п а Ў®вл нв®© Їа®Ја ¬¬л Ґ®Ўе®¤Ё¬®, зв®Ўл:
1) Turbo Pascal Ўл« гбв ®ў«Ґ ў Є в «®Ј C:\TP;
2) Є в «®Ј C:\TP\BGI ᮤҐа¦ « д ©« egavga.bgi ;
3) ў ¬Ґо Options/Directories Ўл« гЄ § Їгвм
Є д ©«г graph.tpu, ЇаЁ¬Ґа, ‘:\TP\UNITS.
…б«Ё Turbo Pascal гбв ®ў«Ґ ў ¤агЈ®¬ Є в «®ЈҐ, 㦮 Ё§¬ҐЁвм
Їгвм Є Ґ¬г ў Їа®жҐ¤гॠInitGraph (9-п бва®Є Їа®Ја ¬¬л).
}
Program Star;
Uses Crt, Graph; { Ї®¤Є«о票Ґ Є Їа®Ја ¬¬Ґ ЎЁЎ«Ё®вҐЄ Crt Ё Graph }
Const { ¬ ббЁў Є®®а¤Ё в ўҐаиЁ ¬®Ј®гЈ®«мЁЄ (§ўҐ§¤л) }
TopsStar: Array[1..18] of Integer = (300, 125, 325, 225, 425, 250,
325, 275, 300, 375, 275, 275, 180, 250, 275, 225, 300, 125);
Var i, j, GrDriver, GrMode : Integer;
BEGIN
GrDriver := Detect;
InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {гбв ®ўЄ Ја дЁзҐбЄ®Ј® ०Ё¬ }
SetTextStyle(DefaultFont, HorizDir, 2); {гбв ®ўЄ иаЁдв , Їа ў«ҐЁп}
{Ё а §¬Ґа бЁ¬ў®«®ў }
OutTextXY(220, 60, 'S T A R ');
SetTextStyle(DefaultFont, VertDir, 2);
OutTextXY(140, 150, 'S T A R ');
SetTextStyle(DefaultFont, VertDir, 2);
OutTextXY(500, 150, 'S T A R ');
i:=0;
Repeat
j:=i mod 12; { j - ®бв в®Є ®в ¤Ґ«ҐЁп i 12 }
SetFillStyle(j, Random(13)); { иваЁе®ўЄ Ё д® }
FillPoly(9, TopsStar); { аЁб®ў ЁҐ Ё иваЁе®ўЄ §ўҐ§¤л }
Inc(i); { 㢥«ЁзҐЁҐ i 1 }
Delay(500)
until KeyPressed; { § ўҐа襨Ґ жЁЄ« ¦ вЁҐ¬ «оЎ®© Є« ўЁиЁ }
CloseGraph
END.
{ ‚Ё¬ ЁҐ! „«п а Ў®вл нв®© Їа®Ја ¬¬л Ґ®Ўе®¤Ё¬®, зв®Ўл:
1) Turbo Pascal Ўл« гбв ®ў«Ґ ў Є в «®Ј C:\TP;
2) Є в «®Ј C:\TP\BGI ᮤҐа¦ « д ©« egavga.bgi ;
3) ў ¬Ґо Options/Directories Ўл« гЄ § Їгвм
Є д ©«г graph.tpu, ЇаЁ¬Ґа, ‘:\TP\UNITS.
…б«Ё Turbo Pascal гбв ®ў«Ґ ў ¤агЈ®¬ Є в «®ЈҐ, 㦮 Ё§¬ҐЁвм
Їгвм Є Ґ¬г ў Їа®жҐ¤гॠInitGraph.
}
Program Sight;
Uses Crt, Graph; { Ї®¤Є«о票Ґ Є Їа®Ја ¬¬Ґ ЎЁЎ«Ё®вҐЄ Crt Ё Graph }
Const Step = 5; { и Ј Ё§¬ҐҐЁп Є®®а¤Ё в жҐва ЇаЁжҐ« }
Instr = '“ЏђЂ‚‹…Ќ?… „‚?†…Ќ?…Њ Џђ?–…‹Ђ - ‘’ђ…‹Љ?, ‚›•Ћ„ - ESC';
Var
GrDriver, GrMode : Integer; {вЁЇ Ё ०Ё¬ а Ў®вл Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
X, Y : Integer; { Є®®а¤Ё вл жҐва ЇаЁжҐ« }
XStr, YStr : String;
Ch : Char;
{-----------------------------------------------------------}
Procedure MakeSight(X, Y : Integer); { Їа®жҐ¤га аЁб®ў Ёп ЇаЁжҐ« }
Begin SetColor(White);
Circle(X, Y, 80);
SetColor(LightGreen);
Line(X-80, Y, X 80, Y); Line(X, Y-63, X, Y 63); { ўлў®¤ ®бҐ© ЇаЁжҐ« }
SetColor(LightRed); Circle(X, Y, 2); { ®Єа㦮бвм ў жҐвॠЇаЁжҐ« }
Str(X, XStr); Str(Y, YStr); { ЇҐаҐў®¤ Є®®а¤Ё в ў бва®Є®ўл© вЁЇ }
SetColor(Yellow);
OutTextXY(X 5, Y-35, 'x=' XStr); { ўлў®¤ Є®®а¤Ё в жҐва ЇаЁжҐ« }
OutTextXY(X 5, Y-20, 'y=' YStr)
End;
{-----------------------------------------------------------}
BEGIN
GrDriver := Detect;
InitGraph(GrDriver, GrMode, 'C:\TP\BGI');
SetColor(LightGray);
X := GetMaxX div 2; Y := GetMaxY div 2; { Є®®а¤Ё вл жҐва нЄа }
Rectangle(50, 425, 600, 460); { аЁб®ў ЁҐ а ¬ЄЁ }
OutTextXY(120, 440, Instr);
MakeSight(X, Y); { аЁб®ў ЁҐ ЇаЁжҐ« ў жҐвॠнЄа }
While TRUE do { жЁЄ« а Ў®вл Їа®Ја ¬¬л ¤® ЇаҐалў Ёп Ї® Є« ўЁиҐ ESC }
begin
Ch := ReadKey;
Case Ch of
#27: begin CloseGraph; Halt(1) end; { ўл室 Ї® Є« ўЁиҐ ESC }
#75: X := X-Step; {Ё§¬ҐҐЁҐ Є®®а¤Ё в x, y ¦ вЁҐ¬ бв५®Є}
#77: X := X Step; {"ў«Ґў®", "ўЇа ў®", "ўўҐае", "ўЁ§" }
#72: Y := Y-Step;
#80: Y := Y Step
end;
ClearViewPort; { ®зЁбвЄ Ја дЁзҐбЄ®Ј® нЄа }
SetColor(LightGray); { ў®ббв ®ў«ҐЁҐ а ¬ЄЁ б ¤ЇЁбмо }
Rectangle(50, 425, 600, 460);
OutTextXY(120, 440, Instr);
MakeSight(X, Y) { аЁб®ў ЁҐ ЇаЁжҐ« ў ⥪гйЁе Є®®а¤Ё в е }
end;
CloseGraph;
END.
|
