Бір өлшемді массивтер: зертханалық жұмыс және бағдарламалау тапсырмалары

Скачать

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

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 элементтен тұратын массив берілген. Массивтегі тақ номерлі элементтердің квадратын шығару.

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