Бір өлшемді массив тақырыбына арналған компьютерлік тәжірибелік жұмыс




Презентация қосу
Бір өлшемді массив тақырыбына
арналған компьютерлік
тәжірибелік жұмыс
N элементтерден тұратын массив берілген. Тақ санды
элементтердің квадратын шығару керек.
Program pr1;
Const n=5;
Var a:array [1..n] of integer; i:integer;
Begin
For i:=1 to n do begin
Write('массив элементтерін енгізу: '); readln(a[i]);
End;
For i:=1 to n do
If I mod 2=1 then writeln(' ', a[i]*a[i]);
End.
N элементтен тұратын массив берілген. Ондағы жұп
сандарды 0-ге, тақ сандарды –(1)-ге алмастыру.
Program pr1;
Const n=5;
Var a:array [1..n] of integer; i:integer;
Begin
For i:=1 to n do begin
Write('массив элементтерін енгіз:'); readln(a[i]);
End;
For i:=1 to n do
If a[I] mod 2=0 then a[i]:=0 else a[i]:=1;
writeln;
for i:=1 to n do write(' ', a[i]);
End.
N санынан тұратын массив элементтері берілген.
Массивтегі жұп сандардың санын анықтау
программасын құру.
Program pr1;
uses crt;
Const n=5;
Var a:array [1..n] of integer; i,s:integer;
Begin clrscr;
For i:=1 to n do begin
Writeln('массив элементтерін енгіз:'); readln(a[i]);
End;
s:=0;
For i:=1 to n do
If a[I] mod 2=0 then s:=s+1;
writeln('массивтегі жұп санды элементтер саны=', s);
End.
N элементтен тұратын массив берілген. Элементтер ішінен 3-ке
бөлінетін бірақ 5-ке бөлінбейтін элементтер санын анықтау керек.
Program pr1;
uses crt;
Const n=5;
Var a:array [1..n] of integer; i,s:integer;
Begin clrscr;
For i:=1 to n do begin
Writeln('массив элементтерін енгіз:'); readln(a[i]);
End;
s:=0;
For i:=1 to n do
If (a[I] mod 3=0) and (a[i] mod 5<>0) then s:=s+1;
writeln('3-ке бөлінетін, бірақ 5-ке бөлінбейтін тақ сандар=', s);
End.
N элементтен тұратын массив берілген. Массивтегі 0 емес
элементтер санын анықтайтын программа құру.
Program massiv1;
Var a:array[1..5] of integer;
N,i:integer;
Begin
Writeln('массив элементтерін енгіз:');
N:=0;
For i:=1 to 5 do begin
Write('i-?');
Readln(a[i]);
If a[i]<>0 then n:=n+1; end;
Writeln('массивтағы 0 емес элементтер саны:', n);
Readln;
End.
N элементтен тұратын массив берілген. Массивтегі тақ
номерлі элементтерді экранға шығару.
Program massiv1;
uses crt;
Var a:array[1..5] of integer;
s,i:integer;
Begin clrscr;
for i:=1 to 5 do begin
Writeln('massiv elem engiz'); readln(a[i]);
end;
for i:=1 to 5 do
if i mod 2=1 then writeln(a[i]);
end.
СТУДЕНТТІҢ ӨЗДІК ЖҰМЫСЫНА
АРНАЛҒАН ТАПСЫРМАЛАР
1. N элементтен тұратын массив берілген. Массивтегі жұп
және тақ санды элементтердің суммасын анықтау.
2. N элементтен тұратын массив берілген. Массивтегі тақ
сандардың санын анықтау керек.
3. 10 элементтен тұратын массив берілген. Массив
элементтерінің қосындысын табу керек.
4. N элементтен тұратын массив берілген. Массивтегі 3
санына бөлінетін элементтер санын анықтау керек.
5. N элементтен тұратын массив берілген. Массивтегі 5
санына бөлінетін элементтер суммасын анықтау керек.
6. N элементтен тұратын массив берілген. Массивтегі тақ
және теріс сандар қосындысын анықтау керек.
7. N элементтен тұратын массив берілген. Массивтегі тақ
номерлі элементтердің квадратын шығару.

Ұқсас жұмыстар
Сандық массивтерді сұрыптау тақырыбы бойынша сабақтарға арналған әдістемеліктер
Массивтер. Бірөлшемді массивтермен жұмыс
Бір өлшемді массивтерді сұрыптау
Бір өлшемді массивтер
Жиымдар бірөлшемді жиым (массив)
МАТРИЦАЛАРДЫ ЕНГІЗУ - ШЫҒАРУ
Массив ұғымына жалпы түсініктеме
Бірөлшемді массив элементтерінің қосындысын табу программасы
Деректер базасының архитектурасы
ПАЙДАЛАНЫП ОҚЫТУ
Пәндер