Konwersje Liczbowe - Pascal

Sojusz Fallen
Fallen

FAQ

Szukaj

Użytkownicy

Grupy

Galerie

Rejestracja

Profil

Zaloguj się, by sprawdzić wiadomości

Zaloguj

Konwersje Liczbowe - Pascal

Forum Sojusz Fallen Strona Główna -> Ściągi, Zadania itp. / Informatyka Zaawansowana

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Ricko
Brain
<FONT COLOR=DAA520>Brain</FONT>

Dołączył: 07 Sie 2006
Posty: 3255
Przeczytał: 0 tematów

Pomógł: 5 razy
Ostrzeżeń: 0/5
Skąd: ..::Zabrze::..

Wysłany: Wto 20:21, 23 Lis 2010 Temat postu: Konwersje Liczbowe - Pascal

Z 10 NA 2

Cytat:

program z10na2;

uses crt;

var
a,i,j:integer;
t:array[1..20]of integer;

begin
clrscr;

writeln('Podaj a');
readln(a);
i:=1;

if a<>0 then
while a<>0 do
begin
if a mod 2=0 then
t[i]:=0
else
t[i]:=1;

a:=a div 2;
i:=i+1;
end;

for j:=i-1 downto 1 do
write(t[j]);

readln;
readln;
end.

Działanie:
Podana liczba:

Cytat:

Wynik:

Cytat:

10101

_____________________________________________________________

Z 2 NA 10

Cytat:

program z2na10;

uses crt;

var
a:string;
i,w:integer;

begin
clrscr;
writeln('Podaj liczbe binarna');
readln(a);
w:=0;

for i:=1 to length(a) do
if a[i]='1' then
w:=w*2+1
else
w:=w*2;

writeln(w);
readln;
end.

Działanie:
Podana liczba:

Cytat:

1010

Wynik:

Cytat:

Post został pochwalony 0 razy

Ostatnio zmieniony przez Ricko dnia Nie 12:39, 28 Lis 2010, w całości zmieniany 3 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum Sojusz Fallen Strona Główna -> Ściągi, Zadania itp. / Informatyka Zaawansowana	Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

Skocz do:

Możesz pisać nowe tematy
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

Regulamin