, . 1971 ., , . , . 1.8. , .
, , . , .
. . , , , - 7.0 (, - , - ). , , , , , .. , , ( ). ( ) - 3.0.
- .pas. 1 . - , , , , . , , .
I
program KvadUravn; ( )
var ( )
,b,: real; ( )
d,xlx2: real; ( )
begin ( )
writein; ( )
writein(' a,b,c'); read(,,); ( )
d:=b*b-4*a*c; ()
if d<0 then ( d<0, )
write(' ') ()
else ()
begin ( )
xl:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*); ( )
write('1=',1,' 2=',2) ( )
end ( )
end.( )
:
1) ;
2) , ;
3) ;
4) ;
5) ;
6) ;
7) ;
8) .
, , , 5- 8- .
, , ( ).
|
|
2, .
2
program circle;
const
pi=3.14159;
var
r,s,1: real;
begin
writeln ( '); readln(r);
s:=pi*r*r; l:=2*pi*r;
writeln(' =',S:8:4); writeln(' =', l:8:4)
end.
. program, - const, -var, begin. end, . .
. , . - pi, r,s 1.
( - circle) .
() ( , ). .
:
const <> = <>
.
:
const
pi=3.14159; k=-15; s='';
, , (, , , ..). , , . .
, - . ord(x) - ( ord(x)=x); pred(x) - , , suce(x) - , .
- , . <, >, <= ( ), >=( ), =, <> ( ). :
false < true.
:
var < >: <>
. , :
var a,b,c:real; k,l:integer; p:boolean;
( integer) : * (), div ( ), mod ( ), +, -( ); .
: 25 div 4 = 6; 25 mod 4=1. ( ):
abs(x) - ;
sqr(x) - ;
trunc(x) - ;
round(x) - , ;
random(x) - 0 .
: trunc(4.7)=4; round(4.7)=5; sqr(3)=9. byte , integer.
|
|
: *, +, -, /, : abs(x), sqr(x), sin(x), cos(x), arctan(x), ln(x), exp(x), sqrt(x) - , int(x) - , random - 0 1. .
: not - , and -, or-. odd(x) true, false, .
( char), , '' < ''< '' <...< 'Z', '' < 'b' <...< 'z', '0' < 'I' <...< '9'.
- , . , , .
- . :
< >:= <>
( ). : real, - integer.
.
l:=2*pi*r; p:=(a+b+c)/2; z:=sqrt(sqr(x)+sqr(y))
. () :
1) read(<c >); 2) readln(<c >).
read(xl,x2,...,xN) N 1, 2,..., xN. - - . .
readin read , .
.
var a,b:real; c:char; d:integer;
...
read(a,c,d,b);
...
: 83.14 k 200-7.15
. :
1) write(<c >); 2) writeln(<c >).
write(xl,x2,...,xN) 1, 2,..., xN. writeln write , . 1st .
: write(lst,' ');
.
. - real. , ( 1.654887892-04). . m, n - . write(x:m:n) , m , , , n - . m, .
, , = 387.26. :
writeln('*',x) * 3.8726000000E+02
writeln('*',x:8:3) * 387.260
writeln('*',x:8:l) * 387.3
- - integer, boolean, char.
1. ?
2. ? ?
3. ? ?
4. ?