Основы программирования и алгоритмизации
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮОРЛОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТКурсовая работаОсновы программирования и алгоритмизацииВариант – 10Работу выполнил студентГруппа Факультет ФНТиАПСпециальность Автоматизация технологических процессов и производствКурсовая работа защищена с оценкойОрел 2009Задание на курсовую работуСтудентГруппа Факультет ФНТиАПСпециальность Автоматизация технологических процессов и производствВариант – 10Задания1. В ЭВМ поступают результаты соревнований по плаванию для трех спортсменов. Составьте программу, которая выбирает лучшей результат и выводит его на экран с сообщением, что это лучшей результат.2. Дано натуральное число n. Составить программу, определяющую, есть ли среди чисел n, n+1,...,2n близнецы, т.е. простые числа, разность между которыми равна 2. (Использовать процедуру распознавания простых чисел).3. Найдите сумму элементов массива ниже главной диагонали, произведение не равных нулю элементов выше главной диагонали и количество элементов в главной диагонали, попадающих в интервал [-1;1].4. Опишите множества М1 (1, 2,3) и M2 (1, 4, 2, 5). Получите результирующие множество M3=M1*M2. Определите, имеются ли в M3 элементы 1 и 2.5. Создайте файл, компоненты которого являются целыми числами. Напишите программу, переписывающую компоненты файла в обратном порядке.(Новый файл не заводить).РуководительЗадание принял к исполнению «__» ____________ 2009 г.Подпись студентаСодержаниеЗадание № 1Задание № 2Задание № 3Задание № 4Задание № 5Приложение 1Приложение 2Приложение 3Приложение 4Приложение 5Задание №1Название программы введено после program, в данном задание это – Zadanie1. Далее с помощью var выделены ячейки памяти под переменные X1, X2, X3, res вещественного типа данных. После begin написан ход работы программы из последовательности операторов.С помощью операторов writeln и readln описывается, что нужно ввести и записывается введенный результат в память, соответственно. Таким образом, вводим результаты спортсменов X1, X2, X3.Далее с помощью условных операторов if определяем наименьший результат, который присваивается переменной res: if X1X3 then res:=X3;. С помощью оператора writeln на экран выдается сообщение с результатом победителя заплыва.Закрытие программы – end.Алгоритм к Заданию №1:Задание №2Название программы введено после program, в данном задание это – Zadanie2. Далее с помощью var выделены ячейки памяти под переменные j, B, N типа данных word и массива а логического типа данных. После begin написан ход работы программы из последовательности операторов.С помощью процедуры Pch определяем все простые числа, используемые в программе. Далее оператором writeln выводим сообщение о том, что ниже будут выдаваться числа близнецы.Создаем цикл: for j:=N to 2*N do, где будет проверяться условие, что разность между числами равна 2. Если условие верно, то выдаются на экран сравнивающиеся числа, которые и будут близнецы.Закрытие программы – end.Процедура Pch.Кроме общих переменных заданных в программе в процедуре используются внутренние переменные b, k типа данных word. Задаем диапазон, на котором будем выделять простые числа. Далее создаем цикл: for j:=2 to 2*N do, в котором всем значениям массива а присваиваем значение TRUE. С помощью нескольких циклов в цикле: while k<=b do, всем не простым числам в массиве а присваиваются значения FALSE.Таким образом получаем массив а, где простые числа отмечены TRUE. Закрытие процедуры – end.Алгоритм к Заданию №2:
|