Pascal

Pascal može značiti:
- Pascal (programski jezik)
- Pascal (SI jedinica), mjerna jedinica za tlak

Pascal (programski jezik)

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.

Povijest razvoja

Osnovica Pascala je programski jezik Algol.

Usporedba Pascala i programskog jezika C

Pascal je namjenjen učenju programiranja, a C je za profesionalce. Zbog toga je Pascal je puno lakši, sve se svodi na prijevođenje na engleski itd.

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.

Vanjske poveznice

Category:programski jezici ja:Pascal ko:파스칼 프로그래밍 언어 th:ภาษาปาสคาล

Schöngeising

Schöngeising é um município da Alemanha, no distrito de Fürstenfeldbruck, na região administrativa de Oberbayern , estado de Baviera. Categoria:Municípios do estado de Baviera

po�ciel spielautomaten Online Casino zujer litera h

According to the United States Census Bureau, the township has a total area of 91.8 km² (35.4 mi²). 91.8 km² (35.4 mi²) of it is land and none of it is