Программирование на языке Паскаль: Лабораторный практикум /А.С. Партин. Екатеринбург: ГОУ УГТУ-УПИ,2002. 24 с.
Лабораторный практикум содержит курс лабораторных работ для проведения практических занятий по программированию на языке Паскаль в среде Delphi, предназначен для студентов первых курсов машиностроительных специальностей, изучающих информатику.
Библиогр.: 10 назв. Табл. __. Рис. __.
Подготовлено кафедрой прикладной геометрии и автоматизации проектирования.
Оформление лабораторных работ 5
1.1. Линейный алгоритм 5
Постановка задачи 5
Математическая модель 5
Описание алгоритма 5
Текст программы 6
1.2. Условный алгоритм 6
Постановка задачи 6
Математическая модель 6
Описание алгоритма 7
Текст программы 7
1.3. Экранные меню и циклы 8
Постановка задачи 8
Математическая модель 9
Описание алгоритма 9
Текст программы 10
1.4. Процедуры и функции 13
Постановка задачи 13
Программирование на Pascal. Переменные, типы данных, линейные алгоритмы. Видеокурс.
Математическая модель 14
Описание алгоритма 15
Текст программы 17
1.5. Работа с файлами и алгоритмы сортировки 20
Постановка задачи 20
Математическая модель 22
Описание алгоритма 22
Текст программы 24
1.6. Визуальное программирование 30
Постановка задачи 30
Математическая модель 31
Основная форма программы 32
Текст программы 33
Библиографический список 36
Оформление лабораторных работ
Отчет по лабораторной работе должен содержать название работы и следующие разделы: постановка задачи, математическая модель, описание алгоритма, текст программы, тест.
В математической модели должны быть приведены все используемые при вычислениях в программе математические формулы, а также соответствующие иллюстрации.
При выполнении тестов составляется таблица примеров, в которой подбираются наборы данных, подходящие для наиболее полного тестирования работы программы и позволяющие заранее оценить результат.
Линейный алгоритм
Постановка задачи По двум сторонам вычислить площадь прямоугольника. Математическая модель 
Описание алгоритма АлгоритмLab1. А. Начать исполнение. 1.Вывести на экран сообщение «Введите стороны прямоугольника». 2. Ввести a,b. 3. Вывести сообщение «Площадь равна», ab; Б. Закончить исполнение. Текст программы program Lab1;uses SysUtils;var a,b:Real;beginWrite(‘Введите стороны прямоугольника: ‘);ReadLn(a,b);WriteLn(‘Площадь равна ‘,a*b);ReadLn; end. Тест
| a | b | Расчетная площадь | Результат выполнения программы |
| 2 | 3 | 6 | … |
| 7 | 12 | 84 | … |
| … | … | … | … |
- Условный алгоритм
Постановка задачи Рассчитать площадь треугольника по трем сторонам с проверкой корректности ввода и возможности вычисления (выдать сообщение «Некорректный ввод» при вводе отрицательных или нулевых значений и сообщение «Вычисление невозможно», если сумма двух сторон треугольника меньше или равна третьей). Математическая модель П
лощадь треугольника по трем сторонам можно рассчитать по формуле Герона:
, гдеp– полупериметр,
. Описание алгоритма АлгоритмLab2. А. Начать исполнение. 1. Вывести сообщение «Введите стороны треугольника». 2. Ввести a, b, c. 3. Если a≤0, илиb≤0, или с≤0, А. то вывести сообщение «Некорректный ввод». Б. иначе: 1. Если a+b≤c, илиa+c≤b, илиb+c≤a, А. то вывести сообщение «Некорректный ввод». Б. иначе: 1. Рассчитать полупериметр 
. 2. Вывести сообщение «Площадь треугольника равна», 
. Б. Закончить исполнение. Текст программы programLab2;uses SysUtils;vara,b,c,p:Real;beginWrite(‘Введите стороны треугольника: ‘);ReadLn(a,b,c);if (a <=0) or (b<=0) or (c<=0) thenWriteLn(‘Некорректный ввод’)elseif (a+b <=c) or (a+c<=b) or (b+c<=a) thenWriteLn(‘Вычисление невозможно’)elsebeginp:=(a+b+c)/2;WriteLn(‘Площадь треугольника равна ‘, Sqrt(p*(p-a)*(p-b)*(p-c)));end;ReadLn; end. Тест Необходимо выполнить несколько тестов с отрицательными числами, несуществующими треугольниками и треугольниками с известными площадями. Вид таблицы для тестов и несколько примеров треугольников приведены ниже.
| a | b | c | Расчетная площадь | Результат работы программы | |
 |
3 | 4 | 5 | 6 | … |
| 5 | 12 | 13 | 30 | … | |
| 28 | 45 | 53 | 630 | … | |
|
16 | 17 | 17 | 120 | … |
| 14 | 25 | 25 | 168 | … | |
 |
