[code]Program colorer;
Uses Crt; { eznélkül nem megy }
Var x,y : integer;
Begin
TextColor(white);
Repeat
TextBackground(Random(32));
ClrScr;
GotoXY(16,12);
WriteLn(‘Szerintem színes. Szerintem’);
Sound(Random(3200));
Delay(120);
NoSound;
Until keypressed;
NoSound;
End.[/code]Tulajdonképpen ez annyi, hogy véletlen háttérszínt és hangokat generál, egészen addig ameddig egy gombot meg nem nyomunk. Ez van, unatkozom órán.
Discover more from mefiblog
Subscribe to get the latest posts sent to your email.
Devilll
2006. február 07. — 11:30:15
Én meg most reggelizem 😀 Na persze nem azért, mert nem volt időm reggel 😉 sokkal inkább azért, mert most keltem 😀
bali_sb
2006. február 07. — 11:48:30
A pascalt én is szeretem 😛 PL:
egy program, ami a Delay-nek mutatja ki a pontosságát:
[q]program Bcpu_by_bali;
uses Dos,Crt;
var logfajl:Text;
I3:Integer;
I, I2, IV, IDO:Real;
delaj, h, m, s, s100, sveg, y, month, d, dow:Word;
begin
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
WriteLn(‘F jlba ment?s…’);
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
Assign(logfajl,’Log.log’);
Append(logfajl);
GetDate(y,month,d,dow);
WriteLn(logfajl);
WriteLn(logfajl);
WriteLn(logfajl,’—————‘);
WriteLn(logfajl);
WriteLn(logfajl, y,’. ‘, month,’. ‘, d,’.’);
ClrScr;
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
WriteLn(‘Analiz l s…’);
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
repeat
GetTime(h, m, s, s100);
until s100 < 10; GetTime(h, m, s, s100); GetTime(h, m, s, sveg); IDO:=sveg-s100; repeat delaj:=500; begin repeat repeat GetTime(h, m, s, s100); until s100 < 10; GetTime(h, m, s, s100); Delay(Delaj); GetTime(h, m, s, sveg); TextColor(blue); Write(sveg-s100 :4); if sveg-s100 < 50 then delaj:=delaj+1; if sveg-s100 > 50 then delaj:=delaj-1;
if KeyPressed then begin sveg:=100; s100:=50; Write(‘XX’ :4); end;
TextColor(green);
until sveg-s100 = 50;
end;
WriteLn(logfajl, h, ‘:’, m, ‘:’, s);
WriteLn(logfajl, 2*delaj);
WriteLn(logfajl);
GotoXY(77,WhereY); WriteLn(delaj: 3);
I:=I+delaj;
I2:=I2+1;
until KeyPressed;
IV:=I/I2;
TextColor(red);
WriteLn(logfajl);
WriteLn(logfajl,’—————‘);
WriteLn(logfajl);
WriteLn(logfajl, ((500-IV)*2)-IDO);
Close(logfajl);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);Write(‘Az tlagkileng?s:’); GotoXY(63, WhereY); WriteLn(((500-IV)*2)-IDO);
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
ReadLn
end.
[/q]
Persze ehez kell egy olyan üres fájl hogy „Log.log”
bali_sb
2006. február 07. — 11:50:53
ötödikes koromban a kedvencem volt 🙂
chateve
2006. február 07. — 16:43:20
Szerintem a QBasic jobb, mint a Turbo Pascal. Vagyis én jobban szeretem.:)
Mefi
2006. július 22. — 12:27:48
Ez így kommentben ütős volt. Egyébként a delay pontossága már szinte lényegtelen, mivel minden gépen más. Alapvetően amikor tervezték, akkor a delay(60); az pontosan egy percig várt volna. Ezt egy 2-3 GHz órajelű processzornál már észre sem veszed.