--> Archiwum Forum
barteczeczek [ Chor��y ]
Turbo Pascal HELP !
Mam wielki problem, bowiem musze napisac program ktory oblicza ułamki, a niestety nie potrafie. Chcialbym was prosic o pomoc, prosze pomozcie mi. Program na liczyc ułamki najlepiej by bylo gdyby on liczyl ulamki zwykle znaczy dodawal i odejmowal. Prosze :)
Icm [ Konsul ]
Z tego co wiem to nie obliczysz ułamków zwykłych bo jak je podasz na klawiaturze ? musisz zamienić na dziesiętny a dodawanie dziasietnych to juz banał :P ew. mozesz zapisac ułamek zwykly w formie 1/2 chyba :P
grish_em_all [ Hairless Cobra ]
jezeli mozesz z tym poczekac do wieczora to ci napisze, jak tylko bede w domu
barteczeczek [ Chor��y ]
ok, ok moge poczekac. Tylko nie zapomnij :) moge GG: 2034747 odezwij sie :)
grish_em_all [ Hairless Cobra ]
dobra nie ma sprawy
Qbaa [ Generaďż˝ ]
proszę o kod programu także na forum :P
z góry dzięki
ps. najlepiej odptaszkować w poście z kodem "znaczniki" bo czasem się przez to kod wali
grish_em_all [ Hairless Cobra ]
Qbaa --> prosze bardzo, barteczeczek nie doniosl mi na razie wiesci o zadnych bledach wiec raczej dziala (ja go nie sprawdzalem bo nie mam zadnego kompilatora w tym momencie)
program ulamek;
uses crt;
var l1,l2,m1,m2,c1,c2,l3,m3,c3,dzial,temp:integer;
begin
clrscr;
write("Podaj calosci pierwszego ulamka: ");
readln(c1);
write("Podaj licznik pierwszego ulamka: ");
readln(l1);
write("Podaj mianownik pierwszego ulamka: ");
readln(m1);
write("Podaj calosci drugiego ulamka: ");
readln(c2);
write("Podaj licznik drugiego ulamka: ");
readln(l2);
write("Podaj mianownik drugiego ulamka: ");
readln(m2);
write("Jakie dzialanie chcesz wykonac? 1-dodawanie, 2-mnozenie, 3-dzielenie")
readln(dzial);
case dzial of
1:
begin
if (m1=m2) then begin
l1:=l1+c1*m1;
l2:=l2+c2*m2;
m3:=m2;
l3:=l2+l1;
c3:=l3 div m3;
l3:=l3 mod m3;
write("Wynik to: ",c3," cale i ",l3,"/",m3);
readln;
end else
begin
m3:=m1*m2;
l1:=l1*m2+c1*m3;
l2:=l2*m1+c2*m3;
l3:=l2+l1;
c3:=l3 div m3;
l3:=l3 mod m3;
write("Wynik to: ",c3," cale i ",l3,"/",m3);
readln;
end;
end;
2:
begin
l1:=l1+c1*m1;
l2:=l2+c2*m2;
l3=l2*l1;
m3=m2*m1;
c3=l3 div m3;
l3=l3 mod m3;
write("Wynik to: ",c3," cale i ",l3,"/",m3);
readln;
end;
3:
begin
l1:=l1+c1*m1;
l2:=l2+c2*m2;
temp:=m2;
m2:=l2;
l2:=temp;
l3=l2*l1;
m3=m2*m1;
c3=l3 div m3;
l3=l3 mod m3;
write("Wynik to: ",c3," cale i ",l3,"/",m3);
readln;
end;
end;
end.
grish_em_all [ Hairless Cobra ]
cholera zadne tabulatory sie nie skopiowaly i jest to wszystko troche nieczytelne, ale wierze ze sobie poradzisz
Qbaa [ Generaďż˝ ]
brakowało jednego średnika, trzeba było zamienić cydzysłowy na apostrofy w writach i trzeba było dodać kilka dwykropków w przypisaniach, ale ...
... działa. jak na pisane na sucho to zaskakująco dobrze. gratuluje ;)
z czego i jak długo się uczyłeś pascala?
grish_em_all [ Hairless Cobra ]
uczylem sie rok w liceum praktycznie z niczego, bo korzystalem tylko z tego co nauczyciel gadal, zadnych ksiazek nie mialem, czesc rozgryzlem sam na podstawie helpa w TP
grish_em_all [ Hairless Cobra ]
[edit]:
braki dwukropkow i cudzyslowia zamiast apostrofow wynikaja z tego, ze nie pisalem w pascalu juz 2,5 roku a od tej pory mialem basica i c++i nabralem juz nawykow