| Autor |
Wiadomość |
| Stawi |
 Wysłany: Śro 3:31, 21 Lis 2007 Temat postu: |
|
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 |
|
 |
| bonzai10 |
| Wysłany: Wto 23:51, 20 Lis 2007 Temat postu: Wstęp do programowania, przeliczanie z dec na bin |
|
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. |
|
|
| Przemo |
| Wysłany: Wto 23:50, 20 Lis 2007 Temat postu: Pascal gotuj! |
|
| Tu walcie z programami z pascala |
|
|
