Pascal Language Programming

1
Pascal Language Programming

• SCC Suthida Chaichomchuen
• std_at_kmtinb.ac.th

2
??????????

• ?????? (Pascal) ??????????????????????????
  ????????????????? Prof. Dr. Niklaus Wirth
  ?????????????????? 1970 ?????????????? (Pascal)
  ???? ?????????????????????????????????????????????
  ??????????? Blaise Pascal ????????????????????????
  ???????????????????

3
??????????????????????????????

• ?????????????? (IBM Pascal)
• ???????????????? (Microsoft Pascal)
• ????????????? (SBB Pascal)
• ???????????????? (Pascal MT)
• ??????????????? (UCSD Pascal)
• ?????????? (Quick Pascal)
• ????????????? (Turbo Pascal)

4
????????????? (Turbo Pascal)

• ????????????? ????????????????????????
  ??????????????? ?????????????????(Borland
  International) ??????????????????

5
?????????????????????????

• ???????????????????????????????????
• ???????????????????????????????
  ?????????????????? ????? ?????????????????????????
  ? ???????
• ????????????????? 2 ??????
• ????????????????????????????????
• ???????????????????????????????????????? EXE

6
????????? . . .

• ??????????????????????????????????????????????????
  ??????????
• ????????????????????????????????????
• ?????????????????????? ???????????????????????????
  ??????????
• ??????????????????????????????????????????????????
  ?? ?????????????????????????????????????????????
  ??????????????????????????

7
???????????????????????

• ??????????????????????????????????? (Structured
  Programming)
• ??????????????????????????????? (Modular
  Decomposition)
• ?????????????????????????????????? (Top-down
  Development)
• ?????????????????????????????????????????????? ?
  ?????
• ??????????????????????????????????????????????????
  ??????????????????????????

8
?????????????????????????????
??????????????????? 4 ???????1. ??????????????
(Heading)2. ??????????????????? (Declaration
part)3. ???????????????? (Statement part)4.
???????????? (Comments)
9
?????????????????????????????

• PROGRAM First ??????????????
• VAR Name String ???????????????????
• BEGIN
• Write(Your name please? )
• ReadLn(Name) ????????????????
• WriteLn(Hello ! ,Name)
• END.

10
1. ?????????????? (Heading)
???????????????????????????????????????
??????????????
PROGRAM ???????????
???????? PROGRAM Hello
11
2. ??????????????????? (Declaration part)
?????????????????????????????
??????????????????????? ?????????????????????????
? ? ????????????????????
12
2. ??????????????????? . . .
2.1 USES ??????????????????????????????????????
??????????????
USES ??????????? ,???????
??????????? 1 USES Crt??????????? 2 USES Dos,
Crt, Printer
13
2. ??????????????????? . . .
2.2 LABEL ?????????????????? ???????????????
????????? GOTO ?????? ??????????????
LABEL ???? ,????
??????????? 1 LABEL Return??????????? 2
LABEL 10, 20, Return
14
2. ??????????????????? . . .
2.3 CONST (constant) ?????????????????????
???????????????????? ??????????????
CONST ???? ???????????
??????????? 1 CONST Limit 255
15
2. ??????????????????? . . .
??????????? 2 CONST Limit 255 COUNT, SUM
0.0 HEAD XYZ CO.,LTD. UsePrinter
True
16
2. ??????????????????? . . .
2.4 TYPE ???????????????????????????????
??????????????
TYPE ???? ?????????????
??????????? 1 TYPE Color (Red, Green,
Blue)
17
2. ??????????????????? . . .
??????????? 2TYPE Age 1..100 Grade
A..F Student RECORD Name
String40 Old Age Addr
String70 Point Grade END
18
2. ??????????????????? . . .
2.5 VAR (variable) ?????????????????????
?????????????????????? ??????????????
VAR ???? ,???? ?????????????
??????????? 1 VAR Color (Red, Green,
Blue)
19
2. ??????????????????? . . .
??????????? 2 VAR Age 1..100 Grade
A..F Number, Total Integer Length,
Height, Width Real
20
2. ??????????????????? . . .
2.6 PROCEDURE ?????????????????????????
??????????????????????2.7 FUNCTION
?????????????????????????????? ???????
21
3. ???????????????? (Statement part)
????????????????????????????????? ?
???????????????????????????????????????? BEGIN
statements ?????????????? ? END.
22
?????????

