. . . .
, .
:
- ( )
- ( , )
-
-
-
-
:
Program qq;
Begin [ ];
End.
:
Program qq;
Begin
Write (2+);
Writeln (2=?);
Write (=4);
End.
. . . .
, , .
: integer (), real (), double ( ), char ( ), string ( )
: var a,b,c: integer;
: :=5
- . . .
-:
->
->
->
->
->
: read (a,b);
. .
: write (a);
Writeln (a); - .
Writeln (=, c);
:
. . .
.
1. (, ).
- ; + ; * ; / .
2. .
- ; + ; * ;
:
div - , mod - .
23 div 3 = 7 23 mod 3 = 2
9 div 4 = 2 9 mod 4 = 1
35 div 10 = 3 35 mod 10 = 5
3. : - (/, div, mod). - . - . , .
.
pascal , . , , :
Program Real_Num;
Uses crt;
var num1, num2, res: Real;
Begin
Clrscr;
write(' - ');
Readln(num1, num2);
res:= num1 + num2;
write(' - ', res);
Readln;
End.
|
|
, - 2.3212 5.2313 - , .
- 1.21428935600000E+001. , . . pascal :
Program Real_Num;
Uses crt;
var num1, num2, res: Real;
Begin
Clrscr;
write(' - ');
Readln(num1, num2);
res:= num1 * num2;
write(' - ', res:4:4);
Readln;
End.
, - res - - , - - . pascal. , - , , .
. - . , .
: if <> then begin
( , )
end
else begin
(-//-)
end.
-:
|
a,b
|
max:=a
|
-----------(b>a?)-----------
| |
| |
max:=b |
└---------- max------- -┘
:
program qq;
var a, b, max: integer;
begin
writeln ( 2 );
read (a,b);
max:=a;
if b>a then max:=b;
writeln ( = , max);
end.