lásd topic
-
#39 HI! A grafikus módnál if then else-re és amikor az else-t megírtam akkor hibát írt ki neki.Itt a forráskód:
program programom;
uses crt,
graph;
var gd,gm:integer;
bill:char;
a:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setbkcolor(2);
setfillstyle(9,4);
settextstyle(7,0,5);setcolor(1);
outtextxy(250,20,'¹dv”z”llek a programban!');
outtextxy(250,40,'Kezdhetjk?');
outtextxy(250,70,'Rendben');
setfillstyle(9,4);
settextstyle(7,0,5);setcolor(4);
outtextxy(230,230,'Folytat shoz entert');
outtextxy(230,250,'Kil‚p‚shez nyomj "V" bett');
bill:=readkey;
if bill='v' then exit; if bill='V' then exit;
clrscr;
outtextxy(250,20,'Kezdjk els‹nek az ”sszead sokkal');
outtextxy(200,50,'Mennyi 12+5: ');readln(a);
if (a=17) then outtextxy(250,60,'@ Helyes! Nagyon gyes vagy @');
else outtextxy(250,60,'Ñ Nem sikerlt sajnos. A megold s 17 Ñ'); ennek írja ki a hibát
closegraph;
readln;
end.
mi lehet a gond ?