mój problem dotyczy turbo pascala polega na tym że gdy w poniższym programie wpiszę literę np.a to wyskakuje błąd i program się zamyka wiem że aby to naprawić trzeba użyć procedury "val" ale nie wiem jak o informacje proszę na maila(to bardzo bardzo pilne): majinvegeta@katalogi.pl
(najlepiej prosiłbym o przesłanie mi procedury bez błędu)
procedure tmnoz;
var i,g,m,k,d,a,c,b,x,l:integer;
begin
clrscr;
randomize;
l:=0;
textcolor(11);
writeln('*********************************** T E S T ******************************');
for i:=1 to 6 do
begin
a:=random(9)+1;
b:=random(9)+1;
c:=random(9)+1;
d:=random(9)+1;
g:=ab;
m:=cd;
textcolor(13);
gotoxy(35,16);
clreol;
gotoxy(31,4);
writeln(' Pytanie : ',i,' z 6' );
gotoxy(20,15); write('ÄÄÄÄ ');
gotoxy(25,15); write('');
gotoxy(28,15); write('ÄÄÄÄ ');
gotoxy(31,15); write('=');
gotoxy(34,15); write('ÄÄÄÄ');
textcolor(11);
gotoxy(21,14); write(a);
gotoxy(29,14); write(b);
gotoxy(21,16); write(c);
gotoxy(29,16); write(d);
gotoxy(35,14);
clreol;
read(x);
gotoxy(35,16);
read(k);
if(x=g) and (k=m) then
begin
gotoxy(50,10);
textcolor(10+blink);
sound(1000);
write(' * DOBRZE * ');
delay(500);
nosound;
gotoxy(39,10);
write(' ');
gotoxy(39,10);
l:=l+1;
end;
if(x<>g) or (k<>m) then
begin
gotoxy(50,10);
textcolor(60+blink);
sound(300);
write('! ZLE !');
delay(500);
nosound;
gotoxy(39,10);
write(' ');
gotoxy(39,10);
textcolor(11);
end;
end;
gotoxy(28,12);
textcolor(11);
write(' Poprawnych odpowiedzi: ', l );
if l=0 then
begin
textcolor(10);
gotoxy(25,20);
write(' T W O J A O C E N A T O: 1 ');
delay(1000);
gotoxy(27,22);
write(' MU-ISZ JESZCZE POŹWICZYŹ ');
end;
if l=1 then
begin
textcolor(10);
gotoxy(25,20);
write(' T W O J A O C E N A T O: 1 ');
delay(1000);
gotoxy(27,22);
write(' MU-ISZ JESZCZE POŹWICZYŹ ');
end;
if l=2 then
begin
textcolor(10);
gotoxy(25,20);
write(' T W O J A O C E N A T O: 2 ');
end;
if l=3 then
begin
textcolor(10);
gotoxy(25,20);
write(' T W O J A O C E N A T O: 3 ');
end;
if l=4 then
begin
textcolor(10);
gotoxy(25,20);
write(' T W O J A O C E N A T O: 4 ');
end;
if l=5 then
begin
textcolor(10);
gotoxy(25,20);
write(' T W O J A O C E N A T O: 5 ');
end;
if l=6 then
begin
textcolor(10);
gotoxy(25,20);
write(' T W O J A O C E N A T O: 6 ');
delay(1000);
gotoxy(32,22);
write('GRATULACJE ',s);
end;
delay(1000);
wcisent;
readkey;
end; {hello}