Лабораторная работа 3. Тема: Программирование линейных алгоритмов

ОТЧЕТ

По лабораторной работе № 3

По дисциплине «Информатика и ИКТ»

Выполнил студент группы 1ЭЛ Каменщиков Илья Проверила преподаватель: Жукова Е.В.   Работа зачтена с оценкой ____(______)__________ (подпись)   «___»________20___ (дата проверки)

 

г. Вятские Поляны, 2014г

Лабораторная работа 3. Тема: Программирование линейных алгоритмов

Цель работы:выработать практические навыки работы с системой Borland Pascal, научиться создавать, вводить в компьютер, выполнять и исправлять про-стейшие программы на языке Pascal в режиме диалога, познакомиться с диагно-стическими сообщениями компилятора об ошибках при выполнении программ, реализующих линейные алгоритмы.

Программное обеспечение.Turbo Pascal

4. Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c.

Решение:

Var a, b, c: integer;- (целые переменные) P, H: real;-(дробные переменные) Begin-(начало) Writeln('Эта программа вычисляет высоту проведенную на сторону "a" при заданным сторонам "а", "b" и "c".');-(вывод пояснительного текста) Writeln('Ведите значения сторон "а", "b" и "c".'); -(вывод пояснительного текста) Write('a= '); Readln(a);-(вывод текста и ввод переменной а) Write('b= '); Readln(b); -(вывод текста и ввод переменной b) Write('c= '); Readln(c); -(вывод текста и ввод переменной c) Writeln('Вычисляем высоту проведенную на сторону "a" при заданным сторонам "а", "b" и "c". Подождите...');-(вывод пояснительного текста) P:=((a+b+c)/2);-(вычисление переменной P) H:=(2*sqrt(P*(P-a)*(P-b)*(P-c)))/a;-(вычисление переменной H) Writeln('H= ', H);-(Вывод пояснительного текста и значение переменной H) Writeln('Нажмите клавишу ENTER для завершения работы программы');-(Вывод пояснительного текста) Readln;-(Завершение работы программы при нажатии на клавишу ENTER) End.-(Конец)

 

Скриншот выполнения программы: