also... im informatikunterricht sollten wir ein programm schreiben bei dem ein belibiger buchstabe auf einer zufälligen stelle ausgegeben wird und diesen soll man dann drücken und dabei wird die zeit gemessen... soweit so gut...das programm ist fertig und funktioniert auch aber manchmal entstehen unrealistische ergebnisse (wie 64h oder sowas)
hier is das programm:
program ausgabe_buchstaben;
uses wincrt,windos;
var z,spalte,zeile,k,i,u,w:integer;
b,Buchstabe,kb,kBuchstabe :char ;
t,leadingzero: string ;
hund1,m1,h1,s1,hund2,m2,h2,s2,diff_h,diff_m,diff_s,diff_hund:word;
Begin
randomize;
writeln('Ist es ein großer(0) oder kleiner(1) Buchstabe ');readln(u);
spalte:=random(20) ;
zeile:=random(20) ;
gotoxy(spalte,zeile);
z:=random(25) ;
z:=z+65 ;
i:=random(25) ;
i:=i+97 ;
b:=chr(z) ;
kb:=chr(i) ;
gettime(h1,m1,s1,hund1);
if u=0 then begin
writeln(b);
repeat
writeln('Drücken sie den richtigen Buchstaben');
write('Buchstabe= ');readln(Buchstabe) ;
k:=ord(Buchstabe);
until k=z
end
else
begin
writeln(kb) ;
repeat
writeln('Drücken sie den richtigen Buchstaben');
write('Buchstabe= ');readln(kBuchstabe) ;
k:=ord(kBuchstabe);
until k=i;
gettime(h2,m2,s2,hund2) ;
end ;
writeln('Richtig!');
diff_hund:=hund2-hund1;
diff_h:=h2-h1;
diff_m:=m2-m1;
diff_s:=s2-s1;
writeln(diff_h,':',diff_m,':',diff_s,':',diff_hund);
end.
und ich möchte gerne wissen warum der fehler ensteht,wie man ihm beheben kann...wäre echt toll den meine lehrerin wusste auch keinen rat
danke