Бір өлшемді массив тақырыбына арналған компьютерлік тәжірибелік жұмыс
Презентация қосу
Бір өлшемді массив тақырыбына
арналған компьютерлік
тәжірибелік жұмыс
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 элементтен тұратын массив берілген. Массивтегі тақ
номерлі элементтердің квадратын шығару.
Ұқсас жұмыстар
Пәндер
- Іс жүргізу
- Автоматтандыру, Техника
- Алғашқы әскери дайындық
- Астрономия
- Ауыл шаруашылығы
- Банк ісі
- Бизнесті бағалау
- Биология
- Бухгалтерлік іс
- Валеология
- Ветеринария
- География
- Геология, Геофизика, Геодезия
- Дін
- Ет, сүт, шарап өнімдері
- Жалпы тарих
- Жер кадастрі, Жылжымайтын мүлік
- Журналистика
- Информатика
- Кеден ісі
- Маркетинг
- Математика, Геометрия
- Медицина
- Мемлекеттік басқару
- Менеджмент
- Мұнай, Газ
- Мұрағат ісі
- Мәдениеттану
- ОБЖ (Основы безопасности жизнедеятельности)
- Педагогика
- Полиграфия
- Психология
- Салық
- Саясаттану
- Сақтандыру
- Сертификаттау, стандарттау
- Социология, Демография
- Спорт
- Статистика
- Тілтану, Филология
- Тарихи тұлғалар
- Тау-кен ісі
- Транспорт
- Туризм
- Физика
- Философия
- Халықаралық қатынастар
- Химия
- Экология, Қоршаған ортаны қорғау
- Экономика
- Экономикалық география
- Электротехника
- Қазақстан тарихы
- Қаржы
- Құрылыс
- Құқық, Криминалистика
- Әдебиет
- Өнер, музыка
- Өнеркәсіп, Өндіріс
Қазақ тілінде жазылған рефераттар, курстық жұмыстар, дипломдық жұмыстар бойынша біздің қор #1 болып табылады.
Ақпарат
Қосымша
Email: info@stud.kz