Microsoft Word Лаб практ инф

Методика выполнения работы
 
 
1. Программа: 
Program Set_of ; 
Uses crt; 
Const 
n=100; 
var 
n2, n3, n23:Set of byte; {Описание 3-х множеств с элементами типа byte} 
i:integer; 
Begin 
Clrscr; 
{Формирование множеств, элементы которых делятся без остатка на 2 и 3} 
n2:=[]; n3:=[]; 
For i:=1 To n Do 
Begin 
If i mod 2 =0 Then n2:=n2+[i]; 
If i mod 3 =0 Then n3:=n3+[i] 
End; 
{Объединение множеств для получения множества с элементами, 
делящимися без остатка на 2 или 3} 
n23:=n2+n3; 
{Вывод полученного множества} 
Writeln(‘На 2 или 3 делятся без остатка следующие числа’); 
For i:=1 To n Do 
If i IN n23 Then Write(i:4); 
Writeln 
End. 
 
2. Наберите, откомпилируйте и исправьте возможные ошибки. Проведите 
расчет для заданного множества. 
3. Что нужно изменить в программе, чтобы она находила числа, которые 
одновременно делились бы без остатка на 2 и 3? Внесите эти изменения и 
проверьте правильность работы программы. 
 
 
 
Задания для самостоятельной работы
 
 
Составить программу на языке Паскаль, отладить и провести расчеты. 

---

94
Вариант 
1.1. Задан список группы из 20 студентов (фамилия, имя) и их 
оценки по сдаче экзамена. Вывести список студентов, получивших оценки 
выше среднего балла для этой группы. 
Вариант 1.2
. Разработать базу данных «Компьютерная фирма» (процессор, 
материнская плата, винчестер, видеокарта, монитор, стоимость). Вывести 
данные о компьютерах фирмы, стоимость которых менее 20 тыс. р.