, , :
- ( , . . , , );
- ;
- ( ) , , ;
- var, . var , ;
- , , var.
1. a, b, c.
:
A | B | C | ||
-2 | -3 | 0,25 |
:
Program Max_X_Y;
var
a, b, c, s: Real;
function f_max(x, y: real): real; { }
begin { }
if X>y then
f_max:=x
else
f_max:=y;
end;
begin { }
Writeln(' a, b, c ');
Read(a,b,c);
s:= (f_max(a, a+b) + f_max(a, b+c)) / (1+f_max(a+b*c, 5));
Writeln('S= ',s);
Readln;
end.
2. , , , . *+B*+A*C.
:
A | B | C | ||
1,1,1 | 1,1,1 | 1,1,1 | ||
1,2,0 | 0,1,2 | 2,1,1 |
:
Program Vectors;
Type
Vect=array[1..3] of real; { }
var
A,B,C:Vect;
function ProizvVect(x, y: Vect): real;
var { I p}
i:integer; {I p }
P:real; {}
Begin { }
For i:=1 to 3 do
P:=P+x[i]*y[i];
ProizvVect:=P;
end;
procedure ReadVect(var x:Vect); { }
var
i: integer;
begin
Writeln(' ?');
For i:=1 to 3 do
read(x[i]);
end;
begin { }
ReadVect(A);
ReadVect(B);
ReadVect(C);
Writeln('S= ', ProizvVect(A,B)+ProizvVect(B,C)+ProizvVect(A,C));
Readln;
Readln;
end.
1. n,m.
S=(n!+(n-1)!+(n-2)!)/m!, n>=2;
2. n.
3. , , , . S=+B+A+C ( ).
|
|
4. , , , . 3+2+4 ( .).
5. 5- A, B C :
min .
6. 5- A, B C :
Sum(X,n) n .
7. ABCD, . A .
8. 10x10 (Array[1..10, 1..10] of char)- . :
) ;
b) .
.
9. a, b, c, .. ( .)
10. x [10]. ( .)
1. .. Pascal. - .: - , 2006.
2. .., .. . - .: , 2012.
3. .., .. p 7.0. - .: , 2006.
4. .., .., .., .. : Pascal. . - .: -, 2009.
5. .. Turbo Pascal 7.0: . / . ... - 6- . - : +, 2003.
6. .. . . - .: , 2009
7. .. . - .: , 2012.
8. .. . - .: - , 2010.
9. .. . . - .: , 2013.
10. .. 7.0. . . - .: , 2003.
:
1. www.agulib.adygnet.ru .
2. www.biblioclub.ru Online.
3. www.intuit.ru .
4. http://ips.ifmo.ru/courses/pascal Pascal.
5. http://www.pascaler.ru Turbo Pascal.