МИНОБРНАУКИ РОССИИ
4.2 Расчет параметров такелажного оборудования.
4.3 Подбор такелажного оборудования. Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования ПЕТРОЗАВОДСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ Физико-технический факультет Отчет по практике Дисциплина: «Информатика» Разработка программы на языке Паскаль «Условные операторы в Turbo Pascal»
(Задание № 11 Вариант 4)
Выполнила: студентка 1 курса ФТФ, гр.21117 Гук И.Л.
Руководитель практики: Логинова С.В.
Петрозаводск 2014
Задание: Ввести N чисел. Проверить, являются ли введенные числа перестановкой {1,3,5,... 2*N-1} Словесно-формульный алгоритм: 1.Ввод числа N. 4.Вывод переменной b как результат проверки. Блок — схема:
Листинг программы:
uses crt; VAR A: set of BYTE; i,n,t:integer; b:Boolean; BEGIN A:= []; Write('N='); ReadLn(n); {Ввод числа N} For i:=1 to n do {Ввод множества} Begin Write('A[',i,']= '); ReadLn(t); include (A, t); end; WriteLn;
b:=true; For i:=1 to n do If (i*2-1 in A)=false then b:=false; {Проверка вхождения элементов ряда [1, 3, 5,..., 2*N-1] в введенное множество} WriteLn(b); ReadLn; END.
Инструкцию пользователя: 1. Запустите программу 2. Введите значения N (количество элементов в множестве) 3. Нажмите Enter 4. Введите значение всех элементов, после ввода каждого элемента нажимайте Enter
Результат появится на экране. Для закрытия программы нажмите любую клавишу.
МИНОБРНАУКИ РОССИИ
|
