Практические работы на тему Основные алгоритмические конструкции и их описание средствами языка программирования Паскаль

Министерство образования, науки и молодежной политики
Краснодарского края
Государственное бюджетное профессиональное образовательное учреждение
Краснодарского края «Пашковский сельскохозяйственный колледж»
Практические работы
на тему
«Основные алгоритмические конструкции и их описание средствами языка программирования Паскаль»
Разработчик:
Глухова С.В. преподаватель компьютерных дисциплин ГБПОУ КК ПСХК

Практическая работа № 5
Тема: Среда программирования. Тестирование готовой линейной программы. Программная реализация несложного алгоритма.
Цель работы:
научиться применять основные операторы и редактировать программы с линейной структурой;
сформировать навыки работы в среде программирования;
изучить на практике как составляются программы с линейной структурой
Оснащение рабочего места: персональный компьютер, программа Turbo Pascal, ИТК.
Литература:
Цветкова М.С., Великович Л.С. Информатика и ИКТ: учебник для студ. учреждений сред. проф. образования. — М., 2014
Астафьева Н.Е., Гаврилова С.А., Цветкова М.С. Информатика и ИКТ: Практикум для профессий и специальностей технического и социально-экономического профилей: учеб. пособие для студ. учреждений сред. проф. образования / под ред. М.С.Цветковой. — М., 2014
Цветкова М.С., Хлобыстова И.Ю. Информатика и ИКТ: практикум для профессий и специальностей естественно-научного и гуманитарного профилей : учеб. пособие для студ. учреждений сред. проф. образования. — М., 2014.
Норма времени: 2часа.
Ход работы:
Изучить ИТК, ознакомиться с учебным материалом.
Включить ПК.
Следуя указаниям инструкционного материала выполнить практическую работу.
Защитить работу.
Защита работы:
Уметь создавать линейные программы, компилировать и тестировать их.
Предоставить на экране дисплея выполненную работу.
Ответить на контрольные вопросы.
Учебный материал:
Окно программы Turbo Pascal состоит из главного меню, рабочего поля и панели функциональных клавиш.
Основными операторами являются:
Read, Readln – оператор ввода данных;
: = – оператор присваивания;
Write, Writeln - оператор вывода.
Program - зарезервированное слово для обозначения заголовка программы.
Var - зарезервированное слово для обозначения раздела переменных.
Begin и End - служебные слова, заключающие между собой раздел операторов.
38989024638000Структура программы с линейной структурой
Строка меню в Turbo Pascal содержит заголовки десяти меню: file (Файл), Edit (Правка), Search (Поиск), Run (Запуск),Compile (Компиляция), Debug (Отладка), Tools (Инструментальные средства), Options (Опции), Window (Окно), Help (Справка).
Для того чтобы открыть любое из этих меню, достаточно щелкнуть один раз на его заголовке или нажать F10, в результате заголовок одного из меню окажется выделен. После этого с помощью клавиш-стрелок остается переместить курсор на заголовок нужного меню и нажать <Enter>.
Каждый пункт меню содержит подпункты:
I) меню File содержит:
New (Создать) - открывает новое окно редактора, в котором можно создавать новую программу;
Open (Открыть) - открывает диалоговое окно Open File. В этом диалоговом окне имеется поле ввода (Name) имени файла, который требуется открыть.
Save (Сохранить) - сохраняет внесенные в программу обновления.
Save as (Сохранить как) - служит для первоначального сохранения файла с указанием пути и имени файла.
Save all (Сохранить все) - сохраняет все открытые в данный момент файлы.
Change dir (Изменение директории) - открывает диалоговое окно, предназначенное для смены текущего каталога.
Print (Печать) - инициирует печать содержимого активного окна редактора.
Printer setup (Установка принтера) - открывает диалоговое окно с настройками.
DOS shell (Среда DOS) - осуществляет временный выход в DOS.
Exit (Выход) - служит для выхода из интегрированной среды. (Alt+X)
2)меню Edit содержит:
Undo (Отменить) - отменяет последнее действие, связанное с редактированием текста в окне редактора. (Alt + Beckspase)
Redo (Повторить) - отменяет результат последнего использования команды Undo.
Cut (Вырезать) — «вырезает» текст, выделенный в окне редактора, и помещает его в буфер обмена. (Shift + Del)
Сору (Копировать) - копирует в буфер обмена текст, выделенный в окне редактора. (Ctrl + Ins)
Paste (Вставить) — вставляет текст из буфера обмена.(Shift+ Ins)
Clear (Очистить) - удаляет выделенный текст. (Ctrl+Del)
Show clipboard - выводит на экран окно Clipboard, отображающее текущее содержимое буфера обмена.
3)меню Search содержит:
Find (Поиск) - открывает диалоговое окно, позволяющее задать текст для поиска.
Replase - открывает диалоговое окно Replase.
Search again - повторяет команду Find или Replase, которая выполнялась последней.
Go to line number - открывает диалоговое окно Go to line number.
Show last compliter error (Показать последнюю ошибку компилятора) -перемещает курсор к месту ошибки.
Find error (Поиск ошибки) - открывает диалоговое окно Find error
Find procedure (Поиск процедуры) - открывает диалоговое окно Find procedure, в котором можно ввести имя необходимой процедуры или функции.
4)меню Run содержит:
Run (Запуск) - осуществляет компиляцию и запуск программы, исходный текст которой находится в активном окне редактора.
Step over (По шагам ) - последовательно выполняет операторы по одному за раз в текущей программе.
Trace into (Трассировать подпрограммы) - выполняет действия подобные Step over.
Go to cursor (Выполнить до курсора).
Program reset (Сброс программы ) - приостанавливает работу программы.
Parameters (Параметры программы)
Задание 1.
Наберите текст программы, описывающей решение примера С=А+В. Выполните компиляцию программы и тестирование.
Для этого:
На рабочем столе откройте папку Turbo Pascal и в ней вложенную папку BIN.
В папке BIN выберите файл TURBO.EXE
В окне текстового редактора программы Turbo Pascal наберите текст программы:
Program Z1;
Var А, В, С: integer;
Begin
Writeln ('Задача 1');
Writeln ('Введите число А');
Readln (A);
Writeln ('Введите число В');
Readln (B);
С:=А+В;
Writeln ('с=' , с );
Readln ;
End .Проверьте программу на ошибки (компиляция)- нажать F9.
Сохраните программу, выбрав в меню File/Save as.
Протестируйте программу:
запустить программу, выбрав в меню пункт Run/Run.,.
в ответ на приглашение «Введите число А» набрать 23,
в ответ на приглашение «Введите число В» набрать 17,
если программа работает правильно, то в результате будет выведено –
С=40
Для возврата в программу нажмите клавишу Enter.
8. Самостоятельно протестируйте программу с другими числовыми данными:А=2; В= -12;
А = -10; В= -17;
А = 0; В= - 20;
Задание 2
Измените исходную программу, чтобы она находила частное двух чисел.
Сохраните программу под другим именем.
Задание 3
Измените исходную программу, чтобы она находила сумму четырех чисел.
Сохраните программу под другим именем.
Задание 4
Наберите текст программы, описывающей решение примера Выполните компиляцию программы и тестирование.
Для этого:
В окне текстового редактора программы Turbo Pascal наберите текст программы:
Program Z2;
Var А, В, D : real;
Begin
Writеln ('Задача 2');
Writеln ('Введите А');
Readln (A);
Writeln ('Введите В');
Readln ( В );
D:= (6*A+2*B)/ 4*A;
Writeln ('D= ', D );
Readln ;
End.
Проверить программу на ошибки - нажать F9.
Сохранить программу, выбрав в меню File/Save as.
Протестировать программу:
запустить программу, выбрав в меню пункт Run/Run.,.
в ответ на приглашение «Введите число А» набрать 2,
в ответ на приглашение «Введите число В» набрать 2,
если программа работает правильно, то в результате будет выведено –
Е=2.0000000000Е+0000.
Для возврата в программу нажмите клавишу Enter.
Введите ограничение для вещественного числа, для этого внесите изменения в текст программы Writeln ('D = ', D:4:2);
7. Самостоятельно протестируйте программу с другими числовыми данными:А=2;В=1,5;
А = 3;В= -7;
А = 0;В= - 2;
Задание 5
Создайте и протестируйте программу вычисления переменной D=(a*b)+2
Контрольные вопросы:
Как открыть новое окно программы?
Как сохранить новый текст программы?
Как проверить текст программы на ошибки?
Что такое компиляция программы?
Как «запустить» программу?
Назовите оператор вывода в Turbo Pascal.
Назовите оператор ввода в Turbo Pascal.
Какие арифметические действия применимы к переменным вещественного типа?
Какой тип данных применен в этой практической работе.

