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
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.
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ą 
)
Pozdrowienia i powodzenia w dalszej nauce
PS: To mój pierwszy post, proszę o wyrozumiałość 
PS2: Na końcu programu zwykle stawia się end.
EDIT: Ktoś mnie ubiegł
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.
Mniej więcej, bo masz błędy w liniach z WriteLn i w konstrukcji IFa.
a co nie jest tak z IFem ??
jeśli b jest rózne od zera wykonaj operację
Chociażby położenie Enda jest błędne.
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.Dzięki za pomoc.