Forum Wielotematyczne przyjazne forum Strona Główna
  FAQ  Szukaj  Użytkownicy  Grupy  Galerie   Rejestracja   Profil  Zaloguj się, by sprawdzić wiadomości  Zaloguj 

konwersja liczb

Napisz nowy tematOdpowiedz do tematu Forum Wielotematyczne przyjazne forum Strona Główna -> Pascal
Zobacz poprzedni temat :: Zobacz następny temat
Autor Wiadomość
Fatman:)
Administrator
Administrator



Dołączył: 01 Sty 2007
Posty: 316
Przeczytał: 0 tematów

Pomógł: 3 razy
Ostrzeżeń: 0/6
Skąd: miastetshko city
PostWysłany: Pią 13:56, 16 Maj 2008 Temat postu: konwersja liczb
[link widoczny dla zalogowanych]


Kod:
program bin3;

uses crt;

var
w: array [1..32] of byte;
n,licznik,lp,i,j,l:longint;
t_n:char;
begin
repeat
clrscr;
writeln('podaj podstawe systemu');
readln(n);
writeln;
writeln('podaj liczbe do zamiany');
readln(l);
if (l<0)then writeln ('podana liczba nie jest liczba naturalna !' ) else
begin
i:=1;
repeat

w[i] := l mod n;
lp := l div n;
l :=lp;
i:=i + 1;
licznik := i ;
until lp = 0;
writeln (' otrzymana liczba to');
for i := licznik downto 1 do
write (w[i],' ');
writeln;
end;
writeln('continue ? >>t<<or>>n<<');
read (t_n)
until not (t_n = 't');
end.


Post został pochwalony 0 razy

Ostatnio zmieniony przez Fatman:) dnia Sob 22:15, 17 Maj 2008, w całości zmieniany 1 raz
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:
Napisz nowy tematOdpowiedz do tematu Forum Wielotematyczne przyjazne forum Strona Główna -> Pascal Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1


Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB Š 2001, 2005 phpBB Group
Theme bLock created by JR9 for stylerbb.net
Regulamin
Na skróty:Strefa CodySprawy forumStrefa tematycznaReklamówkaSprawy Forum i PortaluZlotyMuzykaOfftopicDzień Dobry !!!!GryKoncertyPascalSportFotografiaFilm/kisążkaSprawy DO AdminaReklamujemy, PolecamyLINCZ!