pawex11 utworzono 9 lutego 2011 utworzono 9 lutego 2011 mam napisać program który doda 2 ułamki. napisałem cos takiego i nie wiem czemu nie działa: program dod_2_ulamki; uses crt; var l1,m1,l2,m2:longint; wynik,x,u1,u2,suma:integer; begin clrscr; write('Podaj pierwszy licznik => ');readln(l1); write('Podaj pierwszy mianownik => ');readln(m1); write('Podaj drugi licznik => ');readln(l2); write('Podaj drugi mianownik => ');readln(m2); writeln; wynik:=m1*m2; while l2<>0 do begin x:=l2; l2:=l1 mod l2; l1:=x; end; wynik:= wynik div l1; begin u1:=wynik/m1; u1:=u1*l1; u2:=wynik/m2; u2:=u2*l2; end; suma:=u1+u2; writeln('Wynik to => ',suma,'/',wynik); readln; end. [b]Proszę o szybka pomoc.Bardzo ważne.[/b]
yuurei komentarz 21 lutego 2011 komentarz 21 lutego 2011 Na początek w tym fragmencie masz błąd a mianowicie nie możesz dzielić liczb typu integer w ten sposób. u1:=wynik/m1; u1:=u1*l1; u2:=wynik/m2; u2:=u2*l2;
Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!
Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.