Pascal z 10 na 2

[mlodszy]

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

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.

[Radiol]

Tylko raz wykonuje dzielenie2 i jak jest różne od zera to wykonuje środek pętli. Nigdzie w pętli nie zmienia wartości dzielenia2 i dlatego pętla jest nieskończona. Ogólnie algorytm nie jest poprawny.

Pozdrawiam

[mlodszy]

Ale sadzilem ze jezeli zmieni sie wartosc "Liczba" to automatycznie zmieni sie rowniez wynik dzielenia. Czyz nie tak?

[Radiol]

Nie algorytm jest wykonywany z góry na dół. I po wykonaniu kroku o ile nie jest w pętli, funkcji to nie wraca. Musiałbyś wrzucić

dzielenie2 := Liczba div 2

w pętle while. Ogólnie cały algorytm nie bardzo.

Pozdrawiam

[mlodszy]

No troche zmienilem Doszedlem nawet do tego ze dzielenie trzeba dodac. Zostalo mi tylko wypisywanie liczby. Obecnie mi dodaje bo mam +

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
                Liczba3 := 1;
	  Liczba2 := 1+Liczba2;
                Liczba := Liczba div 2;
                dzielenie := Liczba mod 2;
                dzielenie2 := Liczba div 2;
                end
			else
                begin
                Liczba2 := 0+Liczba2;
                Liczba := Liczba div 2;
                dzielenie := Liczba mod 2;
                dzielenie2 := Liczba div 2;
                end;
        end;
  		writeln (Liczba2);
        readln;
        end
	else write ('A to juz nie laska wcisnac?');
      readln ();
	
end.

Chcialem zastosowac "Concat" ale wywala blad. Jest do tego jakas alternatywa?