uses crt;
var
a:string;
begin
writeln('ifade giriniz');readln(a);
if a='sadettin' then write(' merhaba ',a) else write ('hosgeldiniz',a);
readln;
end.
if a='sadettin' (sonuc) then write(' merhaba ',a) else (sonuc) write ('hosgeldiniz',a) ;
ifadesi için Bir olayın olma olasığı
sonuc sonuc
0 1
1 0
if sonuc=0 [a=>süleyman] then birinci sonuç yorumlanmaz else sonuc=1 ikinci sonuç yorumlanır;
if sonuc=1 [a=>çetin] then birinci sonuç yorumlanır else sonuc=0 ikinci sonuç yorumlanmaz;
alıntıdır...
var
a:string;
begin
writeln('ifade giriniz');readln(a);
if a='sadettin' then write(' merhaba ',a) else write ('hosgeldiniz',a);
readln;
end.
if a='sadettin' (sonuc) then write(' merhaba ',a) else (sonuc) write ('hosgeldiniz',a) ;
ifadesi için Bir olayın olma olasığı
sonuc sonuc
0 1
1 0
if sonuc=0 [a=>süleyman] then birinci sonuç yorumlanmaz else sonuc=1 ikinci sonuç yorumlanır;
if sonuc=1 [a=>çetin] then birinci sonuç yorumlanır else sonuc=0 ikinci sonuç yorumlanmaz;
alıntıdır...