Составление алгоритмов, реализованных в алгоритмическом языке Паскаль

Содержание

Введение

Задание 1. Теоретический вопрос

Задание 2. Линейные алгоритмы

Задание 3. Алгоритмы ветвления

Задание 4. Алгоритмы обработки массивов

Задание 5. Алгоритмы обработки сложных структур

Заключение

Список литературы

Введение

Цель курсовой работы состоит в обеспечении изучения требований к уровню знаний по предмету «Информатика», а также приобретение практических и теоретических навыков.

Курсовая работа состоит из пяти заданий, которые представляют собой комплекс включающий:

1. теоретический вопрос, ответом на который должен являться мини-реферат;

2. четыре задания на составление алгоритмов, реализованных в алгоритмическом языке Паскаль.

Задание 1. Теоретический вопрос

Задание

Закон об информатизации и его основные положения.

Выполнение

ФЕДЕРАЛЬНЫЙ ЗАКОН ОТ 20 ФЕВРАЛЯ 1995 Г. № 24-ФЗ «ОБ ИНФОРМАЦИИ, ИНФОРМАТИЗАЦИИ И ЗАЩИТЕ ИНФОРМАЦИИ»

Принят Государственной Думой 25 января 1995 года.

Задание 2. Линейные алгоритмы

Задание

Написать программу реализации линейного алгоритма приема исходных данных со стандартного внешнего устройства (клавиатуры), преобразования данных в результат по заданной в соответствии с вариантом формуле и вывода исходных данных и результата на стандартное устройство вывода (дисплей). Исходные данные и результат должны быть представлены в форматированном виде.

Выполнение

Дана формула для выполнения задания:

Для удобства программирования некоторые части функции представим в виде функций:

,

Программа для указанного варианта имеет следующий вид:

program Task2;

uses

Crt; {Подключение графического модуля}

Var

x:real; {переменные для ввода данных}

m,k,z:real;

begin

ClrScr;

Write('Введите исходные данные (x): ');

ReadLn(x);

m:=4.187+Pi*Pi+sin(x*Pi/7);

k:=tan(3*Pi/4+x*Pi);

z:=m/k;

WriteLn('Исходные данные:');{Вывод на экран исходных данных}

WriteLn('x=',x:3:2);

WriteLn;

Write('Результат: ');{Вывод на экран результат}

WriteLn(' z=',z:3:2);

Readln;

end.

Рис. 1. Примерный вид исходных данных и результатов на экране

Задание 3. Алгоритмы ветвления

Задание

Написать программу, определяющую принадлежит ли точка с заданными координатами ( x,y) заштрихованной области на прилагаемом в соответствии с вариантом графике: см. рис. 2.

Рис. 2. График к заданию 3

Выполнение

Рассмотрим условия, при которых точка (x,y) может принадлежать заштрихованной области, для чего выделим 2 функции.

Область ограничена первой функцией: , осью абсцисс и осью ординат. Следовательно, координаты точки должны удовлетворять условию:

.

Также область ограничена второй функцией: , осью абсцисс и осью ординат.

Следовательно, координаты точки должны удовлетворять условию.

.

Оба эти условия могут быть записаны в виде логических выражений, истинность которых будет означать, что данная точка принадлежит заданной фигуре. Можно записать в терминах алгебры логики следующим образом:

Программа для указанного варианта имеет следующий вид:

Program Task3;

Uses

Crt;{Подключаеммодульграфики}

Var

x,y:real;{переменные, координаты заданной точки}

f1,f2,f:Boolean;{переменные, хранения значений функций}

Begin

ClrScr;{Очистка экрана}

Write('Введите значения X и Y: ');

ReadLn(x,y);{Ввод координат точки}

f1:=(x<=0)and(y>=0)and(Sqrt(x*x+y*y)<=4);{Ограничиваем функцию осью асцисс и осью ординат}

f2:=(x<=0)and(y<=0)and(Sqrt(x*x+y*y)<=6);

f:=f1 and f2;

If f then{проверка условия принадлежности области}

WriteLn('Заданная точка принадлежит заданной области')

else

WriteLn('Заданная точка не принадлежит заданной области');

ReadKey;

end.

В результате работы программы на дисплей будет выведено соответствующее сообщение: см. рис. 3.

Рис. 3. Вид выполнения программы по заданию 3

Задание 4. Алгоритмы обработки массивов

Задание. В одномерном массиве, содержащем положительные, отрицательные элементы и нули, найти первый отрицательный элемент. Вывести на экран исходный массив и порядковый номер первого отрицательного элемента.

Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным. Вывести на экран исходный и результирующий массивы.

Выполнение

Алгоритм решения задачи состоит из следующих шагов:

1. ввести исходное количество элементов массива;

2. ввести элементы массива по одному в строке;

3. найти первый отрицательный элемент;

4. последовательно вывести на экран исходный и номер первого отрицательного элемента.

Программа для указанного варианта имеет следующий вид:

Program Task4;

Uses

Crt;{Подключаеммодульграфики}

Var

n,i,j, otr :integer;{переменные}

m:real;{переменная для хранения минимального значения}

a:Array [1..20] of real;{одномерный массив, вещественных чисел}

Begin

ClrScr;{Очистка экрна}

Write('Количество элемент

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать