[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.
2006. február 07. \\ geek témában
Kis Pascal nektek
Mefi bejegyzései
Mefi hozzászólásai
-
Bluesky és a Twitter X-odus: így indult meg a tömeg a kék ég felé
"Igen, én is így vagyok vele, a közösség egyelőre..."
-
Otthoni okoskütyük nyomában: Ring Video Doorbell
"Szia! Tyű, passz, nem tudom, miért csinálhatja. Android..."
-
Bluesky és a Twitter X-odus: így indult meg a tömeg a kék ég felé
"majd meglátjuk tíz év múlva :D"
-
Japán élménybeszámoló és egy háttérben meghúzódó kínai-szál
"Hajrá, most amúgy megint nagyon jó áron van a jegy az..."
-
Japán élménybeszámoló és egy háttérben meghúzódó kínai-szál
"köszi szépen!"
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.