KURS TURBO PASCAL

I TEORIA
Pascal jest językiem programowania wysokiego poziomu. Najłatwiej zacząć naukę pisania programów od tego języka, bo jest on bardzo prosty i zrozumiały. Do pisania programów w Pascalu trzeba posiadać kompilator zazwyczaj są one darmowe na necie trzeba tylko dobrze poszukać.




II PIERWSZY PROGRAM
No to zaczynamy:

Program nazwa;
Begin
Writeln('PASCAL');
Readln;
End.

Teraz wyjaśnię co znaczą poszczególne komendy: "Program nazwa;" każdy program musi posiadać nazwę zamiast wyrazu "nazwa" wpisz swoją nazwę programu ale nie może być w nazwie spacji ale może być np. "nazwa_jeden;". "Begin" po tym słowie porgram rozpoczyna wykonywanie instrukcji zawartej w kodzie, czyli w naszym przypadku wyświetlenie napisu "PASCAL" do momentu naciśnięcia dowolnego klawisza."Readln;" ta procedura zatrzymała nasz program do momentu naciśnięcia dowolnego klawisza, ale to nie jest jej główna funkcja "Readln" służy głównie do wprowadzania danych (zmiennych). "End." zakończenie programu po tym już nic nie może się znajdować.(Po większości komend w Pascalu stawia się średnik)


III PRZYPISYWANIE ZMIENNYCH
W tym dziale wyjaśnię wam, co to są zmienne i do czego one służą zacznijmy od napisania prostego programu z użyciem zmiennych np.:

Program zmienne;
Var
imie:string;
Begin
Writeln('Podaj jak masz na imię');
Readln(imie);
Writeln('Masz na imie ', imie);
Readln;
End.

Jest to chyba najprostszy program z wykorzystaniem zmiennych. Ten program pyta się cię jak masz na imię i wpisujesz swoje imie i on ci podaje jak masz na imię( Prostszego programu chyba nie ma z użyciem zmiennych). Po słowie Var deklarujemy zmienne np. "imie:string; " no i znowu powraca komenda "Readln" tym razem nie do zatrzymania programu, lecz do wprowadzenia zmiennej.



IV TYPY W PASCALU

Typ jest np. "String" tak jak w poprzednim rozdziale typ "String" jest typem znakowym, ale są tez inne typy: całkowite i rzeczywiste.


Typy całkowite:


Nazwa
Zakres wartości

Liczba bajtów



Byte
0...255
1




Shortint
-128...127
1



Word
0...65535
2



Integer

-32768....32767
2



Longint
-2147483648....2147483647
4




V TABLICE I REKORDY

Tablice

Tablice można sobie wobrazic jako uporządkowany zbiór znaków dotychczas robiłeś tablice jednowymiarowe teraz zajmiemy się tworzeniem tablic dwu wymiarowych np.:

Program tablica;
Var
zmie: array[1..10] of integer;
Begin
zmie [1]:=100;
Writeln (zmie[1],'Pascal');
Writeln (zmie[2],'Tablice');
Readln;
End.

Słowem kluczowym do zadeklarowania tablic jest "array" od razu po tym słowie następuje otwarcie nawiasów kwadratowych, w których wpisujemy wielkość tablicy. Po "of" deklarujemy, jakiego typu ma być tablica nasza jest typu "integer" (Elementy tablic muszą być jednego typu).
Nasza tablica wyświetli w słowa "Pascal" i "Tablice" jest to chyba jedna z najprostszych tablic.




Rekordy

Najprostszym zastosowaniem rekordów jest budowa baz danych i innych tego typu rzeczy np.:

Program rekordy;
Type
czlowiek=record
imie: string[30];
wiek: byte;
end;
var
osoba:czlowiek;
begin
writeln('Podaj swoje imie');
readln(osoba.imie);
writeln('Ile masz lat');
readln(osoba.wiek);
writeln(osoba.imie , ' masz ' , osoba.wiek, ' lat ');
readln;
end.

Typ rekordu określamy po słowie "Type" później deklarujemy rekord. Ten program jest bardzo prosty pyta się on nas o imie i wiek potem wyświetla go na ekranie monitora.



VI TABLICE REKORDY I PĘTLA "FOR"

W tym rozdziale zbudujemy małą bazę danych we wcześniejszy rozdziale nauczyłeś się pisać rekordy i tablice t tym połączymy to wszystko i dodamy jeszcze pętle "FOR"

program baza_danych;
type
czlowiek=record
imie:string[30];
wiek:byte
end;
var
tb: array[1..10] of czlowiek;
a:integer;
begin
for a:=1 to 10 do
begin
writeln('podaj imie');
readln(tb[a].imie);
writeln('Podaj ile masz lat');
readln(tb[a].wiek);
end;
end.
Ten program jest małą bazą danych pyta się on nas 10 razy jak mamy na imie i ile mamy lat dzięki pętli "FOR" nie musieliśmy przepisywać 10 razy tego samego kawałka kodu (było to by bezsensu). "for a:=1 to 10 do" to jest pętla "FOR" zamiast 10 mogliśmy wpisać dowolną liczbę ze zbioru "integer".



VII PĘTLA "WHILE"

Pętla "WHILE" jest bardzo prostą pętlom najpierw dam jej przykład zastosowania a potem wyjaśnię, na czym ona polega.

Program petla_while;
var
a:integer;
begin
Writeln ('Podaj kod');
readln (a);
While (a2003) do begin
writeln ('Zly kod:');
Readln (a)
end;
Writeln ( 'Wpisales poprawny kod');
Readln;
end.
{kodem jest liczba 2003}

Jest to program z zastosowaniem pętli "WHILE" dopóki nie wpiszesz liczby 2003 będzie się pytał o kod.



VIII INSTRUKCJA WARUNKOWA

Zastosowanie instrukcji warunkowej jest bardzo proste zaczyna się ona od "if" a kończy na "then" oto przykład instrukcji warunkowej:

Program warunek;
var
l:integer;
begin
Writeln ('Podaj dowolna liczba');
readln (l);
if (l>100) then Writeln('liczba kturom podales jest wienksza od 100');
if (l