Министерство образования и науки РФ

Федеральное государственное бюджетное образовательное

учреждение высшего образования

«Тульский государственный университет»

Политехнический институт

Кафедра "Технология машиностроения"

Курс "Информатика-1"

ЛАБОРАТОРНАЯ РАБОТА №1

Выполнил студ. гр. 62ХХХХ Иванов А.Б.

Проверил к.т.н., доц. Анцева Н.В.

к.т.н., доц. Федоров А.В.

Тула - 2015

2

Вариант №26

Составить программу вычисления площади треугольника по формуле Герона

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

Входными данными являются длины сторон треугольника – вещественные числа. Результатом работы является площадь заданного треугольника – вещественное число.

Описание способа решения задачи

Для решения поставленной задачи можно воспользоваться формулой Герона:

,

где a, b, c – длины сторон треугольника;

s – площадь треугольника;

p – полупериметр.

Блок-схема алгоритма

Распечатка текста программы

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var a, b,c: integer; {стороны треугольника}

p:real; {полупериметр}

s:real; {площадь}

begin

a:=strtoint(LabeledEdit1.Text);

b:=strtoint(LabeledEdit2.Text);

c:=strtoint(LabeledEdit3.Text);

p:=(a+b+c)/2;

s:=SQRT(p*(p-a)*(p-b)*(p-c));

Label2.Caption:=floattostrf(s, fffixed, 10,3)+'мм2';

end;

end.

Распечатка результатов работы

Проверка корректности

работы программы

Начало или конец программы, процедуры, функции

PROGRAM

PROCEDURE, FUNCTION

Процесс. Любое вычисление.

Оператор присваивания:

a:=b+c*4;

Вызов процедуры или функции

PROCEDURE Start;

. . .

Start;

Выбор, проверка условия

Оператор IF:

IF a>b THEN . . .

ELSE . . .

Множественное ветвление

Оператор CASE:

CASE a OF:

1: . . .;

2: … ;

3: … ;

4:….;

END;

Ввод-вывод данных без уточнения устройства ввода-вывода

Операторы WRITE, WRITELN, READ, READLN:

READLN(x);

Файл прямого доступа.

Данный блок обозначает не оператор, а используемые программой данные

Ввод с клавиатуры

Операторы READ, READLN:

READLN(A,B);

Вывод на экран

Операторы WRITE, WRITELN:

WRITELN(A,B,X:10:2);

Цикл с заданным числом повторений

Оператор FOR:

FOR i:=1 TO 10 DO . . .

Цикл с предусловием

Оператор WHILE:

WHILE I<10 DO

. . .

Цикл с постусловием

Оператор REPEAT…UNTIL:

REPEAT

. . .

UNTIL i>10;