[ grka @ 12.09.2004. 18:14 ] @
Zadatak kaze sledece


{Napisati program za ispitivanje logickih operacija PASCAL jezika.}

Program prosta5;
var a,b,c: integer;
rez1,rez2,rez3,rez4 : boolean;
begin
writeln('Unesite tri cela broja');
read(a,b,c);
rez1 := (a=b=c);
rez2 := (a<>b<>c);
rez3 := (odd(a-1) and odd(b-1) and odd(c-1))
writeln('a=b=c ',rez1);
writeln('a<>b<>c ',rez2);
writeln(' a,b,c su parni brojevi ',rez3);
writeln(' a,b,c su veci od 0 a manji od 100',rez4);
end.


E sada kada pokusam da kompajliram izlazi mi poruka o gresci u redu
rez1 := (a=b=c);
takodje se javlja u redu izpod.
Kako resiti problem?
[ cicika @ 12.09.2004. 18:23 ] @
Mislim da to a=b=c u Pascal-u nije dozvoljeno. Kad ti izbaci porurku pritisni F1 za help, piše tamo.
[ Marko Stankovic @ 12.09.2004. 19:18 ] @
Da, koliko se i ja secam u pascalu to nije dozvoljeno. Ako si hteo da ispitas u tom redu da li su svi brojevi jednaki onda to mozes uraditi ovako:
rez1:=((a=b) and (b=c));
a sledeci red bi trebao da bude ovako:
rez2:=((a<>b) and (b<>c) and (a<>c));

ostalo je koliko se meni cini dobro. Ukoliko opet nesto zeza vikni :)
[ grka @ 12.09.2004. 20:30 ] @
OK

Ja sam to prepisivao iz knjige.

A jel moze rez1:=((a=b) and (b=c) and(a=c))

ja misilm da je to isto kao i rez1:=((a=b) and (b=c))
[ vladab @ 12.09.2004. 21:22 ] @
Jeste isto, ali nema potrabe da ispitujes tri uslova, kada prva dva impliciraju treci.
:O)