Файл: Самостоятельная работа по теме Массивы.docx

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 12.01.2024

Просмотров: 35

Скачиваний: 1

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

Самостоятельная работа по теме «Массивы»

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]

Какие элементы будут в массиве после выполнения фрагмента программы?


  1. В программе используется одномерный целочисленный массив 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.