| Autor |
Wiadomość
|
|
Przemo
|
 Wysłany: Wto 23:50, 20 Lis 2007 Temat postu: Pascal gotuj! |
|
|
Dołączył: 04 Paź 2007
Posty: 18
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Katowice
|
Tu walcie z programami z pascala
Post został pochwalony 0 razy
Ostatnio zmieniony przez Przemo dnia Wto 23:52, 20 Lis 2007, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
 |
|
|
 |
|
bonzai10
|
Wysłany: Czw 9:55, 08 Lis 2007
PRZENIESIONY
Wto 23:51, 20 Lis 2007 Temat postu: Wstęp do programowania, przeliczanie z dec na bin |
|
|
Dołączył: 11 Paź 2007
Posty: 39
Przeczytał: 0 tematów
Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: Nienacka
|
Znalazłem taki program w necie który nie wykorzystuje żadnych nieznanych rzeczy ale nadal nie rozkminiam tego,
program dectobin;
uses crt;
var a: integer;
b: string;
begin
clrscr;
Write('Liczba dziesietna: ');
ReadLn(a);
b := '';
repeat
if (a and 1) = 0 then
b := '0' + b
else
b:= '1' + b;
a:= a shr 1;
until a = 0;
WriteLn('Liczba binarna: ', b);
repeat until keypressed;
end.
Program działa dobrze dla liczb całkowitych, nie wiem czy koleś chciał dla ułamków terz.
Wytłumaczcie mi jak ten program działa, dodajcie komentarze czy coś.
Ewentualnie podajcie swoje propozycje. Mimo, że mam TP od miesiąca to mało z tego rozumiem.
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
|
Stawi
|
| Wysłany: Śro 3:31, 21 Lis 2007 Temat postu: |
|
|
Dołączył: 17 Paź 2007
Posty: 11
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Kraków
|
Jezu.. nie uzywajcie
| Kod: |
| repeat until keypressed; |
ale
| Kod: |
| Readkey; { czeka na dowolny klawisz } |
albo chociaz glupiego
| Kod: |
| Readln; { czeka na enter } |
Niby to samo, jednak pusta petla jest troche "naiwna" ale to tylko moje skromne zdanie 
PS: no i uzywac znacznika [ code ] tu kod programu [ /code ] latwiej sie czyta i znajduje poczatek i koniec
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
|
|
