, , , , , . .

 

 

!

 

:

:

 

 

 

?

StudentHelp, , MS Word. , , antiplagiat.ru, etxt.ru advego.ru. StudentHelp , Word .


:


:

: . : 20.05.2012. : 2011. : 18. antiplagiat.ru: < 30%

():


2. 1.
. :
:=1; FOR K:=10 TO 15 DO BEGIN FOR M:=12 TO 16 DO B:=B+K; B:=K+M; END; WRITE (B=,B);

-





















K

M

B=B+K

B=K+M


10
12 13
14
15
16
11 21
31
41
51


26


11
12 13
14
15
16
62 73
84
95
106


27


12
12 13
14
15
16
118 130
142
154
166


28


13
12 13
14
15
16
179 192
205
218
231


29
)



14
12 13
14
15
16
245 259
273
287
301


30


15
12 13
14
15
16
316 331
346
361
376


31



)
Program x;
Var b, m, k :integer;
Begin b:=1;
For k:=10 to do
Begin
For m:=12 to 16
B:=b+k; b:=k+m;end;
Write (b=,b);
End.
: b=31.
3. 2.
    4- , , .

Z =
)
A,X,C-, m- ,b.TXT-
Procedure V- , Function S .

) Procedure V Function S



































)
Program e;
Var z:real; x1,x2,x3,x4,a1,a2,a3,a4,c1,c2,c3,c4:integer;m:text;
Procedure V (var x,a,c:integer);
Begin
Writeln ( ,,);
Readln (x,a,c);end;
Function S(x,a,c:integer):real;
Var z:real;
Begin
Z:=(x*sqrt((a+)-sqr(sin(x)))/5*a-3*cos(c))+(sqr(x)*sqr(x))/(c+2*a));
Writeln (m,|,x:5,|,a:5,|,c:5,|,z:9:2,|);
S:=z;end;
Assign (m,b.TXT);
Rewrite(m);
V(x1,a1,c1); V (x2,a2,c2); V (x3,a3,c3); V (x4,a4,c4);
Writeln (m,-----------------------------);
Writeln (m,|--x--|--a--|--c--|---z-----|);
Writeln (m,|-----|------|-----|----------|);
S(x1,a1,c1); S (x2,a2,c2); S (x3,a3,c3); S (x4,a4,c4);
Close (m);
End.
)
x,a,c
1 2 3
x,a,c
5 7 8
x,a,c
5 6 9
x,a,c
8 9 0
x a c z
1 2 3 0.30
5 7 8 28.94
5 6 9 30.34
8 9 0 228.10
)






4. 3
)
, . 3- , 16,19 22 . 2 3 . 2 3 .
)A[i]- , -.Procedure V- , Function P .
)
Procedure V














Function P









-+









) Program r;
type m=array[1..22] of real;
Var a1,a2,a3:m;I,k,n: integer;
Procedure V(n:integer;var a:m);
Begin
Writeln(,n, );
For i:=1 to n do
Read (a[i]);end;
Function P(n:integer;a:m):integer;
begin k:=0;
For i:=1 to do
If (round(a[i]) mod 2=0) and (round(a[i]) mod 3=0) then begin
K:=K+1; end;
Writeln (- 2 3=,K);
P:=k;end;
Begin
V (16,a1); V (19,a2); V (22,a3);
P (16,a1); P (19,a2); P (22,a3);end.



)
.16 -.
6.4 5.5 7.9 3.6 4.5 4.1 6.7 8.8 4.3 3.5 6.8 4.3 7.8 3.2 4.6 7.8

.19 -
3.6 4.6 6.4 6.8 4.2 2.3 2.8 4.2 5.7 4.2 5.7 5.8 6.4 7.3 4.6 2.6 4.1 3.6 5.7

.22 -
4.6 6.4 7.9 4.7 2.9 4.8 5.9 1.5 8.4 4.5 7.3 6.4 3.8 5.9 4.8 5.7 4.6 1.6 5.7 5.3 6.4 2.8 5.6

)
- 2 3=2
- 2 3=8
- 2 3=15


5. 4
)
ꠖ, . 3- , 4*5, 4*4, 5*4 . , 2 . .
)A[i,j]- , SA_SUM- ,
-,S . Procedure V- , Function P .







)
Procedure V

















Function P














