Misja Tereski
Zamiana liczby z systemu dziesiętnego na system binarny.
Specyfikacja i opis problemu : link Lista kroków : Download: Rapidshare, Hotfile, Megaupload, Przeklej i Inne Dane wejściowe : zmienna liczba typu całkowitego; Dane wyjściowe : zmienna wynik typu string, czyli zmienna liczba zamieniona na system binarny; Postępowanie : 1 Wczytaj liczbe. 2 Powtarzaj kroki 3,6 dopóki zmienna liczba nie przyjmie wartości 0. 3 Sprawdź czy reszta z dzielenia zmiennej liczba przez 2 jest równa zero. Jeżeli tak, to przejdź do kroku 4, jeśli nie to przejdź do kroku 5. 4 Przyjmij za wynik wynik = "0" + wynik. 5 Przyjmij za wynik wynik = "1" + wynik. 6 Przyjmij za liczbę, część całkowitą z jej dzielenia przez 2. Download bez limitów Kod źródłowy : Download: Rapidshare, Hotfile, Megaupload, Przeklej i Inne (* Program zamienia podaną liczbę z systemu dziesiętnego na binarny(dwójkowy) *) PROGRAM zamiana_binarna; uses crt; var liczba : cardinal; { ______________________________________________________ } Procedure binarna (liczba:word); var wynik : ansistring; Begin repeat (* wykonuj ... *) if liczba mod 2=0 then wynik:='0'+wynik else wynik:='1'+wynik; liczba:=liczba div 2; until liczba=0; (* dopoki liczba=0 *) writeln(wynik); End; { ______________________________________________________ } BEGIN clrscr; writeln('Zamiana liczby z systemu dziesietnego na binarny. '); writeln; write('Podaj liczbe: '); readln(liczba); writeln; write('Binarna : '); binarna(liczba); readkey; END. Download bez limitów Dziękuje i zapraszam na kolejne poradniki & programy mojego autorstwa. Jaspher © Maciej Sikorski, 2010 Wszelkie prawa zastrzeżone. |