8
___________..______________________
:
: .
1. TURBO.EXE .
2. , . , , - .
3. FILE NEW.
4. , NONAME00.PAS , , ( ).
5. .
1
EX_1.
PROGRAM EX_1;
BEGIN
Writeln(' Pascal');
END.
1. . COMPILE COMPILE. , , , .
2. , , , , .
3. , RUN RUN. , , . , .
4. ALT+F5. .
5. FILE EXIT, .
6. EX_1. "Save File as" . :\ D:\ Ok.
7. .
8. Turbo Pascal .
9. .
|
|
2.
1. Turbo Pascal , . : Compile→ Compile (Alt+F9), : Run→ Run (Ctrl+F9). .
A.
Program Hello;
Begin
Writeln(, !);
Write(, ); writeln(.);
End.
B.
Program Summa; { }
Var
X,Y,Summa:Integer; { }
Begin { }
Write( Y);
Readln(X,Y);
Summa:=X+Y;
Writeln( X Y , Summa);
Readln; { , Alt+F5}
End.
C.
, m i,j.k:
Program Primer_1;
Var
i, j, k:Integer;
m: Real;
Begin
Write( i, j k =>);
Readln(i, j, k);
m:=(i + j)/(k + 1);
Writeln( m = , m);
End.
D. . :
Program Primer_2;
Const
A=4.5;
B=3.5;
Begin
Writeln(= , A); { }
Writeln(B= , B:5:2); { }
End.
E.
Program VETVLENIE;
Var
God: Integer;
Begin
Write(' - ');
Readln(God);
If God = 1941 then
Writeln(' ')
Else
Writeln(' ');
Readln;
End.
F. ,
Program Tumn;
Var
P1, I: Integer;
Begin
Write(' : ');
Readln(P1);
For I:=1 to 10 do { }
Begin
Writeln(P1,' x ',I, ' = ', P1*I);
end;
Readln;
End.
a) . , , . 3 .
b) . , , .
c) . , . .
d) :
y=x2, 0<x<2; x+4, -2<x≤0;0, .
e) a, b, c. , , a<b<c. : .
4.
1. ?
2. ?
3. .
4. , Pascal?
5. ?
6. .
7. ?
8. ?
9. .
10. .
11. .