
Code: Alles auswählen
program counter;
var t:longint;
begin
for t := 1 to 40000000 do begin
writeln(t);
end;
readln;
end.
Code: Alles auswählen
program counter;
var t:longint;
begin
for t := 1 to 40000000 do begin
writeln(t);
end;
readln;
end.
Um genau zu sein sagt das über die Sprache gar nichts aus, weil writeln die Aktion von fast komplett vom Bet6riebssystem erledigt wird.theo hat geschrieben:Das sagt nicht viel verlässliches aus.
Wie geht der alte Elektronikerspruch: "Wer misst misst Mist"kunstlust hat geschrieben: Primär hat mich der Unterschied zwischen Mac und Windows verwundert.
Benchmarking vom textueller I/O soll immer settextbuf benutzen.kunstlust hat geschrieben: program counter;
var t:longint;
begin
for t := 1 to 40000000 do begin
writeln(t);
end;
readln;
end.
[/code]