Forum Programosy

Mam problem z pewnym programem w pascalu, wyskakuje mi błąd exitcode 200 lub 207. Co on oznacza? i jak mam go usunać?

exitcode 200 z tego co pamiętam to jest błąd dzielenia przez zero, więc sprawdź czy w działaniu które realizuje program nie wystąpi dzielenie przez zero.

nie zauważyłam takiego;(

[ Dodano: Dzisiaj o 23:01 ]
program binarka2;

uses
crt;

var
m,n,k:real;
i:integer;
p,g:longint;
begin
clrscr;

write('podaj liczbę n= ');
readln(n);
i:=0;
if i<7 then
begin;

p:= n mod 2;

i:=i+1;
n:=(n/2);

write(p,' ');
end;
readkey;
end.

[ Dodano: Dzisiaj o 23:02 ]
nie wiem co się stało ale nie chce kompilować. ten programik tak w ogóle miał zamieniać liczbę dziesiętna na binarną

[ Dodano: Dzisiaj o 23:04 ]
wiem że pewno wam się nie chce, ale mnie na prawdę zalezy

Pascala miałem już trochę temu, więc za bardzo nie pamiętam i nie mam go w domu i nie za bardzo mam jak sprawdzić, ale wydaje mi się że w tym miejscu jest coś nie tak:

bailey1 napisał(a):p:= n mod 2;

Nie mogę sobie przypomnieć jak to było z resztą dzielenia:(

[ Dodano: Dzisiaj o 8:41 ]
Tak wogóle to nie za bardzo rozumie struktórę tego programu, co ma oznaczać ten warunek:

bailey1 napisał(a):if i<7 then

Na moje oko to żeby program zamieniał liczbe dziesiętną na binarną to potrzebna jest pętla w programie, a ja jej nie widzę.

uses
crt;

var
m,liczba,k:real;
i,p:integer;

begin
clrscr;

writeln('podaj liczbę n= ');
readln(liczba);
i:=1;
while i<9 do begin;
liczba mod 2:=p;

i:=i+1;
liczba:=liczba div 2;
write(p);
end;
readkey;
end.

[ Dodano: Dzisiaj o 10:20 ]
teraz lepiej?? nadal nie rozumiem. powinno się wykonywać dopóki i<9

Nie rozumie dla czego pętla ma się wykonywać się do momentu kiedy i=9, czyli 9 razy ma się zapętlać.

Musi to być akurat program w pascalu ??