szukanie zaawansowane
 [ Posty: 4 ] 
Autor Wiadomość
Kobieta Offline
PostNapisane: 1 mar 2009, o 13:40 
Użytkownik

Posty: 14
napisać program w Turbo Pascalu, który zamienia liczby z systemu dziesiątkowego na ósemkowy i szesnastkowy i odwrotnie
Góra
Mężczyzna Offline
PostNapisane: 1 mar 2009, o 15:01 
Gość Specjalny
Avatar użytkownika

Posty: 4819
Lokalizacja: Grodzisko Dolne/Kraków
koleżanka potrafi pisemnie zamienić takie liczby w różnych systemach?


google nie gryzą
Zamiana z i na system dziesiętny
Góra
Mężczyzna Offline
PostNapisane: 1 mar 2009, o 22:53 
Użytkownik
Avatar użytkownika

Posty: 683
Lokalizacja: Gliwice
Kod:
1
2
3
4
5
6
procedure pisz(n,podstawa:integer);
begin
    if n >= podstawa then
        pisz(n div podstawa, podstawa);
    write( n mod podstawa)
end;
Góra
Mężczyzna Offline
PostNapisane: 2 mar 2009, o 00:09 
Użytkownik
Avatar użytkownika

Posty: 107
@up: imho należałoby jeszcze coś dodać na zamianę cyfr na litery. (dla szesnastkowego)
Góra
Utwórz nowy temat Odpowiedz w temacie  [ Posty: 4 ] 


 Zobacz podobne tematy
 Tytuł tematu   Autor   Odpowiedzi 
 Ostatnie cztery zadania, z którymi mam problem - Pascal.
Proszę o pomoc (najlepiej rozwiązanie, jeśli jest taka możliwość) nast epujących zadań: 1. Napisz program liczby, który do pliku liczby.dat zapisze 100 losowych liczb całkowitych z przedziału , a nastepnie odczyta je z tego ...
 Fristajler_2005  6
 zmiana podstawy (system liczbowy)
\frac{ 2^{52}*3 }{ 6^{50} } jak bedzie wygladac ta liczba w systemie o podstawie 6?...
 Zupa  3
 System liczbowy - biografia.
W jakim systemie liczbowym zapisano biografię? Ukończyłem uniwersytet w 44 roku życia; po roku, jako już 100-letni młodzieniec, ożeniłem się z 34-letnią panienką. Nieznaczna ...
 kalina5113  1
 [Pascal] Ciąg liczb rzeczywistych z zastosowaniem tablicy
Wczytać ciąg n liczb rzeczywistych. Obliczyć sumę elementów ciągu i średnią arytmetyczną. Znaleźć najmniejszy element ciągu. Wypisać ciąg w odwrotnej kolejności i w postaci: a= [tex:artx5nr...
 kalik  3
 Turbo pascal - pliki tekstowe
Mam taki program w turbo pascalu: program I; var txt:string; tekst:text; begin assign(tekst,TEKST.TXT); rewrite(tekst); writeln('Napisz tekst'); writeln; readln(txt); writeln(tekst,txt); close(tekst); end. Wyjaśnijcie na czym polega działanie t...
 eerroorr  3
 Kiedy przerwać zamianę kodu liczby na system trójkowy
Witam, kiedy należy przerwać zamianę kodu liczby 22,375 _{10} na w systemie trójkowym? Przez dzielenie uzyskałam część całkowitą: 211 _{3} Natomiast mnożąc część ułamkową razy 3, wynik się po...
 banja  1
 Turbo pascal - zadanie 6
Mógłby ktoś podać przykład programu rysującego poruszający się obiekt np.kwadrat....
 szymek12  1
 [Pascal] Problem z Quicksort.
Witam, mam problem z quicksortem w pascalu, program się kompiluje, ale przy próbie uruchomienia wyskakuje Stack ofverflow error. Oto kod programu: program as; uses crt; type tab=array[1..25] of integer; var plik&#58...
 sothisguy  1
 Pascal szyfrowanie
Treść: "Napisz program, który będzie umożliwiał szyfrowanie i odszyfrowanie pliku."...
 wesoly126  5
 [Turbo Pascal] Określenie, czy wczytany znak jest literą - zadanie 9
Mam do napisania program w turbo pascalu który polega na tym że wpisuje jakiś znak z klawiatury i wypisuje mi czy jest to litera czy nie. Bardzo proszę o pomoc ...
 anetaaneta1  3
 Jak skopiowac Turbo Pascala na komputer
Jak przeniesc TP na komputer? Nie mam netu. Aha i czy ktos moze wie co moze byc nie tak w tym programie? program strzal; uses Crt, GRAPH; var x,y :integer; a,alfa,b,vo :real; odl :string ; ster, tryb :integer; begin clrscr; wri...
 parabol  5
 [Pascal] Wyważone drzewo binarne.
Witam, proszę o pomoc z napisaniem programu w pascalu. Muszę napisać program który będzie tworzył wyważone drzewo poszukiwań binarnych. (BST) No i teraz. Co wiem? Wyważone drzewo binarne to takie które ma jak najniższą wysokość. No i teraz dla ...
 Pietrzak93  8
 [pascal] wczytywanie z pliku liczb oddzielonych spacjami
w pliku tekstowym dane maja postać np: 3 2 10 1 1 11 Potrzebuje wczytać 3 do zmiennej x1, 2 do zmiennej x2, a 10 do zmiennej r1. Napisałem to tak: type plik=TEXT; var we :plik; ...
 SK8  0
 Macierz odwrotna do kwadratowej 2x2[pascal]
Napisałam program w pascalu, jak w temacie, ale nie liczy poprawnie macierzy odwrotnej: program macierz_odwrotna_2x2; var i,j:integer; A,B,C:array[1..2,1..2] of real; begin for i:=1 to 2 do for j&#...
 Natasha  3
 [Pascal] Sprawdź, czy liczba jest dodatnia - zadanie 2
Wczytaj liczbę całkowitą i sprawdź czy jest dodatnia, ujemna, czy równa 0...
 kalik  1
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com