Prawdziwe oblicze Informatyki. Tysiące linijek kodu i kompilatory które nigdy nie wybaczają.
Awatar użytkownika

ManyMen296

Posty: 13
Rejestracja: 28 gru 2008, 15:05
    Windows XP Firefox

Post04 lis 2009, 18:38

Witam!

Będę tu zamieszczał programy napisane w języku pascal, oczywiście przezemnie :)


PROGRAM NR.1

Program wyszukiwania największej wartości, ze zbioru 3 liczb całkowitych ( warunek złożony + warunek prosty)

Kod: Zaznacz cały

Program max ;
var
x,y,z:integer;
begin
writeln (\'Program wyszukiwania największej wartości\');
writeln (\'Podaj 3 liczby całkowite\');
readln (x,y,z);
if (x>=y) and (x>=z) then
write (\'Największa wartość to    \'   ,x)
else
if y>=z then
write (\'Największa wartość to    \', y)
else
write (\'Największa wartość to    \',z);
end.

PROGRAM NR.2

Program sprawdzający 3 liczby dodatnie, czy mogą być długościami boków trójkąta, gdy mogą - obliczający pole wzorem Herona

Kod: Zaznacz cały

program trojkat;
var
a,b,c,p,s:real;
begin
writeln (\'Podaj boki trójkąta\');
readln (a,b,c);
if (a>=b+c) or (b>=a+c) or (c>=a+b) then
write (\'To nie są boki trójkąta\')
else
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write (\'Pole trójkąta=  \', S:5:2);
end;
end.

Do skompilowania programu potrzebne jest nam "ALGO" w dalszych częściach FreePascal
Ostatnio zmieniony 04 lis 2009, 18:45 przez ManyMen296, łącznie zmieniany 1 raz.
Obrazek

Excellent's Team

Awatar użytkownika

lolasher

Zasłużony użytkownik
Posty: 2432
Rejestracja: 10 paź 2008, 19:28
Lokalizacja: Zadupie pod Siedlcami ;)
    Windows 7 Opera

Post04 lis 2009, 18:44

Zdaje mi się, że taka funkcja jest już wbudowana w pascal i przeszukuje tablicę chyba. I mógłbyś dawać takie typu rzeczy w formie procedur lub funkcji.

Awatar użytkownika

ManyMen296

Posty: 13
Rejestracja: 28 gru 2008, 15:05
    Windows XP Firefox

Post04 lis 2009, 18:46

A mi się zdaje że nie :P

Mogę dawać tylko czemu one mają służyć dokładniej to napiszę...

Update: PROGRAM NR.2
Obrazek

Excellent's Team

Awatar użytkownika

lolasher

Zasłużony użytkownik
Posty: 2432
Rejestracja: 10 paź 2008, 19:28
Lokalizacja: Zadupie pod Siedlcami ;)
    Windows 7 Opera

Post04 lis 2009, 18:49

Znasz coś do rozwiązywania równań i układów równań :?: Wiem, że są jakieś specjalne metody.

Awatar użytkownika

Ult1me

Administrator
Posty: 2415
Rejestracja: 05 sie 2008, 15:48
Lokalizacja: Wrocław
    Linux Opera
Kontakt:

Post04 lis 2009, 18:51

[quote=""lolasher""]Znasz coś do rozwiązywania równań i układów równań :?: Wiem, że są jakieś specjalne metody.[/quote]

Na równania kwadratowe owszem, na zwykłe hm... nie ma chyba.
Komputery:
Spoiler
Laptop (mój główny komputer): Acer Aspire 5750G | Intel Core i3 2330M (Sandy Bridge) 0.8-2.2GHz | Intel HM65 | 6GB RAM DDR3 | Intel HD Graphics 3000 + nVidia GeForce GT540M (nVidia Optimus) | Crucial MX100 256GB SSD | Broadcom 802.11n Network Adapter | Broadcom NetLink Gigabit Ethernet | Realtek ALC269 (+Dolby Advanced Audio)

Laptop służbowy: HP ProBook

Komputer brata (mój stary): Intel Pentium DualCore E6300 (2x 2.8@1.6-3.25 GHz EIST, 64bit, Intel-VT) | Gigabyte EP43T-UD3L (P43, ICH10) | 2x2 GB RAM DDR3 1066MHz GoodRAM | Palit GeForce GT220 | 2x500 GB (Seagate + SpinPoint F3)

Stacja do napraw: Intel Pentium 4 630 (3.00@2.43 GHz, 64bit, HT, Prescott) | ASUS P5GPL (Intel i915, ICH6) | 2x512 MB RAM DDR1 Kingston (PC-3200) | Gainward GeForce 7300 GT 256 MB DDR2 | jakiś dysk :)

Komputer na części: Intel Pentium III 600 MHz Slot 1 | ASUS P3B-F | 128 MB SDR SDRAM | GeForce 2 MX400 (?) | Seagate 8.4GB PATA

Lumia 625
Dowódca Grupy Odwetowej Mafii C-QUAM, łączącej fanów fal długich, średnich i krótkich, nak***iania kabli j**anych, France Bleu Alsace, The Mighty KBC, Voice of Korea, Warszawskiej Radiostacji Centralnej z najwyższym masztem świata Konstantynowie koło Gąbina, oraz Radiowego Centrum Nadawczego z prawie najwyższymi masztami w Solcu Kujawskim

Awatar użytkownika

ManyMen296

Posty: 13
Rejestracja: 28 gru 2008, 15:05
    Windows XP Firefox

Post04 lis 2009, 19:09

Coś tam znam, w końcu programista jestem :D
Obrazek

Excellent's Team

Awatar użytkownika

tbgkol

Posty: 62
Rejestracja: 07 paź 2009, 19:34
Lokalizacja: Tarnobrzeg
    Windows 7 Safari
Kontakt:

Post04 lis 2009, 19:11

To panie programisto: zróbpan przelicznik jednostek pojemności. Będę wdzięczny. ;p

Awatar użytkownika

ManyMen296

Posty: 13
Rejestracja: 28 gru 2008, 15:05
    Windows XP Firefox

Post04 lis 2009, 19:12

Spoko, zrobi się jak się znajdzie czas
Obrazek

Excellent's Team

Awatar użytkownika

Ult1me

Administrator
Posty: 2415
Rejestracja: 05 sie 2008, 15:48
Lokalizacja: Wrocław
    Linux Opera
Kontakt:

Post04 lis 2009, 19:50

[quote=""tbgkol""]To panie programisto: zróbpan przelicznik jednostek pojemności. Będę wdzięczny. ;p[/quote]

To się dzieli po prostu na X zer. Hm, odpowiednia wartość i sam mógłbym odświeżyć swoją wiedzę.
Komputery:
Spoiler
Laptop (mój główny komputer): Acer Aspire 5750G | Intel Core i3 2330M (Sandy Bridge) 0.8-2.2GHz | Intel HM65 | 6GB RAM DDR3 | Intel HD Graphics 3000 + nVidia GeForce GT540M (nVidia Optimus) | Crucial MX100 256GB SSD | Broadcom 802.11n Network Adapter | Broadcom NetLink Gigabit Ethernet | Realtek ALC269 (+Dolby Advanced Audio)

Laptop służbowy: HP ProBook

Komputer brata (mój stary): Intel Pentium DualCore E6300 (2x 2.8@1.6-3.25 GHz EIST, 64bit, Intel-VT) | Gigabyte EP43T-UD3L (P43, ICH10) | 2x2 GB RAM DDR3 1066MHz GoodRAM | Palit GeForce GT220 | 2x500 GB (Seagate + SpinPoint F3)

Stacja do napraw: Intel Pentium 4 630 (3.00@2.43 GHz, 64bit, HT, Prescott) | ASUS P5GPL (Intel i915, ICH6) | 2x512 MB RAM DDR1 Kingston (PC-3200) | Gainward GeForce 7300 GT 256 MB DDR2 | jakiś dysk :)

Komputer na części: Intel Pentium III 600 MHz Slot 1 | ASUS P3B-F | 128 MB SDR SDRAM | GeForce 2 MX400 (?) | Seagate 8.4GB PATA

Lumia 625
Dowódca Grupy Odwetowej Mafii C-QUAM, łączącej fanów fal długich, średnich i krótkich, nak***iania kabli j**anych, France Bleu Alsace, The Mighty KBC, Voice of Korea, Warszawskiej Radiostacji Centralnej z najwyższym masztem świata Konstantynowie koło Gąbina, oraz Radiowego Centrum Nadawczego z prawie najwyższymi masztami w Solcu Kujawskim

Awatar użytkownika

tbgkol

Posty: 62
Rejestracja: 07 paź 2009, 19:34
Lokalizacja: Tarnobrzeg
    Windows 7 Safari
Kontakt:

Post04 lis 2009, 21:04

Nie, mnie chodziło o przelicznik pojemności komputerowych, żebym np. mógł sobie przeliczyć z mb na kB, lub z Gb na GB, lub GB w domyśle tysiąc, czyli tak jak liczą to producenci HDD. ;p Więc to nei tylko zera. ;p

Awatar użytkownika

lolasher

Zasłużony użytkownik
Posty: 2432
Rejestracja: 10 paź 2008, 19:28
Lokalizacja: Zadupie pod Siedlcami ;)
    Windows 7 Opera

Post04 lis 2009, 23:50

Ogólnie na wszystkie równania coś jest, jakoś czytałem, tylko wykorzystuje jakąś wyższą matematykę której nie rozumiem.

Kto jest online

Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 4 gości