Do tej pory nie bylo potrzeby znac sie na programowaniu .. Ale naszla mnie chec na to zeby jednak sie tego nauczyc i zaczalem od Pascala.
Kompilator - Dev-Pascal. Jestem przy petli while. No i sie zapetla tak ze program nie konczy sie. Co mam zle? Przynajmniej wskazwoka jakas by sie przydala
Kod:
program systemy_liczbowe;
var
Rodzaj : String;
Liczba, Liczba2, dzielenie, dzielenie2 : ShortInt;
begin
Liczba2 := 0;
write ('W jakim systemie jest liczba?');
write ('A: W systemie 10');
write ('B: W systemie 2');
readln (Rodzaj);
if Rodzaj = 'A' then
begin
write ('Podaj liczbe: ');
readln (Liczba);
dzielenie := Liczba mod 2;
dzielenie2 := Liczba div 2;
while dzielenie2 <> 0 do
begin
if dzielenie = 1 then
begin
Liczba2 := 1+Liczba2;
Liczba := Liczba div 2;
end
else
begin
Liczba2 := 0+Liczba2;
Liczba := Liczba div 2;
end;
end;
writeln (Liczba2);
readln;
end
else write ('A to juz nie laska wcisnac?');
readln ();
end.