Informatyk, podróżnik, fotograf

Informatyczne podejście do życia w obrazkach, kolorach i dźwiękach

Kamil Porembiński

Stare dobre czasy - Pascal

Od kilku godzin siedzę i programuję sobie z prześliczną Kasią w Pascalu. Nie ma to jak trzeci język programowania jaki poznałem :) Do napisania prosty programik do konwertowania liczb z systemu binarnego.

while wybor <> 'n' do
begin
        write('Podaj liczbe binarna: ');
        readln(binarna);
        if isdigit(binarna) <> 'error' then
        begin
                writeln('BIN: ', binarna);
                writeln('OCT: ', osemkowy(binarna));
                writeln('DEC: ', dziesietny(binarna));
                writeln('HEX: ', szesnastkowy(binarna));
        end
        else
                writeln('ERROR: Podaj liczbe w formacie binarnym!');
        write('Czy chcesz przekonwertowac nowa liczbe? [t/n]?');
        readln(wybor);
end;

Wracam pisać ;-) Pascal i Kasia. Brzmi cudownie. Aż się łezka w oku ze szczęścia kręci ;-)

ikonka 01 czerwca 2008, 23:45:01

Komentarze

Voronwe, 01 czerwca 2008, 23:53:28

Może źle zrozumiałem, ale czy jak wrócę do Pascala to jakaś Kasia będzie gratis od Borlanda? :D

paszczak000, 01 czerwca 2008, 23:54:14

No wiesz :) Tylko tacy jak ja mają do Pascal, fajne Kasię gratis :P

A w sumie to Kasia była, a gratis Pascal :P

Voronwe, 01 czerwca 2008, 23:54:51

To w takim razie pozostanę póki co przy PHP/C ;]

paszczak000, 02 czerwca 2008, 00:01:53

w PHP to tylko Kubuś chce ze mną programować ;P

Zal, 02 czerwca 2008, 01:39:08

W takim razie do Perla powinni dodawać kij golfowy, do Pythona zgniłego węża, a do C/C++ jakąś protezę ;-]

FORTRAN... Ciekawe, co bym dostał do FORTRAN-a gratis :D

paszczak000, 02 czerwca 2008, 01:53:55

Do FORTRANa dostaniesz zgniłego fizyka :P

paszczak000, 02 czerwca 2008, 01:58:08

Aż mi się oczka cieszą :)

paszczak000[at]muszelka:~$ fpc pascal.pas Free Pascal Compiler version 2.2.0 [2008/04/01] for i386 Copyright (c) 1993-2007 by Florian Klaempfl Target OS: Linux for i386 Compiling pascal.pas Linking pascal 123 lines compiled, 0.2 sec

Stare dobre czasy ;-) :)

ikonka thermal, 02 czerwca 2008, 08:48:07

Do Pythona to dostajesz martwą papugę ;). Albo Johna Cleese`a (i kredyt do tego). Mega promocja.

ikonka Aggie, 02 czerwca 2008, 11:19:36

no to fajnie ze miales udany czas ;)

paszczak000, 06 czerwca 2008, 00:27:04

Udany to był program :]

Podpis:
Treść:
Strona WWW (opcjonalnie):
Wpisz kod:code
Składnia Textile Lite jest włączona.

Powered by Jogger. Copyright © 2002-2003 Justin Mecham & JabberPL Group

Licencja: Creative Commons Uznanie autorstwa 3.0