--> Archiwum Forum
Gandalf-biały [ Mithrandir ]
Problem w Pascalu .
begin
writeln('jakie dzialanie chcesz wykonac');
writeln('[<] mniejsze od');
writeln('[>] wieksze od');
writeln('[=] rowne co do wartosci');
writeln(' identyczne');
readln(dzialanie);
case dzialanie of
'<': begin
if l*m<l1*m1 then
writeln('ulamek pierwszy jest mniejszy od drugiego (',l,'/',m,') < (',l1,'/',m1,')')
else
writeln('ulamek pierwszy nie jest mniejszy od drugiego (',l,'/',m,') nie jest < (',l1,'/',m1,')');
end;
'>': begin
if l*m>l1*m1 then
writeln('ulamek pierwszy jest wiekszy od drugiego (',l,'/',m,') > (',l1,'/',m1,')')
else
writeln('ulamek pierwszy nie jest wiekszy od drugiego (',l,'/',m,') nie jest > (',l1,'/',m1,')');
end;
'=': begin
if l*m=l1*m1 then
writeln('ulamki sa rowne (',l,'/',m,') = (',l1,'/',m1,')')
else
writeln('ulamki nie sa rowne (',l,'/',m,') nie rowna sie (',l1,'/',m1,')');
end;
'i': begin
if l*mi l1*m2 then
writeln('ulamki sa identyczne (',l,'/',m,') i (',l1,'/',m1,')')
else
writeln('ulamki nie sa identyczne (',l,'/',m,') nie sa i (',l1,'/',m1,')');
end;
mam takie pytanie . Jak mam napisac ta komende i- czyli identyczne w Pascalu zeby nie bylo errora bo on caly czas mi pisze error i nie chce dzialac poprawnie ten program.
Qbaa [ Generaďż˝ ]
wklej ten kod jeszcze raz, ale odznacz w okienku dodawania postów opcję "znaczniki"
kastore [ Troll Slayer ]
Bosh Gandalf, nie wiem o co pytasz, albo zrób skan kodu do obrazka, albo wyślij mi to na Gadu albo na poczte