Лабораторная работа № 2
Цели работы: познакомиться с понятием условный алгоритм и условным оператором if языка Pascal. Закрепить начальные навыки работы в среде программирования. Написать программу на языке программирования Pascal по поставленной задаче.
| Постановка задачи |
| Написать программу на языке программирования Pascal, выполняющую вычисление площади треугольника по трём сторонам. Значения сторон вводятся пользователем с клавиатуры. Необходимо проверить выполнение следующих условий: 1. Корректный ввод данных (все введённые значения должны быть положительными величинами, отличными от нуля) 2. Возможность существования треугольника (сумма двух сторон треугольника больше третьей стороны) При невыполнении условий сообщить об этом пользователю. Результат вычисления должен быть выведен на экран. |
| Математическая модель |
 Дано: сторона «a», сторона «b», сторона «c»
    Найти: площадь треугольника «s» Решение: Для начала нужно выяснить:
   1.Корректны ли данные, то есть значения сторон должны быть только положительными
   2.Существование треугольника(сумма двух любых сторон треугольника должна быть больше третьей)
Если данные корректны, то находим площадь треугольника по формуле S=√p*(p-a)*(p-b)*(p-c),
Где a,b,c — стороны треугольника, p — полупериметр треугольника, который считается по формуле p=(a+b+c)/2
|
| Алгоритм |
| 1. Получить значения сторон 2. Ввести первую сторону треугольника 3. Считать значения в переменной «a» 4. Ввести вторую сторону треугольника 5. Считать значения в переменной «b» 6. Ввести третью сторону треугольника 7. Считать значения в переменной «c» 8. Проверить считанные значения на: а) Корректность, то есть значения сторон должны быть только положительными б) Возможность вычисления(сумма двух любых сторон треугольника должна быть больше третьей) 9. Если хотя бы одно из условий не выполняется, то выводится на экран ошибка 10. Если оба условия выполняются, то вычисляется полупериметр по формуле: p=(a+b+c)/2 11. Затем вычислить площадь по формуле: S=√p*(p-a)*(p-b)*(p-c) 12. Вывести результат |
| Код программы* |
| Program ploshad Var a, b, c, p, s: real;//задаем переменные и тип данных (real— вещественные) begin Writeln(‘vvedite storonu a’);//Выводим на экран символы, записанные между апострофами Read(a);//введенное считываем в переменную Writeln(‘vvedite storonu b’); //Выводим на экран символы, записанные между апострофами Read(b);//введенное считываем в переменную Writeln(‘vvedite storonu c’); //Выводим на экран символы, записанные между апострофами Read(c);//введенное считываем в переменную If(a>0) and (b>0) and (c>0) then//Задаем условие, состоящее из трех элементов, «and» означает одновременность выполнения Begin If (a+b>c) and (a+c>b) and (c+b>a) then// Задаем условие, состоящее из трех элементов, «and» означает одновременность выполнения Begin P:=(a+b+c)/2;//находим полу сумму сторон и присваиваем переменной «p» S:=sqrt(p*(p-a)*(p-b)*(p-c));//находим значение выражения и присваиваем переменной «s» Writeln(‘ploshad ravna’,s);//выводим на экран строчку, содержащую ответ задачи End//конец второго условия Else//иначе Writeln(‘treugolnik ne suschestvuet’);//выводим на экран ошибку End//конец первого условия Else//иначе Writeln(‘nekorrektno vvedeni znachenia’);//выводим на экран ошибку Readln(s);//задержка экрана End. |
| Вывод |
| В результате проделанной работы мы познакомились с понятием условный алгоритм и условным оператором if языка Pascal. Закрепили начальные навыки работы в среде программирования. Написали программу на языке программирования Pascal по поставленной задаче. |