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


Бұл презентацияның бағасы: 400 теңге


Презентация қосу
Бір өлшемді массив тақырыбына
арналған компьютерлік
тәжірибелік жұмыс
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 элементтен тұратын массив берілген. Массивтегі тақ
номерлі элементтердің квадратын шығару.
Ұқсас жұмыстар
Бір өлшемді массивтерді сұрыптау
Оқушылардың компьютерлік графикамен жұмыс
Тәжірибелік сабақ
"Компьютерлік сауаттылық – өмір талабы" мұғалімдерге арналған баяндама
Массив ұғымына жалпы түсініктеме
Бір-халық, Бір-ел, Бір-тағдыр
Көктем тақырыбына сурет салу
Екі өлшемді жиымдар
Масса тақырыбына есептер шығару
Жиымдар бірөлшемді жиым (массив)
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь