Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

1. Определить, сколько элементов и какого типа в массивах, описанные следующим образом:



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 день). Микрофлора организма человека и окружающей среды»

mybiblioteka.su - 2015-2024 год. (0.011 сек.)