Описание логической структуры программы.

Для получения результата необходимо:

Ввести значения переменных xA, yA, xB, yB, xC, yC  с клавиатуры.

Описать функцию Dlin вычисления длины стороны треугольника.

Вычислить значения длин сторон , используя функцию Dlin.

Вычислить значение P, используя значения .

Вычислить значение S, используя значения  и P.

Вывести на экран значение P и S, используя форматный вывод.

Блок-схема программы.

Описание входных данных

xA, yA, xB, yB, xC, yC  – переменные типа Real;

Описание выходных данных

P, S –переменные типаReal.

Описание программы (листинг)

Program ZAD_1_2;

var

 xA,yA, xB, yB, xC,yC : real;

 AB,BC,AC, P, S : real;

{функция для вычисления стороны треугольника как

 расстояние м/у двумя точкам (x1,y1) и (x2,y2)}

Function Dlin(x1,y1,x2,y2:real):real;

begin

Dlin := sqrt( sqr(x2-x1) + sqr(y2-y1) );

end;

Begin

Writeln('Введите координаты точки A(x,y) ');

 Readln(xA, yA);

 Writeln('Введите координаты точки B(x,y) ');

 Readln(xB, yB);

 Writeln('Введите координаты точки C(x,y) ');

 Readln(xC, yC);

{ Вычислим длины сторон, как расстояние между точками}

 AB := Dlin(xA,yA, xB,yB);

 BC := Dlin(xB,yB, xC,yC);

 AC := Dlin(xA,yA, xC,yC);

 P := AB + BC + AC;

{ по формуле Герона}

 {S := sqrt(P/2 * (P/2 - AB) * (P/2 - BC) * (P/2 - AC));}

 writeln('Периметр = ', P:5:3);

 writeln('Площадь = ', S:5:3);

 Readln;

End.

Тестовые примеры

Необходимо протестировать программу для различных тестовых примеров (подобрать самостоятельно).

Интерфейс программы в режиме выполнения

Результат работы программы выглядит следующим образом:

Задание 2

Постановка задачи

Вычислить заданное целочисленное выражение X для данных a, b с использованием операторов IF . Выражения для вычисления значения выражений оформить:

а) в виде процедуры;

б) в виде функции.

Сформировать тестовые примеры для демонстрации правильности работы программы.

Теоретическое введение

Значение искомого выражения зависит от данных a, b  и в зависимости от условий состоит из арифметических операций, для которых необходимо учитывать приоритет их выполнения. Необходимый приоритет определяется как и в первом задании.

Для ввода значений переменных необходимо использовать стандартные процедуры: Read и ReadLn, для вывода Write или WriteLn.

Составные части выражения нужно определить в виде подпрограммы (функции и процедуры). Подпрограмма вызывается на выполнение путем ввода в теле основной программы имени подпрограммы и указанных в скобках фактических параметров. Перед вызовом подпрограммы ее нужно описать. Описание подпрограмм производится перед телом основной программы – Begin End. .

Общий вид заголовка процедуры выглядит следующим образом:

Procedure <Имя>(<список входных парам-ов>; var <сп.выходных пар-ов>);

Процедура – это подпрограмма, которая как и программа должна иметь "тело", заключенное в составной оператор – операторные скобки begin end;. Описание процедуры выглядит следующим образом:

Procedure <Имя>(p1:<тип1>; p2:<тип2>; var rez:<тип>);

Begin

{тело процедуры}

end;

где p1, p2, rez – некоторые формальные параметры, используемые в теле процедуры, причем p1, p2 – входные данные, rez – выходной результат.

Функция отличается от процедуры только тем, что должна возвращать в основную программу результат своего выполнения, тип которого указывается в заголовке функции:

Function <Имя>(<список формальных парам-ов>):<тип результата>;

Begin

{тело функции}

<Имя> := {выражение из формальных параметров}

end;

Описание программы

Программа написана на алгоритмическом языке ПАСКАЛЬ и реализована в среде Borland Pascal-7.0 Windows XP/MS DOS, на платформе х86.