home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Action 54
/
cdactioncoverdisc54.iso
/
Bonus
/
pascal.exe
/
prog093.pas
next >
Wrap
Pascal/Delphi Source File
|
2000-09-15
|
6KB
|
248 lines
program program093;
uses graph,crt;
var i,sterownik,tryb:integer;
procedure inicjacja;
begin
detectgraph(sterownik,tryb);
initgraph(sterownik,tryb,'c:\...\bgi\');
end;
procedure pismo;
begin
for i:=0 to 10 do
begin
settextstyle(i,horizdir,4);
outtextxy(100,i*40,'CD-Action');
end;
end;
begin
inicjacja;
pismo;
readkey;
closegraph;
end.------------C814B391F38148D
Content-Type: text/plain; name="prog094.pas"
Content-Disposition: attachment; filename="prog094.pas"
program program094;
uses graph,crt;
var i,j,sterownik,tryb:integer;
procedure inicjacja;
begin
detectgraph(sterownik,tryb);
initgraph(sterownik,tryb,'c:\...\bgi\');
end;
procedure justowanie;
begin
settextjustify(lefttext,bottomtext);
outtextxy(160,100,'lefttext bottomtext');
settextjustify(lefttext,centertext);
outtextxy(340,100,'lefttext centertext');
settextjustify(lefttext,toptext);
outtextxy(520,100,'lefttext toptext');
settextjustify(centertext,bottomtext);
outtextxy(160,200,'centertext bottomtext');
settextjustify(centertext,centertext);
outtextxy(340,200,'centertext centertext');
settextjustify(centertext,toptext);
outtextxy(520,200,'centertext toptext');
settextjustify(righttext,bottomtext);
outtextxy(160,300,'righttext bottomtext');
settextjustify(righttext,centertext);
outtextxy(340,300,'righttext centertext');
settextjustify(righttext,toptext);
outtextxy(520,300,'righttext toptext');
setcolor(4);
settextjustify(centertext,centertext);
for i:=160 to 520 do
begin
for j:=100 to 300 do
begin
outtextxy(i,j,'.');
if j<>300 then j:=j+99;
end;
if i<>520 then i:=i+179;
end;
end;
begin
inicjacja;
justowanie;
readkey;
closegraph;
end.------------C814B391F38148D
Content-Type: text/plain; name="prog095.pas"
Content-Disposition: attachment; filename="prog095.pas"
program program095;
uses crt,graph;
var sterownik,tryb:integer;
i:integer;
procedure init;
begin
sterownik:=9;
tryb:=2;
initgraph(sterownik,tryb,'c:\...\bgi');
end;
procedure wykres;
begin
for i:=0 to 639 do begin putpixel(i,179,7); i:=i+3; end;
for i:=0 to 639 do begin putpixel(i,299,7); i:=i+3; end;
setcolor(8);
line(0,0,639,0);
line(0,479,639,479);
line(0,0,0,479);
line(639,0,639,479);
setcolor(15);
line(319,0,319,479);
line(0,239,639,239);
outtextxy(322,244,'0');
outtextxy(385,244,chr(20));
outtextxy(395,244,'/2');
outtextxy(475,244,chr(20));
outtextxy(548,244,'3/2');
outtextxy(573,244,chr(20));
outtextxy(620,244,'2');
outtextxy(630,244,chr(20));
outtextxy(217,244,'-');
outtextxy(225,244,chr(20));
outtextxy(235,244,'/2');
outtextxy(147,244,'-');
outtextxy(155,244,chr(20));
outtextxy(60,244,'-3/2');
outtextxy(95,244,chr(20));
outtextxy(2,244,'-2');
outtextxy(20,244,chr(20));
outtextxy(329,179,'1');
outtextxy(328,299,'-1');
setcolor(15);
line(79,236,79,242);
line(159,236,159,242);
line(239,236,239,242);
line(319,236,319,242);
line(399,236,399,242);
line(479,236,479,242);
line(559,236,559,242);
line(316,179,322,179);
line(316,299,322,299);
setcolor(15);
outtextxy(316,0,'^');
outtextxy(632,236,'>');
outtextxy(326,0,'Y');
outtextxy(632,227,'X');
end;
begin
clrscr;
init;
wykres;
readkey;
closegraph;
end.------------C814B391F38148D
Content-Type: text/plain; name="prog096.pas"
Content-Disposition: attachment; filename="prog096.pas"
program program096;
uses crt,graph;
var sterownik,tryb:integer;
xl,yl,i,wyb,y:integer;
x,a,b,c,d:real;
procedure init;
begin
sterownik:=9;
tryb:=2;
initgraph(sterownik,tryb,'c:\...\bgi');
end;
procedure wykres;
begin
for i:=0 to 639 do begin putpixel(i,179,7); i:=i+3; end;
for i:=0 to 639 do begin putpixel(i,299,7); i:=i+3; end;
setcolor(8);
line(0,0,639,0);
line(0,479,639,479);
line(0,0,0,479);
line(639,0,639,479);
setcolor(15);
line(319,0,319,479);
line(0,239,639,239);
outtextxy(322,244,'0');
outtextxy(385,244,chr(20));
outtextxy(395,244,'/2');
outtextxy(475,244,chr(20));
outtextxy(548,244,'3/2');
outtextxy(573,244,chr(20));
outtextxy(620,244,'2');
outtextxy(630,244,chr(20));
outtextxy(217,244,'-');
outtextxy(225,244,chr(20));
outtextxy(235,244,'/2');
outtextxy(147,244,'-');
outtextxy(155,244,chr(20));
outtextxy(60,244,'-3/2');
outtextxy(95,244,chr(20));
outtextxy(2,244,'-2');
outtextxy(20,244,chr(20));
outtextxy(329,179,'1');
outtextxy(328,299,'-1');
setcolor(15);
line(79,236,79,242);
line(159,236,159,242);
line(239,236,239,242);
line(319,236,319,242);
line(399,236,399,242);
line(479,236,479,242);
line(559,236,559,242);
line(316,179,322,179);
line(316,299,322,299);
setcolor(15);
outtextxy(316,0,'^');
outtextxy(632,236,'>');
outtextxy(326,0,'Y');
outtextxy(632,227,'X');
end;
procedure sinus1;
begin
moveto(0,239);
setcolor(4);
for i:=1 to 638 do
begin
x:=(i*pi)/180;
y:=round(-60*sin(x*1.126));
if i<>1 then line(xl,yl,i,y+239);
xl:=i;
yl:=y+239;
end;
end;
procedure cosinus1;
begin
moveto(0,239);
setcolor(14);
for i:=1 to 638 do
begin
x:=(i*pi)/180;
y:=round(-60*cos(x*1.126));
if i<>1 then line(xl,yl,i,y+239);
xl:=i;
yl:=y+239;
end;
end;
begin
clrscr;
init;
wykres;
sinus1;
cosinus1;
readkey;
closegraph;
end.