Информатика. Шевелев Г.Е. - 93 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

93
Задание: Из множества целых чисел от 1 до 100 выделить множество
чисел, делящихся без остатка на 2 или 3.
Набрать и отладить программу.
Методика выполнения работы
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? Внесите эти изменения и
проверьте правильность работы программы.
Задания для самостоятельной работы
Составить программу на языке Паскаль, отладить и провести расчеты.

Страницы