Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

 
б) 
 
в) 
Рис. 8.7. Блок-схема к примеру 6: 
а – блок-схема определения простого числа; 
б – блок-схема составления массива из простых чисел; 
в – блок-схема основной программы 

---

129 
Program Primer_6; 
Type mas=array[1..50] of Integer; 
Procedure wwod(k:Integer; Var c:mas); 
Var i:Integer; 
Begin 
For i:=1 to k do c[i]:=Random(100); 
End; 
Procedure Wiwod(k:Integer; c:mas); 
Var i:Integer; 
Begin 
For i:=1 to k do Write(c[i]:4); 
Writeln; 
End; 
Procedure Prost(y:Integer; Var x:Boolean); 
Var z,d:Integer; 
Begin 
z:=0; 
For d:=1 to y do If y mod d=0 Then z:=z+1; 
If z=2 Then x:=True Else x:=False; 
End; 
Procedure Now(k:Integer; c:mas; Var j:Integer; Var q:mas); 
Var i:Integer; t:boolean; 
Begin 
j:=0; 
For i:=1 to k do 
Begin 
Prost(c[i],t); 
If t=True Then begin j:=j+1; q[j]:=c[i]; end; 
End; 
End; 
{Основная программа} 
Var a,b:mas; n,m:Integer; 
Begin 
Writeln('Ввести количество элементов массива, то есть размер 
массива'); 
Readln(n); 
Wwod(n,a); 
Writeln('Исходный массив'); 

---

130 
Wiwod(n,a); 
Now(n,a,m,b); 
Writeln('Полученный массив'); 
Wiwod(m,b); 
End. 
 
Контрольные вопросы 
 
1. Что такое массив? 
2. Что имеет каждый элемент массива? 
3. Как называют имя массива? 
4. Как обозначается каждый элемент массива? 
5. Что такое размерность массива? 
6. Как в программе объявляется одномерный массив? Пере-
числите все способы. 
7. Для чего предназначена функция Random? 
8. Напишите алгоритм нахождения максимального элемента 
массива. 
9. Type T = array [T1] of T2, где Т – ...; Т1 – ...; Т2 – ... 
Вставьте необходимые слова вместо многоточия.
10. Var T: array [T1] of T2, где 
Т – ...; Т1 – ...; Т2 – ... 
Вставьте необходимые слова вместо многоточия. 
11. Type ... = ... [T1] ... T2, где 
Т – имя типа массива; Т1 – ...; 
Т2 – ... Вставьте необходимые слова вместо многоточия. 
12. T = array [1..10] of integer; В каком подразделе можно 
описать массив таким образом? 
13. C: array [1..10] of real; В каком подразделе можно описать 
массив таким образом? 
14. mas: array [1..10] of byte = (1, 3, 5, 50, 7, 240, 13, 143, 196, 
87); В каком подразделе можно описать массив таким образом? 
15. ... B = array [1..20] of real; ... A: array [1..30] of B; Вставьте 
названия подразделов. 
16. Охарактеризуйте данный массив: B: array [1..20] of real; 
17. Охарактеризуйте данный массив: F: array [1..15] of string[30] 
18. Охарактеризуйте данный массив: G: array [Red, Yellow, 
Green] of char; 
19. Охарактеризуйте данный массив: L: array [byte] of Boolean; 
20. Как осуществляется ввод элементов одномерного массива? 
21. Как осуществляется вывод элементов одномерного массива? 

---

131