| |
Turbo Pascal Twoje źródło wiedzy o Turbo Pascalu. |
|
|
|
|
|
 |
Pią 19:47, 03 Mar 2006 |
 |
 Autor |
Wiadomość |
istredd`
Średnio zaawansowany
Dołączył: 14 Lut 2006
Posty: 37
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
Skąd: Kraków
|
| Temat postu: Zgadnij wylosowaną liczbę |
|
|
| Kod: | program zgadula;
// Nalezy odgadnac liczbe wygenerowana
// przez komputer w jak najmniejszej ilosci prob.
uses
Crt;
procedure zakres(var b : integer);
begin
repeat
Write('Z jakiego zakresu chcesz wygenerować liczbę? 1..');
read(b);
if (b < 2) or (b > 30000) then writeln('Liczba spoza zakresu! 2..30000');
until (b > 1) and (b < 30001);
end;
procedure generuj(b : integer; var liczba : integer);
begin
randomize;
liczba := random(b) + 1;
end;
procedure szukanie(liczba : integer; var b,szuk : integer);
var
a,x : integer;
begin
clrscr;
a := 1;
Repeat
//write(b);
Writeln('Liczba z zakresu: [',a,'..',b,']');
read(x);
clrscr;
if (a < liczba) and (liczba < x) and (x < b) then
begin
b := x;
writeln('Liczba jest za duza');
end;
if (a < x) and (x < liczba) and (liczba < b) then
begin
a := x;
writeln('Liczba jest za mala');
end;
szuk := szuk + 1;
until x = liczba;
end;
var
b,szuk,liczba : integer;
begin
zakres(b);
generuj(b,liczba);
szuk := 0;
write(b);
szukanie(liczba,b,szuk);
writeln('Liczba: ',liczba:6,'; ilosc prob: ',szuk:6);
delay(1000);
end. |
Na razie nie podaję gotowych plików wykonwyalnych, gdyż programuję pod Linuksem :). No chyba, że chcecie binarka uniksowe :D
Post został pochwalony 0 razy
|
|
| |
|
|
|
|
|
 |
|
Czw 22:49, 23 Mar 2006 |
|
| Autor |
Wiadomość |
Arnvald
Początkujący
Dołączył: 23 Mar 2006
Posty: 5
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: Re: Zgadnij wylosowaną liczbę |
|
|
| istredd` napisał: |
Na razie nie podaję gotowych plików wykonwyalnych, gdyż programuję pod Linuksem :). No chyba, że chcecie binarka uniksowe :D |
A mogą być i pliki uniksowe :P :P
@istredd`: nie obraziłbyś się jakbym Cię poprosił o pomoc przy programowaniu w Pascalu pod linuksem? chodzi mi konkretnie o to jak odpalić freepascala i czy mogę napisać coś np. w VIMie a potem tylko skompilować przez freepascal :)
Post został pochwalony 0 razy
|
|
| |
|
|
|
Czw 23:47, 23 Mar 2006 |
|
| Autor |
Wiadomość |
istredd`
Średnio zaawansowany
Dołączył: 14 Lut 2006
Posty: 37
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
Skąd: Kraków
|
| Temat postu: |
|
|
FreePascal obecnie jest tylko i wyłącznie kompilatorem. Nie ma więc swojego IDE - czyli środowiska takiego jak TurboPascal. Do tego świetnie nadaje się przez Ciebie wspomniany VIM. Najpierw tworzysz i edytujesz plik tekstowy w VIMie, a potem kompilujesz komendą:
ppc386 zrodla.pas binaria
Post został pochwalony 0 razy
|
|
| |
|
|
|
Wto 18:48, 24 Kwi 2007 |
|
| Autor |
Wiadomość |
Maplo46
Początkujący
Dołączył: 24 Kwi 2007
Posty: 9
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Maplo46's free adult video storage:
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
| |
|
|
|
Czw 1:59, 26 Kwi 2007 |
|
| Autor |
Wiadomość |
Doendedes52
Początkujący
Dołączył: 26 Kwi 2007
Posty: 6
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Hardcore sex!
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
| |
|
|
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, 2002 phpBB Group
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
Kody źródłowe 
