boolean kullanımı ve true , false örneği

Başlatan command, 10 Kasım 2009 - 22:30:25

« önceki - sonraki »

0 Üyeler ve 2 Ziyaretçi konuyu incelemekte.

command


uses crt;
var a : boolean;
i:char;

BEGIN
highvideo;
write('query : ');
i:=readkey;
if i='1' then
begin;
a:=true;
write(a);
end
else
a:=false;
if a=false then
writeln(a);
normvideo;
halt(0)
END.