Forum Gry Hobby Sprzęt Rozmawiamy Archiwum Regulamin

Forum: Pascal mały problem z endem

27.03.2017 22:38
😢
1
stiflerteem
14
Chorąży

Pascal mały problem z endem

Witajcie,
Mam problem z kodem Pascala. Mianowicie coś jest z nim nie tak. czegoś pewnie brakuje ale nie wiem czego, przyznam się że nie siedziałem nad nim długo ale już tracę cierpliwość. A o to kod :
Program podzielnosc;
var
a,b,k,:longword;

begin
write('Podaj liczbę a'); readln(a);
write('Podaj liczbę b'); readln(b);


k:= a mod b;

while (k=0) and (k<0) do
begin
writeln('nie mozliwe')
if k<0 then
begin
k:= a mod b;
writeln('Wynik calkowity', k);
writeln('reszta', k);
end.

27.03.2017 22:51
bisfhcrew
2
odpowiedz
bisfhcrew
169
oversteer

Każdy begin musisz zakończyć.

28.03.2017 09:36
3
odpowiedz
JonsonJonson
101
Generał

"while (k=0) and (k<0) do "

Tłumacząc na nasz:
Dopóki k jest równe 0 i k jest mniejsze od zera rób

Jak widzisz, to nie ma sensu. Nigdy k jednocześnie nie będzie mniejsze i równe zerze.

No i to co napisał poprzednik, masz 3 razy begin, musisz mieć 3 razy end. Traktuj begin i end jak nawiasy w zdaniach. Jak otworzysz nawias to też musisz go zamknąć.

Forum: Pascal mały problem z endem