Практическая работа № 6
Тема: Разработка и тестирование программ с линейной структурой.
Цель работы:
изучить технологию составления программы с линейной структурой;
научиться применять основные операторы и редактировать программы с линейной структурой;
сформировать навыки работы в среде программирования;
Оснащение рабочего места: персональный компьютер, программа Turbo Pascal, ИТК.
Литература:
Цветкова М.С., Великович Л.С. Информатика и ИКТ: учебник для студ. учреждений сред. проф. образования. — М., 2014
Астафьева Н.Е., Гаврилова С.А., Цветкова М.С. Информатика и ИКТ: Практикум для профессий и специальностей технического и социально-экономического профилей: учеб. пособие для студ. учреждений сред. проф. образования / под ред. М.С.Цветковой. — М., 2014
Цветкова М.С., Хлобыстова И.Ю. Информатика и ИКТ: практикум для профессий и специальностей естественно-научного и гуманитарного профилей : учеб. пособие для студ. учреждений сред. проф. образования. — М., 2014.
Норма времени: 2часа.
Ход работы:
Изучить ИТК, ознакомиться с учебным материалом.
Включить ПК.
Следуя указаниям инструкционного материала выполнить практическую работу.
Защитить работу.
Защита работы:
Уметь создавать линейные программы, компилировать и тестировать их.
Предоставить на экране дисплея выполненную работу.
Ответить на контрольные вопросы.
Выполнение работы:
Задание 1
Создайте и протестируйте программу, описывающую решение примера: Y=((x+2*z)*(3*x+4*z))-2
Задание 2
Задайте число в интервале от 1 до100. Составьте программу, которая:
Умножает это число на себя;
Складывает результат умножения с удвоенным исходным числом;
Делит полученную сумму на исходное число;
Вычитает из результата деления исходное число;
Выводит на экран окончательный результат.
Задание 3
Создайте и протестируйте программу вычисления расстояние АВ между точками с координатами (Х1, Y1) и (Х2, Y2), которые вводятся с клавиатуры.