7 | 15 | 20 | 42 | … |
| 10 | 17 | 21 | 84 | … | |
| … | … | … | … | … |
Источник: studfile.net
Линейные программы. Решение задач. Ч.1.
Лабораторная работа № 1 Программирование линейных алгоритмов
Ц ель работы: уметь программировать линейные алгоритмы, записывать выражения на языке Паскаль с использованием стандартных функций.
Линейным называется алгоритм, в котором результат получается путем однократного выполнения заданной последовательности действий при любых значениях исходных данных. Согласно линейному алгоритму, прогон программы начинается с ее первого выполняемого оператора. Операторы будут задействованы последовательно, один за другим, в соответствии с их расположением в тексте программы.
Задание 1. Определить площадь треугольника по формуле Герона
где а, b, с — длины сторон;
р = (а + b + с)/2 — полупериметр треугольника.
Для того чтобы рассчитать S, необходимо иметь численные значения р, а, b, с. Мы можем рассчитать р по формуле, а вот значения а, b, с должны быть заданы заранее.
Составить программу вычисления площади треугольника по формуле Герона для исходных данных трем сторонам a, b, c.
Программа на языке Pascal
program Geron;
var a, b, c, p, s : real;
readln(a, b, c);
p := (a + b + c) / 2;
s := sqrt(p * (p – a) * (p – b) * (p – c));
write (‘ Площадь S=’,s:8:3);
Как уже говорилось ранее, совершенно не обязательно записывать каждый оператор на новой строке. Верной была бы и следующая запись: program Geron; var a, b, c, p, s : real; begin readln(a, b, c); p := (a + b + c) / 2; s := sqrt(p * (p – a) * (p – b) * (p – c)); write (s); end.
Задание 2. Операции с переменными целого типа
Program Action;
Var A,B,C: integer;
C=A div B ; writeln(‘17 div 3=’,C );
C:= A+B; < Сложение : > writeln(‘17 mod 3=’,C);
C=A-B; writeln(‘17 mod 3=’,C);
При запуске программы вывод на экран :
Пример 1. Вычислить значение арифметического выражения следующего вида:
Программа на языке Паскаль выглядит следующим образом:
program myprog;
var a,b,c,d,v:real;
write(‘ V = ‘,v):
Лабораторная работа № 2 Программирование разветвляющихся алгоритмов
Цель работы: уметь программировать ветвления с помощью условного оператора IF и оператора выбора Case.
Пример 1. Вычислите корни квадратного уравнения ax 2 +bx+c.
Количество корней уравнения и способ их вычисления зависит от дискриминанта, который находится по формуле D=b 2 -4ac. Если D положительный, тогда существуют 2 корня 
. Если D =0, тогда существует 1 корень 
. Выбор способа нахождения корней уравнения осуществляется условным оператором в зависимости от значения дискриминанта D. На Рис.13 изображен алгоритм вычисления корней квадратного уравнения, по которому написана программа.
Program Quad;
D, x,x1,x2: real;
writeln (‘ Ввод коэффициентов’); writeln (A,B,C);
else if D=0 then begin x:=-B / (2*A);
writeln (‘Уравнения имеет один корень x=’,x:6:2);
x2:=(-B-Sqrt(D))/(2*A);
writeln (‘Уравнения два корня: x1=’, x1:6:2, ‘ x2=’, x2:6:2);
Рис.13. Блок –схема алгоритма нахождения корней квадратного уравнения
Пример 2. Определите номер квартала по введенному номеру месяца.
Выбор осуществляется оператором CASE селектором Dig, значения которого определяются скалярными типами перечисление и диапазон.
Program Digit;
Var Dig: integer;
writeln (‘ Ввод номера месяца ‘); readln (Dig);
case Dig of
1, 2, 3 : writeln(‘ первый квартал’);
4, 5, 6 : writeln(‘ второй квартал’);
7..9 : writeln(‘ третий квартал’);
10..12: writeln(‘ четвертый канал’);
Пример 3. Разработать программу для вычисления вида:
если 
program mypr;
writeln(‘Введите исходные данные a,b= ‘);
else if a*b>0 then d:=Ln(a*b)
writeln(‘ D = ‘,d:10:4);
Источник: studfile.net
Линейный алгоритм в PascalABC
Физкультминутки обеспечивают кратковременный отдых детей на уроке, а также способствуют переключению внимания с одного вида деятельности на другой.
Новые методические разработки
Популярные статьи
Последние новости образования
В помощь учителю
Уважаемые коллеги! Добавьте свою презентацию на Учительский портал и получите бесплатное свидетельство о публикации методического материала в международном СМИ.
Для добавления презентации на портал необходимо зарегистрироваться.
Диплом и справка о публикации каждому участнику!
Популярное
Летний лагерь
Все материалы, размещенные на сайте, созданы пользователями сайта и представлены исключительно в ознакомительных целях. Использование материалов сайта возможно только с разрешения администрации портала.
Фотографии предоставлены
Источник: www.uchportal.ru