, , , , , . .

 

 

!

 

:

:

 

 

 

?

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


:


:

: . : 04.07.2012. : 2011. : 12. antiplagiat.ru: < 30%

():

































: ..
: ..












2010




1 1.....4
1.1 ...4
1.2 .4
1.3 ..5
1.4 .6
1.5 充...6
2 2.7
2.1 ...7
2.2 .....7
2.3 ..8
2.4 ...9
2.5 充..10
3 311
3.1 .................................................................................11
3.2 ...............................11
3.3 12
3.4 ...13
3.5 充.14
4 4...14
4.1 .14
4.2 ...14
4.3 16
4.4 ...17
4.5 充.17
5 5...18
5.1 .....18
5.2 ...18
5.3 19
5.4 ...20
5.5 充..21
6......22
6.1 ......23
6.2 ...23
6.3 ..24
6.4 ........27
..29
















, . Pascal : , , .









































1 堹1
A B N . L 2*N :
L=(A(1)+B(1),A(1)-B(1),A(2)+B(2),A(2)-B(2),.....,A(N)+B(N),A(N)-B(N))
N A .



N. -100 100. , . .

, , 1
1
n integer .
i integer .
min integer .
array[1..100]of integer .
ind integer .








program Z1;
uses Crt;
var A: array [byte] of integer;
B: array [byte] of integer;
L: array [byte] of integer;
N: byte;
i: integer;
j: integer;
Begin
ClrScr;
write('Vvedite N=');
readln(N);

Randomize;
for i:=1 to N do
begin
A[i]:=random(100);
B[i]:=random(100);
end;
for i:=1 to N do write('A[',i,']=',A[i],' ');
writeln;
for i:=1 to N do write('B[',i,']=',B[i],' ');
writeln;
i:=0;
j:=1;
while i<=2*N do
begin
i:=i+1;
L[i]:=A[j]+B[j];
i:=i+1;
L[i]:=A[j]-B[j];
j:=j+1;
end;
writeln;
for i:=1 to 2*N do write('L[',i,']=',L[i],' ');
readln;
End.

N, (1). , 5, (2).
1:


2:





2 堹2
N*M .
2.1
N M . 0 100 ( i (), - j () ). , , N M 10. , , , .
2.2
, , 2.
2
n integer
m integer
i integer
j integer
a array[1..10,1..10]of integer
max integer
ind integer
sum integer





2.3

2.4
program Z2;
uses Crt;
var Mas: array [1..100, 1..100] of integer;
i: integer;
j: integer;
N: byte;
M: byte;
Summa: integer;
Max_S: integer;
Begin
ClrScr;
write('Vvedite N=');
readln(N);
write('Vvedite M=');
readln(M);
Randomize;
for i:=1 to N do
for j:=1 to M do
Mas[i,j]:=random(100);
for i:=1 to N do
begin
for j:=1 to M do
write('M[',i,'j','] = ', Mas[i,j]);
writeln;
end;
writeln;
Summa:=0;
Max_S:=0;
for j:=1 to M do
begin
for i:=1 to N do Summa:=Summa+Mas[i,j];
write(Summa,' ');
if Summa>Max_S then Max_S:=Summa;
end.
writeln;
writeln('Max = ',Max_S);
readln;
End.

2.5
N, 3, (1). M , 4, (2). (3).
1:

2:

3:

3 堹3
. ().
3.1
. ( )
3.2
, 4
4
ind integer
i integer
s string





3.3





3.4
program Zadacha3;
uses crt;
var s1,s2,slovo1,slovo2:string;
i,n:integer;
begin
clrscr;
writeln(' ப');
readln(s1);
writeln(' ப');
readln(s2);
n:=pos(' ',s1);
slovo1:=copy(s1,1,n-1);
delete(s1,1,n);
n:=pos(' ',s2);
slovo2:=copy(s2,1,n-1);
delete(s2,1,n);
s1:=slovo2+' '+s1;
s2:=slovo1+' '+s2;
writeln(s1);
writeln(s2);
readln;
end.
3.5
k, (1). , , (2).
1:

2:

4 堹4
. ( ).
4.1
, . . .
4.2
, 4
4
S string
opn integer
cls integer
i integer








4.3 ꠖ




4.4
program Zadanie_4;
Uses CRT;
var stroka: string;
temp: string;
i: integer;
Begin
ClrScr;
writeln('Vvedite striku: ');
readln(stroka);
temp:='';
for i:=1 to length(stroka) do
if (stroka[i]='A') or (stroka[i]='a')
then temp:=temp+stroka[i]+stroka[i]
else temp:=temp+stroka[i];
writeln('Novaya stroka: ', temp);
readln;
4.5
, (1). , (2).
1:

2:


5 5
. B.TXT, C.TXT, . .
5.1
. ( ). , . .
5.2
, 5
5
file1 text
file2 text
file3 text 1 2
s, s1 string
count integer
max integer
sr integer







5.3 ꠖ

5.4
program Zadanie_5;
Uses CRT;
var F1: Text;
F2: Text;
F3: Text;
T: string;
i: integer;
count: integer;
N: integer;
First_stroka: string;
Second_stroka: string;
Begin
ClrScr;
Assign(F1, 'File1.txt');
Reset(F1);
count:=1;
readln(F1,T);
First_stroka:=T;
while not(Eof(F1)) do
begin
readln(F1,T);
count:=count+1;
end;
Second_stroka:=T;
Close(F1);
N:=round(count/2);
Assign(F1, 'File1.txt');
Reset(F1);
Assign(F2, 'B.txt');
Rewrite(F2);
Assign(F3, 'C.txt');
Rewrite(F3);
i:=0;
while not Eof(F1) do
begin
i:=i+1;
readln(F1,T);
if i<=N then writeln(F2,T)
else writeln(F3,T);
end;
Close(F1);
Close(F2);
Close(F3);
writeln('Pervaya stroka: ', First_stroka);
writeln('Vtoraya stroka: ', Second_stroka);
readln;
end.
5.5
.







6 6
, ( ) :
. .
. .
. .
, , .
6.1
.
      .
      , 1 .
      .
      s s1. . . s1 , s1 . .
      .
      . . . , . delete(). .

, , .
6.2
, , 6.
6 .
s,s1 string ( ).
cnt,cnt2 integer
num integer
i integer ( )
array[1..100] of string
n integer


6.3
program Zadanie_6;
uses CRT, MZ6;
var stroka: string;
Begin
ClrScr;
write('Vvedite stroku: ');
readln(stroka);
stroka:=Del_Zn_Prep(stroka);
writeln('Novaya stroka: ', stroka);
stroka:=Probeli(stroka);
writeln('Stroka bez cifr: ', stroka);
stroka:=First_Slovo(stroka);
writeln('Pervoe slovo: ', stroka);
readln;
end.
Unit MZ6;
interface
Function Del_Zn_Prep(stroka: string): string;
Function Probeli(stroka: string): string;
Function First_slovo(stroka: string): string;
implementation
Function Del_Zn_Prep(stroka: string): string;
var i: integer;
Temp: string;
begin
temp:='';
for i:=1 to Length(stroka) do
if (stroka[i]<>'.') and (stroka[i]<>',')
then temp:=temp+stroka[i];
..................



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




* . , .