Задание 4

Даны переменные A, B, C вводимые с клавиатуры. Поменяйте их местами согласно предложенной схемы. Создайте и протестируйте созданную программу.
А
В
С

Задание 5
Даны три переменные X, Y, Z вводимые с клавиатуры. Найти их сумму и среднее арифметическое. Создайте и протестируйте созданную программу.
Задание 6
Каждый день Максим получает карманные деньги на мелкие расходы. Из них он тратит 30 рублей на сладости. Это составляет 1/4 часть того, что он покупает ежедневно. Максим сберегает 1/3 того, что остается после покупки сладостей. Напишите программу, которая выводит на экран сумму, накопленную Максимом за один год.
Контрольные вопросы:
Назовите типы данных применяемых в Turbo Pascal.
Для чего применяется операторы Write и Writeln?
Для чего применяется операторы Read и Readln?
Что обозначает оператор Var?
Какие арифметические действия применимы к переменным вещественного типа?
Какие арифметические действия применимы к переменным целого типа данных?
Что такое компиляция программы?

Практическая работа № 7
Тема: Операторы Pascal для разветвляющихся алгоритмов. Разработка и тестирование программ с разветвляющейся структурой.
Цель работы:
научиться применять основные операторы и редактировать программы с разветвляющейся структурой;
изучить технологию составления программы с разветвляющейся структурой;
сформировать навыки работы в среде программирования;
Оснащение рабочего места: персональный компьютер, программа Turbo Pascal, ИТК.
Литература:
Цветкова М.С., Великович Л.С. Информатика и ИКТ: учебник для студ. учреждений сред. проф. образования. — М., 2014
Астафьева Н.Е., Гаврилова С.А., Цветкова М.С. Информатика и ИКТ: Практикум для профессий и специальностей технического и социально-экономического профилей: учеб. пособие для студ. учреждений сред. проф. образования / под ред. М.С.Цветковой. — М., 2014
Цветкова М.С., Хлобыстова И.Ю. Информатика и ИКТ: практикум для профессий и специальностей естественно-научного и гуманитарного профилей : учеб. пособие для студ. учреждений сред. проф. образования. — М., 2014.
Норма времени: 2часа.
Ход работы:
Изучить ИТК, ознакомиться с учебным материалом.
Включить ПК.
Следуя указаниям инструкционного материала выполнить практическую работу.
Защитить работу.
Защита работы:
Уметь создавать разветвляющиеся программы, компилировать и тестировать их.
Предоставить на экране дисплея выполненную работу.
Ответить на контрольные вопросы.
Учебный материал:
Базовая структура ветвление обеспечивает в зависимости от результата проверки условия выбор одного из альтернативных путей работы алгоритма. Каждый из путей ведет к общему выходу, так что работа алгоритма будет продолжаться независимо от того, какой путь будет выбран.
В программе с разветвляющейся структурой используются: условный оператор (оператор ветвления) и оператор выбора (оператор варианта).
Общий вид условного оператора IF
IF <условие> THEN <onepamop 1> ELSE <onepamop 2>
После ключевого слова IF (если) следует условие, и если оно истинно, то выполняется оператор или блок операторов, следующих за ключевым словом THEN (то); если же оно ложно, то выполняется оператор или блок операторов, следующих за ключевым словом ELSE (иначе).
Выполнение работы:
Задание 1.
Наберите текст программы, описывающей решение задачи: Даны переменные Р, К. Если р<=10, то К принимает значение 0, иначе 2.
Выполните компиляцию программы и тестирование.
Для этого:
В окне текстового редактора программы Turbo Pascal наберите текст программы:
Program YYY;
Var P, К : integer;
Begin
Writeln ('Введите Р');
Readln (P);
Begin
IF P<=10 then K:=0
Else K:=2
End;
Writeln ('K= ',K);
Readln ; End.
2. Проверьте программу на ошибки - нажать F9.
3. Сохранить программу, выбрав в меню File/Save as.
4. Протестировать программу:
запустить программу,
в ответ на приглашение «Введите число Р» набрать 3,
если программа работает правильно, то в результате будет выведено К=0.
5. Для возврата в программу нажмите клавишу Enter.
6. Самостоятельно протестируйте программу с другими числовыми данными:
P=15;P=67P= -4
Задание 2
Даны переменные Y, X. Если Y<=10, то X принимает значение 2, если 10<Y<20, то X принимает значение 3, если Y>=20 то X принимает
значение 4.
Наберите текст программы. Выполните компиляцию программы и тестирование.
Для этого:
В окне текстового редактора программы Turbo Pascal наберите текст программы:
Program Listing_1;
Var Y, X : integer;
Begin
Writeln ('Введите Y');
Readln (Y);
Begin
If Y<=10 then x:=2;
If (Y>10) and (Y<20) then x:=3;
If Y>=20 then x:=4;
End;
Writeln (‘X=’, X);
End.
2. Проверьте программу на ошибки – нажать F9.
3. Сохраните программу, выбрав в меню File/Save as.
4. Запустите программу, выбрав в меню пункт Ran/Ran.
5. Протестируйте программу:
в ответ на приглашение «Введите число Y» набрать 9,
если программа работает правильно, то в результате будет выведено -«Х=2».
6.Самостоятельно протестируйте программу с другими числовыми данными:
Y=15, Y=52,
Задание 3
Составьте и протестируйте программу следующей задачи: Наибольшее из двух чисел необходимо возвести в куб.
Задание 4
Составьте программу в которой значение переменной С вычисляется по формуле А+В, если А – не четное (Аmod2 = 1), и А*В, если А – четное (Аmod2 = 0).
Задание 5
Создайте и протестируйте программу вычисления значения функции:

