3.
: , , . . , .
.
1.1 - , .
1.2 :
;
;
;
;
;
.
1.3
| ||||||||||||
| ||||||||||||
| ||||||||||||
, | ||||||||||||
- | - | |||||||||||
- | , , | |||||||||||
b=2*a, a=10,15,20.
1.4 - , , .
.
() .
1.5 :
1. - ( ). , .
:
a) ( );
b) ;
c) ;
d)
e) ;
f) ;
g) ;
h) , , .
2. - ( ). , .
:
a) - ;
b) ;
c) ;
d) .
|
|
1.6 , , . , .
, , .
.
1.7 .
|
1.8 :
Program Test;
{ }
begin
{ }
end.
1. Program , ( , , ). Test .
2. . , , , , , , .
3. type, - const, var.
1.9 , , , , , NIL.
1. -2147483648 +2147483647.
2. .
3. , $. $00000000 $FFFFFFFF.
4. - false (), true ().
5. - ().
6. - .( ).
, , . , .
:
: not @;
: * / div mod and shl shr;
: + - or xr;
: = < > < > <=> = in.
:
not - ;
and - ;
or - ;
r - .
1.10 .
, , - , .
:
1. :
a) (real);
b) ;
c) (integer);
d) ;
e) ;
|
|
f) ;
g) -;
2. ;
3. ;
4. ;
5. ;
6. :
a) ;
b) ;
c) ;
d) ;
1.11 . :=. .
begin ( ) end ( ). .
1.12 Write Writeln. :
Writeln (, 1, 2, 1);
WriteLn Write , , .
Write WriteLn , ( ), ( ), ( ).
:
WriteLn( ,b*b-4*a*c);
Write(x1=,x1,x2=,x2);
WriteLn . , .
Read Readln. :
Read();
2- , Readln.
:
Readln (a, b, c, d);
1.13 . :
(:7:3) , 7- , 3 . .
:
Writeln(i= ,i:4:2);
, , , 809,123445, 809, . 4 .
.
2.1 1. , .
1. .
2. 1Program .
3. ALPHA- .
4. block#1 , . .
5. MyProgramIsBestProgram .
6. Date_27_step_39 - .
7. My Prog , . .
8. beta .
9. mod , . .
2.2 2. , - .
1. read m,x,n , . ;
2. read (5,6) t,h,m , . ;
3. read (a:3:5) , . , , .
4. read(6,5) b,c , . ;
5. write(6,5) b,c - , . ;
6. write(6,25) ;
7. write(b:7:2) ;
8. write 45, f8, 4 , . .
2.3 3 , Y=()
X| -3| -2| -1| 0| 1| 2| 3|
Y| | | | | | | |
:
Program bugaga;
var a:integer;
begin
writeln('X','-3','-2','-1',' 0',' 1',' 2',' 3');
writeln('Y ',Sqr(-3),' ',sqr(-2),' ',sqr(-1),' ',sqr(0),' ',sqr(1),' ',sqr(2),' ',sqr(3));
readln;
end.
X| -3| -2| -1| 0| 1| 2| 3|
Y| 9| 4 | 1| 0 | 1 | 4| 9|
4 , Y=a* +b.
Y=a* +b
-_
b-_
|
|
-_
= b= x=
.
:
Program bugaga_1;
Var a,b,x,y:integer;
begin
Writeln('Calculation begins Y=a*x^2+b');
Write('Input a=');
Readln(a);
Write('Input b=');
readln(b);
Write('Input x=');
Readln(x);
Writeln('a=',a,' ','b=',b,' ','x=',x,' ','Value y=',a*x*x+b);
Readln;
end.
.
: , , , . .