-+

















)
Program x4;
Type b=array[1..5,1..6]of real;
Var a1,a2,a3:b;s,SA_SUM:real;
m,n,i,j,k:integer;
Procedure V(n,m:integer;var a:b);
Begin
Writeln (,n,,m,);
For i:=1 to n do
For j:=1 to m do readln(A[i,j]);end;
Function P(n,m;integer;a:b):real;
Begin
S:=0;K:=0;
For i:=1 to n do
For j:=1 to m do
If (I mod 2 =0) and (j mod 2=0) then begin
S:=S+A[i,j];
K:=K+1;end;
SA_SUM:=s/k;
Writeln(.. ,n,,m, - .2=,SA_SUM:5:3);
P:=SA_SUM;end;
Begin
V(4,5,a1); V(4,4,a2); V(5,4,a3);
P(4,5,a2); P(4,4,a2); P(5,4,a3);
END.

)
4 5 -. 4 4 -. 5 4 -.
2.3 4.4 6.6 7.6 6.6 4.4 7.9 6.4 4.5 4.9 5.5 4.4 5.2
3.3 6.6 2.2 4.4 6.6 6.3 5.5 7.7 9.9 2.2 4.5 6.7 4.2
4.4 6.6 4.4 5.5 2.3 5.5 6.6 3.3 5.5 3.4 6.6 8.6 4.8
8.8 6.6 4.4 3.4 6.8 7.7 6.5 3.5 6.7 4.7 8.6 4.7 5.3
4.5 3.4 5.6 4.3

)
4 5 -
.. 4 5 -.2=5.250
4 4 -.
.. 4 4 -.2=7.150
5 4 -
.. 4 5 -.2=5.650


6. 5
)
23 : ..: , , ; : , , ; , . , >5 , .



)
RABOTNIK , FIO , FAM-, IM-, OT-. DATA_R , 3- : GOD-, MES-, CHIS-, MESTO_R , STAZH_R .Z- .Dulo.TXT-
)



































































































)
Program ANKETA;
Type RABOTNIK=RECORD
FIO: RECORD
FAM: STRING[10];
      IM: STRING[10];
OT: STRING[10];END;
DATA_R: RECORD
GOD:1960..1987;
MES:1..12;
CHIS:1..31;
MESTO_R : STRING[20];
STAZH_R:1..40;END;
Var a=array[1..23] of RABOTNIK; z:text;
I,j,k:integer;x: STRING[10];y: RABOTNIK;
Begin
assign (z,Dulo.TXT);
rewite(z);
For i:=1 to 23 do with a[i],fio,data_r do begin
Writeln( ,I, );Readln(fam);
Writeln( );Readln(im);
Writeln( );Readln(ot);
Writeln( );Readln(god);
Writeln( );Readln(mes);
Writeln( );Readln(chis);
Writeln( );Readln(mesto_r);
Writeln( );Readln(stash_r);end;
For i:=1 to 22 do begin
K:=I;
X:=a[i].fio.fam;
For j:=1 to 23 do
If a[j].fio.fam<x then begin
K:=j;
X:=a[i].fio.fam; end;x:= a[i].fam
y:=a[k].fio.fam;
a[k].fio.fam:=a[i].fio.fam;
a[i].fio.fam:=y;end;
Writeln (z---------------------------------------------------------------------------------------);
Writeln (z| | Π | |  | |);
Writeln (z| n|----------------------------------|--------------------|  | |);
Writeln (z| || | | | | | | |);
Writeln (z| |-----------|---------|-------------|------|------|-------|-------------------|--------|');
For i:=1 to 23 do with a[i],fio,data_r do
If (mesto_r=) and (stash_r>5) then begin
Writeln (z,|,i:3,|, fam:10,|, im:10,|, ot:10,|, god:5,|, mes:5,|, chis:5,|, mesto_r:20,|, stash_r:5,|);end;
Writeln (z---------------------------------------------------------------------------------------);readln;
close(z);
end.



)
1






1972

10

30



15
2






1980

5

15



20
3






1983

6

20



5
4






1987

8

13



2
5






1976

4

1



10
6






1982

5

9

.

9
7






1977

12

13



7
8






1981

10

5



7
9






1967

9

11



20
10

..................



90% antiplagiat.ru, etxt.ru advego.ru




* . , .