,если х<8
,если х>=8
Задание 6
Составьте и протестируйте программу следующей задачи: Даны переменные А и В. Если сумма этих чисел больше 10 то необходимо найти их произведение, во всех других случаях найти отношение А/В.
Задание 7
Составьте и протестируйте программу следующей задачи: Переменной ALFA присвоить значение «100» и вывести сообщение «Отлично», если А=В и С=D, иначе ALFA присвоить значение «0», и вывести сообщение «Очень плохо».
Контрольные вопросы:
Какие операторы используются в программах с разветвляющейся структурой?
Охарактеризуйте общий вид условного оператора IF в Turbo Pascal.
Назовите операторы ввода.
Назовите операторы вывода.
Как проверить на ошибки текст программы в Turbo Pascal?
Назовите типы данных применяемых в Turbo Pascal?

Практическая работа № 8
Тема: Операторы Pascal для циклических алгоритмов. Разработка и тестирование программ с циклической структурой.
Цель работы:
научиться применять основные операторы и редактировать программы с циклической структурой;
изучить технологию составления программы с циклической структурой;
сформировать навыки работы в среде программирования;
Оснащение рабочего места: персональный компьютер, программа Turbo Pascal, ИТК.
Литература:
Цветкова М.С., Великович Л.С. Информатика и ИКТ: учебник для студ. учреждений сред. проф. образования. — М., 2014
Астафьева Н.Е., Гаврилова С.А., Цветкова М.С. Информатика и ИКТ: Практикум для профессий и специальностей технического и социально-экономического профилей: учеб. пособие для студ. учреждений сред. проф. образования / под ред. М.С.Цветковой. — М., 2014
Цветкова М.С., Хлобыстова И.Ю. Информатика и ИКТ: практикум для профессий и специальностей естественно-научного и гуманитарного профилей : учеб. пособие для студ. учреждений сред. проф. образования. — М., 2014.
Норма времени: 2часа.
Ход работы:
Изучить ИТК, ознакомиться с учебным материалом.
Включить ПК.
Следуя указаниям инструкционного материала выполнить практическую работу.
Защитить работу.
Защита работы:
Уметь создавать циклические программы, компилировать и тестировать их.
Предоставить на экране дисплея выполненную работу.
Ответить на контрольные вопросы.
Учебный материал:
Цикл – это команда исполнителю многократно повторять указанную последовательность команд.
В программах с циклической структурой используются циклы с параметром (for), предусловием (while) и постусловием (repeat).
Основной циклической структурой является цикл с предусловием (цикл-пока). С помощью этой структуры можно построить любой циклический алгоритм. Оператор цикла с предусловием в Паскале имеет следующий формат:
while <логическое выражение> do <оператор>.
Служебное слово while означает «пока», do — делать, выполнять. Оператор, стоящий после слова do, называется телом цикла. Тело цикла может быть простым или составным оператором, т.е. последовательностью операторов между служебными словами begin и end.
В Паскале нет специальных служебных слов для обозначения начала и конца цикла (так же как и конца ветвления). Во всех случаях, где это необходимо, используются слова begin и end.
Оператор цикла FOR состоит из заголовка и тела цикла. Он может быть представлен в 2-х форматах:
1. FOR <параметр цикла>:=<S1>TO<S2>DO <оператор>
2. FOR <параметр цикла>:=<S1>DOWNTO<S2>DO <оператор>
S1 и S2 – выражения, определяющие соответственно начальное и конечное значения параметра цикла.
FOR…DO – заголовок цикла, <оператор> - тело цикла. Тело цикла может быть простым или составным оператором.
Оператор FOR обеспечивает выполнение тела цикла до тех пор, пока не будут перебраны все значения параметра цикла от начального до конечного.
Выполнение работы:
Задание № 1
Наберите текст программы, описывающей решение задачи: Дано N кубиков, на которых написаны разные буквы. Сколько различных N-буквенных слов можно составить из этих кубиков (слова не обязательно должны иметь смысл).
Количество различных комбинаций из N предметов получаемых изменением их порядка, называется числом перестановок. Это факториал – N!
Для этого:
1. В окне текстового редактора программы Turbo Pascal наберите текст программы:
Program Words;
var F, N, R: integer;
beginwrite('Bведитe число букв');
readln(N);
F:=l;
R:=l;
while R<=N do
beginF:=F*R;
R:=R+1
end;
write('Из ‘,N, ' букв можно составить ‘,F, 'слов')
end.
2. Проверьте программу на ошибки – нажать F9.
3. Сохраните программу, выбрав в меню File/Save as.
4. Протестируйте программу.
1) Запустите программу, выбрав в меню пункт Ran/Ran.
2) Введите различные буквы и получите результат работы программы.
5. Для возврата в программу нажмите клавишу Enter.
Задание № 2
Наберите текст программы, описывающей решение задачи: Является ли введенное с клавиатуры число простым (простыми считаются числа, которые делятся без остатка только на себя и на единицу).
Для этого:
1. В окне текстового редактора программы Turbo Pascal наберите текст программы:
Program Listing_2;
Var
N,J : integer;
Summa : integer;
Begin
Writeln ('Введите число');
Readln (N);
Summa:=0;
for J:=1 to N do
beginIf (N mod J) =0 then
Summa:= Summa+1;
end;
If Summa >2 then
Writeln (‘Число не простое’);
Else
Writeln (‘Число простое’);
End.
2. Проверьте программу на ошибки – нажать F9.
3. Сохраните программу, выбрав в меню File/Save as.
4. Запустите программу, выбрав в меню пункт Ran/Ran.
5. Протестируйте программу.
Задание № 3
Составьте и протестируйте программу нахождения суммы чисел вводимых с клавиатуры.
Задание № 4
Составьте и протестируйте программу вычисления произведения четных чисел от1 до10.
Задание № 5
Самостоятельно составьте программу нахождения суммы четных и нечетных чисел.
Контрольные вопросы:
Что такое цикл.
Какие виды циклов Вы знаете?
В каких случаях используется оператор FOR.
В каких случаях используется оператор while.
В каких случаях используется оператор repeat.
Чем отличаются циклы с предусловием и с постусловием?