Forum www.ispwsznysa.fora.pl Strona Główna www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Lista 7 zad 1 halikowski

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
stramik
Administrator



Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów

Skąd: Grodków

PostWysłany: Nie 1:38, 09 Gru 2007    Temat postu: Lista 7 zad 1 halikowski

Konwersja dziesietnych na binarne, nie wiem czy trzeba bylo zrobic dla liczb ujemnych.Ten program dziala tylko dla dodatnich.
program zad1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica=array[1..50] of char;

procedure konwersja(a:integer;var licz:integer;var bin:tablica);
begin
repeat
if a mod 2=1 then
bin[licz]:='1';
if a mod 2=0 then
bin[licz]:='0';
a:=a div 2;
licz:=licz+1;
until a=0;
end;

procedure pisz(bin:tablica;licz:integer);
var
i:integer;
begin
writeln('Liczba ta w systemie binarnym :');
for i:=licz downto 1 do
begin
write(bin[i]);
end;
writeln;
end;


var
bin:tablica;
a,licz:integer;
q:char;

begin
repeat
a:=0;
licz:=1;
writeln('Wpisz liczbe do konwersji z dziesietnej na binarna ');
readln(a);
konwersja(a,licz,bin);
writeln;
writeln;
pisz(bin,licz);
writeln;
writeln('Jeszcze raz ?? t/n');
readln(q);
until q<>'t';
end.
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Mardok
Gaduła



Dołączył: 09 Gru 2007
Posty: 91
Przeczytał: 0 tematów


PostWysłany: Nie 20:31, 09 Gru 2007    Temat postu:

program Halik_L7Z1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,n : integer;
s : string;
ch : char;

begin

repeat

write('Podaj Liczbe : ');
readln(n);

s:='';
repeat
s:=IntToStr(n mod 2) + s;
n:=n div 2;
until (n = 0) or (n = 1);
s:=IntToStr(n) + s;

writeln;
writeln('System dziesietny : ',s);
writeln;
write('Wykonac ponownie ? [T/N] : ');
readln(ch);

until (ch <> 'T') and (ch <> 't');

end.
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I 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
Regulamin