Dzielenie w Pascalu


(Wlkp52) #1

Witam

Musze napisać program w Pascalu dzielący 2 liczby i mam z tym mały problem. Mianowicie należy zastosować warunek bo nie można dzielić przez zero. Prosiłbym o pomoc bo zatrzymałem sie na prawie początku i nie wiem co dalej.

Program dzielenie;

USES crt;

Var a, b, c:=iloraz;

Begin

    ClrScr;

co dalej? nie zdziwię sie ze w tym co napisałem jest błąd. proszę o pomoc


(Ryan) #2

Brakuje na końcu

End.

Poza tym błędne jest

Var a, b, c:=iloraz;

Jeśli chcesz sprawdzać, czy dzielnik nie jest zerem, wykorzystaj IF.


(Krzysiekaczor) #3

Witam!

Na początek:

Var a,b,c : integer;

Chyba tak(nie mam komplilatora przy sobie :mrgreen: ) Jeżeli ty nie posiadasz jakiegoś debuggera to google.pl -> Free Pascal i to jest darmowy odpowiednik Turbo Pascala!

A wracając do tego dzielenia do spróbuj przez div dokładnie nie pamiętam (tak jest w PHP), powinno zadziałać. Na przyszłość google.pl i

http://turbopascal.skryptoteka.pl/- kurs tp (nie mylić z Telekomunikacją Polską :wink: )

Pozdrowienia i powodzenia w dalszej nauce :wink:

PS: To mój pierwszy post, proszę o wyrozumiałość :slight_smile:

PS2: Na końcu programu zwykle stawia się end.

EDIT: Ktoś mnie ubiegł :wink:


(Pbk24) #4

to powinno być mniej więcej tak

var a, b, iloraz: integer; (lub real)

begin

writeln(podaj liczbę pierwszą);

readme(a);

writeln (podaj liczbę drugą);

readme(b);

if b<>0 then

begin

iloraz:=a/b;

else write(druga liczba musi być różna od zera);

end;

end.


(Ryan) #5

Mniej więcej, bo masz błędy w liniach z WriteLn i w konstrukcji IFa.


(Pbk24) #6

a co nie jest tak z IFem ??

jeśli b jest rózne od zera wykonaj operację


(Ryan) #7

Chociażby położenie Enda jest błędne.


(rozwalkompa) #8

Uwzględniając powyższe:

var a, b, iloraz: integer;


begin

writeln('podaj liczbę pierwszą');

readln(a);

writeln('podaj liczbę drugą');

readln(b);

if b<>0 then iloraz:=a div b

else writeln('druga liczba musi być różna od zera');

readln;

end.

(Wlkp52) #9

Dzięki za pomoc.