Білу Үй тапсырмасы. Түсіну

----- «БІЛІМ ЖОЛЫ НҰРЛЫ ЖОЛ» Республикалық журнал – Қараша айы 2020 жыл | № 11 (14) -----
№1
Есеп № 1 
programstudent; 
var 
a1: string [7]; a2: string [3]; 
a3: string [10]; a4: char; 
b1,b6:integer; b2: string [10]; 
b3: string [3]; b4: string [4]; 
b5: string [11]; 
begin 
writeln; 
a1:=’студент’; a2:=’пін’; 
a3:=’Мен’; a4:=’е’; 
b1:=length(a1); {ұзындығын анықтау b1=7} 
b2:=concat(a1,a2); { a1 және a2 –ні қосу} 
b3:=copy(a1,4,3); {а1 тіркесінің 4-ші позицисынан 3 символды бөліп алу} 
b4:=copy(a1,5,3); { а1 тіркесінің 5-ші позицисынан 3 символды бөліп алу } 
b5:=concat(a3,a1); { a3 және a1 –діі қосу } 
b6:=pos(a4,a1); {5} 
write(‘сөз ұзындығы:’,b1,’’:2,b2,’’:2,b3,’’:2,b4); 
writeln(b5,’’:2, b6); 
end. 
Есеп № 2 
Кіші латын әріпімен енгізілген жолды, үлкен латын әріптеріне ауыстыру программасын 
құрыңыз. 
Program austir: 
Var s:string: 
k:byte: 
begin 
readln(s): 
for k:=l to length (s) do 
s[K]: =Upcase (s[k]); 
writeln(s): 
end. 
№3. Бір өлшемді массивтің элементтерінің қосындысын табатын программа құру;
Program m8;
uses crt;
var i,n:integer; sum:real;
a: array [1..100] of integer;
begin
Randomize;
Writeln(‘массив элементин енгиз’);
readln(n);
for i:=1 to n do
a[i]:=-25+random(100);
for i:=1 to n do
write(a[i]:5);
sum:=0;
for i:=1 to n do
sum:=sum+a[i];
writeln(”);
writeln(‘сандардын косындысы=’,sum:6:2);
readln
end.
16

----- «БІЛІМ ЖОЛЫ НҰРЛЫ ЖОЛ» Республикалық журнал – Қараша айы 2020 жыл | № 11 (14) -----
1 минут
1 минут
№4Кез келген екі өлшемді массивтің ең үлкен элементін табу программасын кұр.
Program m9;
Var A:array [1..100,1..100] of integer;
n,m,i,j,max:integer;
Begin
Writeln(‘массив элементiн енгiз’);
readln(n,m);
randomize;
For i:=1 to n do
for j:=1 to m do
A [i,j]:=-25+random(100);
For i:=1 to n do Begin
writeln;
For j:=1 to m do
write (A[i,j]:4); end;
max:=A[1,1];
For i:=1 to n do
For j:=1 to n do
if A[i,j]>max then max:=A[i,j];
writeln;
writeln (‘max=’,max:5);
readln
end.
№5 Кез келген екі өлшемді массивтің ең кіші элементінің жол номері мен баған номерін 
табу программасын құру.
Program m3;
Var A:array [1..100,1..100] of integer;
n,m,i,j,min,k,l:integer;
Begin
Writeln(‘massiv olshemderin engiz’);
Writeln(‘jol olshemin engiz’);
readln(n);
Writeln(‘bagan olshemin engiz’);
readln(m);
randomize;
For i:=1 to n do
for j:=1 to m do
A [i,j]:=-25+random(100);
For i:=1 to n do Begin
writeln;
For j:=1 to m do
write (A[i,j]:4); end;
min:=A[1,1];
For i:=1 to n do begin
For j:=1 to n do
if A[i,j]writeln;
writeln (‘min=’,min:5, ‘ jol=’,k,’ bagan=’,l);
readln
end.
№6 Кез келген екі өлшемді массивтің ең үлкен элементінің жол номері мен баған номерін 
табу программасын құру.
Program m11;
17

----- «БІЛІМ ЖОЛЫ НҰРЛЫ ЖОЛ» Республикалық журнал – Қараша айы 2020 жыл | № 11 (14) -----
Var A:array [1..100,1..100] of integer;
n,m,i,j,max,k,l:integer;
Begin
Writeln(‘massiv olshemderin engiz’);
Writeln(‘jol olshemin engiz’);
readln(n);
Writeln(‘bagan olshemin engiz’);
readln(m);
randomize;
For i:=1 to n do
for j:=1 to m do
A [i,j]:=-25+random(100);
For i:=1 to n do Begin
writeln;
For j:=1 to m do
write (A[i,j]:4); end;
max:=A[1,1];
For i:=1 to n do begin
For j:=1 to n do
if A[i,j]>max then begin max:=A[i,j]; k:=i;l:=j; end;end;
writeln;
writeln (‘max=’,max:5, ‘ jol=’,k,’ bagan=’,l);
readln
end.
№12. Кез – келген бір өлшемді массивтің ең үлкен элементінің индексін табу программасын
құру;
program m8;
uses crt;
var k,i,n,max:integer;
a: array [1..100] of integer;
begin
Randomize;
Writeln(‘массив элементин енгиз’);
readln(n);
for i:=1 to n do
a[i]:=-20+random(100);
for i:=1 to n do
write(a[i]:5);
max:=a[1];
for i:=1 to n do
if a[i]>max then begin max:=a[i];k:=i; end;
writeln(”);
writeln(‘ индекси ‘,k);
readln
end.

жүктеу/скачать 2,76 Mb.

Достарыңызбен бөлісу: