mefiblog - főoldal

Én meg most reggelizem :D Na persze nem azért, mert nem volt időm reggel ;) sokkal inkább azért, mert most keltem :D

A pascalt én is szeretem :P PL:
egy program, ami a Delay-nek mutatja ki a pontosságát:

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.

Persze ehez kell egy olyan üres fájl hogy „Log.log”

ötödikes koromban a kedvencem volt :)

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.

Szerintem a QBasic jobb, mint a Turbo Pascal. Vagyis én jobban szeretem. :)