Pascal (programski jezik)
From Wikipedia
Pascal je ime programskog jezika kojeg je stvorio švicarski znanstvenik Niklaus Wirth 1970. godine. Isprva Pascal je se koristilo kao nastavno pomagalo za strukturalnu metodu programiranja računala na fakultetima. Tokom 80-tih i ranih 90-tih godina 20. stoljeća Pascal se proširio van akademskih krugova u industriju, no ubrzo nakon pojave i masivnijom upotrebom objektno orijentiranih jezika kao C++ ili Java tokom sredine 90-tih godina 20. stoljeća., Pascal počinje gubiti primat u školama kao i u industriji. Pokušaj proširivanja Pascala sa objektno orjentiranim konceptima kroz Object Pascal i kasnije kroz programski jezik Delphi uspjele su prilagoditi Pascal novim izazovima, no njegova popularnost sve više opada.
[uredi - уреди] Povijest razvoja
Osnovica Pascala je programski jezik Algol.
[uredi - уреди] Usporedba Pascala i programskog jezika C
Pascal je namjenjen učenju programiranja, a C je za profiće. Zbog toga je Pascal puuuuuuuuuuno lakši, sve se svodi na prijevođenje na engleski...
[uredi - уреди] Programski primjer
program DobarDan(input, output);
begin
writeln("Dobar dan!");
end;
program kalkulator;
Uses Crt;
Label 1;
Var Sto : String;
p, d, z : Real;
p2,d2,z2,z3 : Integer;
Begin
1:Clrscr;
z := 0;
TextMode (2);
TextColor (green);
GotoXy(31,1);
Write('KALKULAT 1.3');
GotoXy(24,4);
Writeln('1.Zbrajanje');
GotoXy(25,5);
Writeln('2.Oduzimanje');
GotoXy(26,6);
Writeln('3.Mnozenje');
Gotoxy(27,7);
WriteLn('4.Djeljenje');
GotoXy(28,8);
WriteLn('5.Djeljenje s ostatkom');
GotoXy(29,9);
WriteLn('Za izlaz pritisni tipku Q');
Gotoxy(25,11);
WriteLn('Odaberi i pritisni broj...');
WriteLn;
WriteLn;
WriteLn('Napomena:');
WriteLn('Program radi sa najvise tri znamenke iza decimalne tocke!');
WriteLn('Program ce se automatski ugasiti ako pri upisivanju broja upisete slovo!');
WriteLn;
WriteLn('CPYRIGHT (C) Lobel Strmečki');
Sto:= Readkey;
If Sto ='1' then
Begin
ClrScr;
Write('Upisi 1. broj:');
Readln(p);
Write('Upisi 2. broj:');
Readln(d);
z := p + d;
Writeln(p:2:3,'+',d:2:3,'=',z:2:3);
WriteLn;
Write('Pritisni tipku ENTER za povratak...');
Readln;
Goto 1;
End;
If Sto = '2' then
Begin
ClrScr;
Write('Upisi 1. broj:');
Readln(p);
Write('Upisi 2. broj:');
Readln(d);
z := p - d;
WriteLn(p:2:3,' - ',d:2:3,' = ',z:2:3);
WriteLn;
Write('Pritisni tipku ENTER za povratak...');
Readln;
Goto 1;
End;
If Sto='3' then
Begin
ClrScr;
Write('Upisi 1. broj:');
Readln(p);
Write('Upisi 2. broj:');
ReadLn(d);
z := p*d;
WriteLn(p:2:3,'*',d:2:3,'=',z:2:3);
WriteLn;
Write('Pritisni tipku ENTER za povratak...');
Readln;
Goto 1;
End;
If Sto='4' then
Begin;
ClrScr;
Write('Upisi 1. broj:');
ReadLn(p);
Write('Upisi 2. broj:');
ReadLn(d);
z :=p/d;
WriteLn(p:2:3,'/',d:2:3,'=',z:2:3);
WriteLn;
WriteLn ('Pritisni tipku ENTER za povratak...');
ReadLn;
Goto 1;
End;
If Sto = '5' then
Begin;
ClrScr;
Write ('Upisi 1. broj:');
ReadLn (p2);
Write ('Upisi 2. broj:');
ReadLn (d2);
z2 := p2 div d2;
z3 := p2 mod d2;
Write ( p2,' / ',d2,' = ',z2);
WriteLn (' i ostatak ',z3);
WriteLn;
TextColor(white+2);
WriteLn ('Pritisni tipku ENTER za povratak...');
ReadLn;
Goto 1;
End;
If (Sto = 'q') or (Sto = 'Q') then
Begin
Halt;
End;
If not (Sto='1') then
begin;
Goto 1;
End;
End.