• ??????????????????????????????
• ?????????????????? BEGIN (????? )
  ???????????????? END. (?? .)
• ?????????????????????????? ???????????????????????
  ?
• ????????????????? END. ??????????????????????????
  

23
?????????????????????
1. ?????????????? (Assignment statement)
??????????????
?????????? ??????????????????
???????? Number 20 TotalNumber
Number20
24
?????? . . .

• 2. ????????????????? (Output statement)
  ?????????????????????????????????
  ???????????????????????????
• 3. ?????????????????? (Input statement)
  ?????????????????????????????????????????????????
  ?????????????????
• 4. ???????????????????????????????????
  ????????????????????????????????????
  ???????????????????????????

25
?????????????????????
??????????? 2 ?????????1. ??????????????????
(Single statement) ??? ??????????????????????????
????????????????????????????????????????
26
?????? . . .
2. ??????????????? (Compound statement) ???
???????????????????????????????????????
?????????????????????????????????? ? ????????????
????????????? BEGIN ??? END ?????????????????
27
?????? . . .
2. ??????????????? (Compound statement)
BEGIN Single statement . . . Single
statement END
28
4. ???????????? (Comments)
??????????????????????????????????????????
??????????????????????????????????????????????????
???? ? ????????????????????? ?????????????????????
?????????????????? ???? ( ) ????????
29
4. ???????????? . . .
This Procedures for Calculation????( This
Procedures for Calculation )
30
???????????????????
??????????????????????????????????????????
?????????????????????????????????????????????
???????????????????????????? (semicolon)
????????????????????????????????????????
31
??????????? 1
PROGRAM First VAR Name StringBEGIN Write
(Your name please? ) ReadLn(Name) WriteLn(Hel
lo ! ,Name) END.
32
??????????? 2
PROGRAM FirstVAR Name StringBEGIN Write
(Your name please? ) ReadLn(Name) WriteLn(
Hello ! ,Name)END.
33
??????????? 3
PROGRAM FirstVAR Name StringBEGIN (
start program ) Write(Your name please? )
display text ReadLn(Name) (get
name) WriteLn(Hello ! ,Name) display
nameEND. ( end program )
34
????
??????????????????? ?????????????????????????????
? ??????????????????????????????????????
??????????????????????????????????????????????????
????????????????????????????????????????????????
35
???????????????
????????????? ???????????????????????????????????
????? ???????????????? ????????? ???????
?????????????????????????? ????????????
36
??????????????????????
37
Source code
?????????????????????????????????????????????????
????????????????????????????????????????????????
(editor) ????????????????????? (word processor)
??????????????????????? PAS
38
Compile
????????????????????????????????????????????????
????????????????????????????????????????????
??????? ???????????????????????????????????
???????????????????????????????????????????????
39
Link
???????????????????????????????????????
?????????????????????????????????????????? ??????
?????????????????????????????? (run)
????????????????????????????????????
??????????????????????????? run-time errors
??????????????????????????????????????????????????
????
40
Object code
???????????????????? EXE ????????????????
??????????????????????????????????????????????????
? DOS ????????????????????????????????????????????
???????????????????
41
????????????????????? Turbo Pascal

• ??????????????????? ced.kmitnb.ac.th/scc
• ??????????? Links
• ????????? Turbo Pascal for DOS V 7.0 ????? save
• Unzip ???????
• ???????????? Turbo Pascal v 7.0 for DOS
• ???????????? install.exe

42
??????????????

• ????????????????? C\TP\BIN
• ???????????? turbo.exe