|
1. Определить, сколько элементов и какого типа в массивах, описанные следующим образом:
a). B: array [1..2] of Integer
b). C:array [1..10] of Real
c). D: array [1..7] of Char
2. Объявите в программе одномерный массив целых чисел из 10 элементов. Используя операторы цикла, ввести с клавиатуры элементы массива, а затем вывести их на экран. Результат показать преподавателю.
3. Определить, сколько элементов и какого типа в массивах, описанные следующим образом:
a). B: array [1..2,1..3] of Integer
b). C:array [1..3,1..3] of Real
c). D: array [1..2,1..2] of Char
4. Составить программу решения следующей задачи: ввести с клавиатуры массив из 10 целых чисел и подсчитать сумму элементов массива. Вывести элементы массива и сумму на экран. Результат показать преподавателю. (Воспользуйтесь алгоритмом №1)
Задание по теме «Массивы» 1.1
1. Определить, сколько элементов и какого типа в массиве, объявленном в программе.
2. Что будет выведено на экране монитора?
Program mas1;
var A:array[1..2] of Integer;
Begin
A[1]:=2; A[2]:=4;
FOR i:= 1 TO 2 DO WRITELN (A[i]);
End.
Задание по теме «Массивы» 1.2
1. Определить, сколько элементов и какого типа в массиве, объявленном в программе.
2. Что будет выведено на экране монитора?
Program mas2;
var B:array[1..5] of Real;
Begin
B[1]:=10.1; B[2]:=9.1; B[3]:=8.2;
B[4]:=7.6;B[5]:=6.3;
FOR i:= 1 TO 5 DO WRITELN (B[i]);
End.
Задание по теме «Массивы» 1.3
1. Определить, сколько элементов и какого типа в массиве, объявленном в программе.
2. Что будет выведено на экране монитора?
Program mas3;
var C:array[1..3] of Integer;
Begin
C[1]:=5; C[2]:=25; C[3]:=125;
FOR i:= 1 TO 3 DO WRITELN (C[i]);
End.
Задание по теме «Массивы» 1.4
1. Определить, сколько элементов и какого типа в массиве, объявленном в программе.
2. Что будет выведено на экране монитора?
Program mas3;
var C:array[1..3] of Integer;
Begin
C[1]:=5; C[2]:=25; C[3]:=125;
FOR i:= 1 TO 3 DO WRITELN (C[i]);
End.
Задание по теме «Массивы» 2.1(сост.прогр)
1. Дан массив с заданными элементами. Объявить его в программе (в разделе VAR)
2. Заполнить массив числами, данными на рисунке.
массив А
Элемент массива: A[1] A[2]
Задание по теме «Массивы» 2.2(сост.прогр)
1. Дан массив с заданными элементами. Объявить его в программе (в разделе VAR)
2. Заполнить массив числами, данными на рисунке.
массив B
10.1 | 9.1 | 8.2 | 7.6 | 6.3 |
Элемент массива: B[1] B[2] B[3] B[4] B[5]
Задание по теме «Массивы» 2.3 (сост. прогр)
1. Дан массив с заданными элементами. Объявить его в программе (в разделе VAR)
2. Заполнить массив числами, данными на рисунке.
массив C
Элемент массива: C[1] C[2] C[3]
Задание по теме «Массивы» 2.3 (сост. прогр)
1. Дан массив с заданными элементами. Объявить его в программе (в разделе VAR)
2. Заполнить массив числами, данными на рисунке.
массив C
Элемент массива: C[1] C[2] C[3]
Задание по теме «Массивы» 2.2(сост.прогр)
1. Дан массив с заданными элементами. Объявить его в программе (в разделе VAR)
2. Заполнить массив числами, данными на рисунке.
массив B
10.1 | 9.1 | 8.2 | 7.6 | 6.3 |
Элемент массива: B[1] B[2] B[3] B[4] B[5]
PROGRAM B;
VAR A:ARRAY[1..10] OF INTEGER;
I,SUMMA:INTEGER;
BEGIN
WRITELN('Введите элементы массива');
FOR I:=1 TO 10 DO READLN(A[I]);
WRITELN('Элементы массива:');
FOR I:=1 TO 10 DO WRITE(A[I],' ');
SUMMA:=0;
FOR I:=1 TO 10 DO SUMMA:=SUMMA+A[I];
WRITELN('Сумма элементов массива равна:',summa);
END.
PROGRAM С;
VAR A:ARRAY[1..10] OF INTEGER;
I,SUMMA:INTEGER;
BEGIN
WRITELN('Введите элементы массива');
FOR I:=1 TO 10 DO READLN(A[I]);
WRITELN('Элементы массива:');
FOR I:=1 TO 10 DO WRITE(A[I],' ');
END.
PROGRAM D;
VAR A:ARRAY[1..10] OF INTEGER;
I,SUMMA:INTEGER;
BEGIN
WRITELN('Введите элементы массива');
FOR I:=1 TO 10 DO READLN(A[I]);
WRITELN('Элементы массива:');
FOR I:=1 TO 10 DO WRITE(A[I],' ');
END.
1. Что такое массив (array)? Что называют элементами массива? Для чего нужен индекс элемента массива? К какому классу данных относятся массивы?
2. Как в программе объявить переменную типа массив?
3. Как обратиться к элементам массива? Что означает запись в программе: “A[1]:=7”?
Дата добавления: 2015-11-04; просмотров: 73 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
| | по теме «Методика выделения чистых культур аэробных бактерий (2 день). Микрофлора организма человека и окружающей среды» |