![]() |
||
Nagrywarki |
Pliki |
Dyski twarde |
Recenzje |
Księgarnia |
Biosy |
Artykuły |
Nagrywanie od A do Z |
Słownik |
FAQ
|
||
|
Off topic Forum poświęcone wszelkim innym tematom. |
![]() |
|
Opcje związane z dyskusją | Tryby wyświetlania |
|
![]() |
#1 |
Gość
Data rejestracji: 12.12.2002
Posty: 437
![]() |
Polecam stronke www.komputery-internet.net - bardzo duzo o programowaniu m. in. pascal. PS kallkulator to jedna z najprostszych rzeczy jaka mozna zrobic w pascalu...
|
![]() |
![]() |
#ads | |
CDRinfo.pl
Reklamowiec
Data rejestracji: 29.12.2008
Lokalizacja: Sieć globalna
Wiek: 31
Posty: 1227
|
|
![]() |
![]() |
#2 | |
Team Member
![]() Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,320
![]() ![]() ![]() |
Cytat:
..::Update::.. Wynik 2-minutowej pracy (nie mam Pascala wiec napisalem to w Delphi...ale w Pascalu chyba bedzie wygladać podobnie) ![]() Programik robi podstawowe obliczenia (trzeba jeszcze dodac obsluge dzielenie przez zero) Kod:
program kalkulatorek; {$APPTYPE CONSOLE} uses SysUtils; var a,b,w: integer; d: char; begin write ('Podaj pierwsza liczbe: '); readln (a); write ('Podaj druga liczbe: '); readln (b) ; write ('Podaj znak dzialania (+,-,*,/): '); readln (d); if d='+' then w:=a+b; if d='-' then w:=a-b; if d='*' then w:=a*b; if d='/' then w:=a mod b; writeln ('Wynik dzialania wynosi: ',w); readln; end.
__________________
We all know how these things work, so when you hear the beep, go for it...
Ostatnio zmieniany przez MacGyver : 09.01.2005 o godz. 20:22 |
|
![]() |
![]() |
![]() |
#3 | |
Gość
Data rejestracji: 12.12.2002
Posty: 437
![]() |
Cytat:
|
|
![]() |
![]() |
![]() |
#4 | |
Team Member
![]() Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,320
![]() ![]() ![]() |
Cytat:
![]() ![]()
__________________
We all know how these things work, so when you hear the beep, go for it...
|
|
![]() |
![]() |
![]() |
|
|