x-kom hosting

Pomocy!

pawex11
utworzono
utworzono

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]

  • 2 tygodnie później...

yuurei
komentarz
komentarz

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.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.