һ
ר
:
1
: .
10 ..
..
2017
充 | |
1. .. | |
1.1. 1.. | |
1.2. 2.. | |
1.3. 3.. | |
1.4. 4.. | |
1.5. 5.. | |
1.6. 5.. | |
充 | |
ⅅ. | |
.. |
:
:
Pascal ABC;
;
:
:
Pascal ( , , , , , , )
:
Pascal ABC.
program ; ; ; begin end. | |
Var < >: < >; | |
Integer ; Real ; String ; Char ; Array | |
write ( ); writeln ( ); | |
read ( ); readln ( ); | |
:=; | |
If then _1 else _2; If then ; | |
Begin 1; N; end; | |
(While) | While do ; |
( For) | For :- A to do ; For .- = A downto do ; |
1.
X , Y . , 10 .
:
program Pr1;
Var
x, y, rez: real;
Begin
{ }
write(' X:= '); readln(x);
write(' Y:='); readln(y);
{ }
rez:= 2*x + 2*y;
{ }
|
|
rez:= rez/0.1;
{ }
writeln(' = ', rez);
readln; { }
End.
1.1
, . , 0,8 10.
1.2
.
2.
X, Y Z . X Z, X Y, Z.
:
program Pr2;
Var
x, y, z, rez: real;
Begin
{ }
write (' X:=' ); readln (x);
write (' Y:='); readln (y);
write (' Z:='); readln (z);
{ }
if x > z then rez:= x + y else rez:= z;
{ }
writeln (rez);
readln; { }
End.
2.1.
X,Y,Z. .
:
program Pr2_1;
Var
x, y, z, min: real;
Begin
{ }
write (' X:=' ); readln (x);
write (' Y:='); readln (y);
write (' Z:='); readln (z);
{ }
min:= x;
{ }
if min > y then min:= y;
if min > z then min:= z;
{ }
writeln (' = ', min);
readln; { }
End.
2.2
, , ,, .
,, , .
2.3