ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 12.01.2024
Просмотров: 95
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Самостоятельная работа по теме «Массивы»1 вар
3. В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.Var k, m: integer;Dat: array[1..10] of integer;BeginDat[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 doif Dat[k] < 8 then beginm := m + 1end;writeln(m)End.2 вар1. В программе используется одномерный числовой массив А с индексами от 0 до 9. Ниже представлен фрагмент программы, в котором значения элементов сначала задаются, а затем меняются:for i:=0 to 9 doa[i]:=10-i;for i:=0 to 4 doa[i]:=a[i+5]Какие элементы будут в массиве после выполнения фрагмента программы?
3. Школьница делала лабораторную работу по физике, в ходе которой измерила 10 раз силу тока и записала показания амперметра в таблицу Tok (Tok[1] – результат первого измерения, Tok[2] – второго и т. д.). Определите, какоечисло будет напечатано в результате работы следующей программы.Var k, m: integer;Tok: array[1..10] of integer;BeginTok[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 DoIf Tok[k] > 6 Then Beginm := m + 2;End;Writeln(m);End.
-
В программе используется одномерный числовой массив А с индексами от 0 до 9. Ниже представлен фрагмент программы, в котором значения элементов сначала задаются, а затем меняются:
| Паскаль |
| 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; |
-
В программе используется одномерный целочисленный массив 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;BeginTok[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 DoIf Tok[k] > 6 Then Beginm := m + 2;End;Writeln(m);End.