Программа «Коды символов» на языке программирования OpenOffice.org Basic
Проект «Коды символов» на языках объектно-ориентированного программирования Visual Basic и Gambas
Лабораторная работа № 8. Шаг 1. Знакомимся с массивами в языке программирования Паскаль
Лабораторная работа № 8. Шаг 2. Решаем задачи на Паскале
Лабораторная работа № 8. Шаг 3. Тест (1 - 4)
Лабораторная работа № 8. Шаг 3. Тест (5 - 8)
Для дополнительного выполнения
Шаг 3. Тест
1. (Из материалов ГИА.) В таблице Dat хранятся данные о численности учеников в классах (Dat[1] – число учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет выведено в результате работы следующей программы.
var k, m: integer; dat: array[1..11] of integer; begin dat[1]:=20; dat[2]:=25; dat[3]:=19; dat[4]:=25; dat[5]:=26; dat[6]:=22; dat[7]:=24; dat[8]:=28; dat[9]:=26; dat[10]:=21; dat[11]:=27; m := 0; for k := 1 to 11 do if dat[k] > 22 then begin m:=m+1 end; writeln(m) end.
Ответ: _________
2. (Из материалов ЕГЭ.) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы.
for n:=1 to 100 do A[n]:=n-10; for n:=1 to 100 do B[n]:=A[n]*n
Сколько элементов массива B будут иметь положительные значения?
Ответ: _________
3. (Из материалов ЕГЭ.) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы.
for n:=1 to 100 do A[n]:= (n-80)*(n-80); for n:=1 to 100 do B[101-n]:=A[n];
Какой элемент массива B будет наибольшим?
Ответ: _________
4. (Из материалов ЕГЭ.) В программе используется одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент программы, в которой значения элементов сначала задаются, а затем меняются.
for i:=0 to 10 do A[i]:=i; for i:=0 to 10 do begin A[10-i]:=A[i]; A[i]:=A[10-i]; end;
Чему будут равны элементы этого массива после выполнения фрагмента программы?
Ответ: _________