Pascal – Język Programowania
Pascal to język programowania wysokiego poziomu stworzony przez Niklausa Wirtha w 1970 roku. Jego rozwój rozpoczął się w 1968 roku, a pierwsza wersja kompilatora została opublikowana w 1970 roku. Język szybko zyskał popularność, szczególnie w środowiskach edukacyjnych.
Historia i Popularność
Pascal zyskał dużą popularność w Polsce dzięki łatwej dostępności kompilatorów, prostocie oraz wsparciu ze strony uczelni. Jego szczyt popularności przypadł na lata 80. i 90. XX wieku. Z upływem czasu, w miarę wzrostu popularności języków takich jak C, C++ i Java, Pascal stopniowo stracił na znaczeniu.
Obecnie popularnym dialektem Pascala jest Object Pascal, na którym oparty jest Delphi oraz inne środowiska IDE, takie jak Free Pascal i Lazarus. Istnieją także wersje kompilatorów przeznaczone dla mikrokontrolerów, np. mikroPascal.
Charakterystyka Języka
Pascal jest językiem silnie typowanym, co oznacza, że wymusza ścisłe przestrzeganie typów danych. Zyskał popularność dzięki Delphi, które umożliwia szybkie tworzenie aplikacji graficznych dla systemu Windows.
Przykładowe Programy w Pascalu
Najprostszy Program Wypisujący Tekst
begin
writeln(’Hello World’);
end.
Program Obliczający n-ty Wyraz Ciągu Fibonacciego
program fibonacci;
var
i, liczba: word;
a, b, c: longint;
begin
writeln(’Podaj, którą liczbę z ciągu Fibonacciego chcesz zobaczyć: ’);
readln(liczba);
a := 1;
b := 1;
if liczba <= 2 then
writeln('Wynik: ', a)
else
begin
for i := 3 to liczba do
begin
c := a + b;
a := b;
b := c;
end;
writeln('Wynik: ', c);
end;
end.
Program Obliczający Miejsca Zerowe Funkcji Kwadratowej
program funkcja;
var
delta, x1, x2: real;
a, b, c: real;
begin
writeln(’Podaj współczynniki a, b, c trójmianu kwadratowego: ’);
readln(a, b, c);
if a = 0 then
writeln(’TO NIE JEST FUNKCJA KWADRATOWA’)
else
begin
delta := (b * b) – (4 * a * c);
writeln(’Delta = ’, delta);
if delta < 0 then
writeln('BRAK MIEJSC ZEROWYCH FUNKCJI !')
else if delta > 0 then
begin
x1 := ((-b) – sqrt(delta)) / (2 * a);
x2 := ((-b) + sqrt(delta)) / (2 * a);
writeln(’X1 = ’, x1);
writeln(’X2 = ’, x2);
end
else
writeln(’X1 = ’, (-b) / (2 * a));
end;
end.
Program Symulujący Kostkę do Gry
program kostka;
uses
crt;
var
kost: integer;
znak: string;
begin
randomize;
repeat
clrscr;
write(’Iluścienną kostką chcesz grać?:’);
readln(kost);
if (kost < 4) then
writeln('Kostka musi mieć minimum 4 ściany');
until (kost >= 4);
repeat
write(’Wylosowano: ’, random(kost) + 1);
writeln(’ aby zakończyć wciśnij „q”’);
readln(znak);
until (znak = 'q’) or (znak = 'Q’);
end.
Pascal, mimo spadku popularności, pozostaje istotnym językiem w historii programowania, szczególnie w kontekście edukacyjnym i rozwoju aplikacji. Jego prostota oraz strukturalne podejście do programowania wciąż przyciągają nowych użytkowników.
