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



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

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.

Студенттің өздік жұмысына арналған тапсырмалар
N элементтен тұратын массив берілген. Массивтегі жұп және тақ санды элементтердің суммасын анықтау.
N элементтен тұратын массив берілген. Массивтегі тақ сандардың санын анықтау керек.
10 элементтен тұратын массив берілген. Массив элементтерінің қосындысын табу керек.
N элементтен тұратын массив берілген. Массивтегі 3 санына бөлінетін элементтер санын анықтау керек.
N элементтен тұратын массив берілген. Массивтегі 5 санына бөлінетін элементтер суммасын анықтау керек.
N элементтен тұратын массив берілген. Массивтегі тақ және теріс сандар қосындысын анықтау керек.
N элементтен тұратын массив берілген. Массивтегі тақ номерлі элементтердің квадратын шығару.
- Іс жүргізу
- Автоматтандыру, Техника
- Алғашқы әскери дайындық
- Астрономия
- Ауыл шаруашылығы
- Банк ісі
- Бизнесті бағалау
- Биология
- Бухгалтерлік іс
- Валеология
- Ветеринария
- География
- Геология, Геофизика, Геодезия
- Дін
- Ет, сүт, шарап өнімдері
- Жалпы тарих
- Жер кадастрі, Жылжымайтын мүлік
- Журналистика
- Информатика
- Кеден ісі
- Маркетинг
- Математика, Геометрия
- Медицина
- Мемлекеттік басқару
- Менеджмент
- Мұнай, Газ
- Мұрағат ісі
- Мәдениеттану
- ОБЖ (Основы безопасности жизнедеятельности)
- Педагогика
- Полиграфия
- Психология
- Салық
- Саясаттану
- Сақтандыру
- Сертификаттау, стандарттау
- Социология, Демография
- Спорт
- Статистика
- Тілтану, Филология
- Тарихи тұлғалар
- Тау-кен ісі
- Транспорт
- Туризм
- Физика
- Философия
- Халықаралық қатынастар
- Химия
- Экология, Қоршаған ортаны қорғау
- Экономика
- Экономикалық география
- Электротехника
- Қазақстан тарихы
- Қаржы
- Құрылыс
- Құқық, Криминалистика
- Әдебиет
- Өнер, музыка
- Өнеркәсіп, Өндіріс
Қазақ тілінде жазылған рефераттар, курстық жұмыстар, дипломдық жұмыстар бойынша біздің қор #1 болып табылады.

Ақпарат
Қосымша
Email: info@stud.kz