ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 12.01.2024
Просмотров: 38
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Самостоятельная работа по теме «Массивы»
1 вар
-
В программе используется одномерный числовой массив А с индексами от 0 до 9. Ниже представлен фрагмент программы, в котором значения элементов сначала задаются, а затем меняются:
for i:=0 to 9 do
a[i]:=i*5;
for i:=0 to 9 do
a[i]:=a[i] mod 5;
Какие элементы будут в массиве после выполнения фрагмента программы?
2. В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0, 7, 2, 1, 5, 9, 6 соответственно, т.е. A[0]=8, A[1]=4 и т.д. Определите значение переменной c после выполнения следующего фрагмента этой программы.
| Паскаль |
| c := 0; for i := 0 to 8 do if A[i] > A[i+1] then begin c := c + 1; t := A[i]; A[i] := A[i+1]; A[i+1] := t; end; |
3. В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 7;
m := 0;
for k := 1 to 10 do
if Dat[k] < 8 then begin
m := m + 1
end;
writeln(m)
End.
2 вар
1. В программе используется одномерный числовой массив А с индексами от 0 до 9. Ниже представлен фрагмент программы, в котором значения элементов сначала задаются, а затем меняются:
for i:=0 to 9 do
a[i]:=10-i;
for i:=0 to 4 do
a[i]:=a[i+5]
Какие элементы будут в массиве после выполнения фрагмента программы?
-
В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 7; 3; 4; 8; 6; 9; 5; 2; 0; 1 соответственно, т.е. A[0]=7; A[1]=3 и т. д. Определите значение переменной j после выполнения следующего фрагмента программы, записанного ниже на разных языках программирования.
| Паскаль | |
| j := 0; for k := 1 to 9 do begin if A[k] > A[1] then begin A[1] := A[k]; j := j + k end end; | |
3. Школьница делала лабораторную работу по физике, в ходе которой измерила 10 раз силу тока и записала показания амперметра в таблицу Tok (Tok[1] – результат первого измерения, Tok[2] – второго и т. д.). Определите, какое
число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Tok: array[1..10] of integer;
Begin
Tok[1] := 10; Tok[2] := 14;
Tok[3] := 15; Tok[4] := 4;
Tok[5] := 12; Tok[6] := 6;
Tok[7] := 3; Tok[8] := 5;
Tok[9] := 5; Tok[10] := 10;
m := 0;
For k := 1 to 10 Do
If Tok[k] > 6 Then Begin
m := m + 2;
End;
Writeln(m);
End.