Dziś to jest kolejny dzień mojego programistycznego życia ;) . Poznaliśmy zmienną instrukcje if i od razu życie stało się piękniejsze, bo coś się wreszcie dziać zaczyna. Oczywiście nie mogło zabraknąć mojej weny twórczej podczas nauki; tym oto sposobem podczas nauki osiągnąłem pseudo blue screen’a ;) . Czemu pseudo? Ha, sami sobie zobaczcie.

program instrukcja_if;
uses crt;
 
begin
textbackground(1);
clrscr;
textcolor(8);
 
writeln;writeln;
textcolor(15);
write(' Blad 0x00000');
writeln(' Aplikacja explorer.exe');
writeln;
writeln(' wykonala nieprzewidziana operacje');
writeln(' W celu unikniecia problemu zrestartuj komputer');
writeln;writeln;
writeln(' Jesli tego nie zrobisz, to sledzik nie zniknie z naszej-klasy xD');
writeln(' Zrzucanie pamieci fizycznej');
writeln;writeln;
readln;
 
write(' By zakonczyc nacisnij <Enter>');
readln;
 
end.

Takie wielkie nic zrobione na szybko ;) . Teraz tak myślałem nad wprowadzeniem zmiennych z instrukcji if właśnie, że jeśli da się tak, że ma się śledzika, to coś tam, a jeśli nie, to coś tam, ale mam ciekawsze zajęcie, o czym dalej.

To, co wyżej wkleiłem to zabawa, jak już wspomniałem poznaliśmy instrukcję if, a co się z tym wiąże? No oczywiście napisaliśmy swój skrypcik ;) .

program instrukcja_if;
uses crt;
var
wiek : real;
 
begin
textbackground(1);
clrscr;
textcolor(7);
writeln;
write(' Podaj ile masz lat: ');
readln(wiek);
writeln;
if ((wiek>130) or (wiek<=0)) then
begin
writeln;writeln;
textcolor(12);
write(' Jaja se robisz? Masz ' ,wiek:0:0,' lat?!');
writeln(' No, ale alkohol mozesz pic :D.');
end
else
begin
writeln;
write(' Masz ' ,wiek:0:0,' lat - luz, jestes normalny.');
if (wiek<18) then
begin
writeln;writeln;
textcolor(14);
write(' Nie mozesz pic alkoholu ');
end
else
begin
writeln;writeln;
textcolor(11);
write(' Mozesz chlac do upadlego');
end;
end;
 
writeln;writeln;
textcolor(15);
write(' By zakonczyc nacisnij <Enter>');
readln;
end.

Co to robi? Ano wypluwa komunikaty. Jeśli ma ktoś powyżej 130 lat, to coś nie halo z nim, jeśli ma mniej niż 130, a zarazem więcej niż 18, to jest pełnoletni, a jeśli ma poniżej 18, to jest niepełnoletni. Proste.

I tym właśnie sposobem chciałbym napisać swój pseudo konwerter z systemu heksolidalnego do binarnego. Ale borykam się z dwoma myślami…

1. Jaką zmienną podać? Real, string, czy po prostu rozpisywać, że 1 : 0001, itd.
2. Jak zrobić, by ten program nie zamykał się po spełnieniu warunku.
3. No i w sumie jeszcze jedna dość istotna. Nie wiem, jak zrobić, by można było zamienić np. ciąg 4CD2 z HEX na binarne.

Ach… początkującym programistą być to nie jest łatwa sprawa ;) .