Как составить программу на паскаль вычисление площади по формуле герона - Исправление недочетов и поиск решений вместе с Examum.ru

Площадь треугольника по формуле Герона

📐 Площадь прямоугольного треугольника. Вычислить площадь и периметр прямоугольного треугольника по двум сторонам. Четыре варианта решения задач.

🟩 Вычисление периметра и площади квадрата. Четыре варианта решения задачи. В том числе вариант решения на PascalABC.NET, без использования устаревших конструкций (с точки зрения этой версии).

Даны три стороны треугольника ABC. Напишите программу вычисления площади треугольника по формуле Герона

Задачи по информатике, программирование на Паскале. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET («здоровье кода» составляет 144%).

Задача №1

Задание:
Вычислить площадь треугольника по формуле Герона S = √(p·(p — a)·(p — b)·(p — c))

Program Heron;
Var p, St, A, B, C : Real;
begin
writeln(‘Площадь треугольника по формуле Герона ‘);
write(‘Введите стороны треугольника ‘);
readln(A, B, C);
if (A+B>C) AND (A+C>B) AND (B+C>A) then begin
p := (A + B + C) / 2;
St := Sqrt(p * (p — a) * (p — b) * (p — c));
writeln(‘Площадь треугольника ‘, St:8:5)
end
else writeln(‘Треугольник с такими сторонами не существует’)
end.

Замечание:
В процедуре вывода writeln используется форматированный вывод переменной. St:8:5 обозначает, что для вывода значения переменной S будет использоваться 8 позиций, в том числе 5 после запятой. При этом если целая часть числа будет трёхзначной, то после запятой всё равно будет 5 знаков, а всё число будет занимать 9 позиций.

Задача №2

Задание:
1. Вычислить площадь треугольника по формуле Герона S = √(p·(p — a)·(p — b)·(p — c))
2. Спросить у пользователя «Заверить программу или продолжить выполнение».

Program Heron;
Label 1;
Var
p, St, A, B, C : Real;
YN : Char;
begin
writeln(‘Площадь треугольника по формуле Герона ‘);
1:
write(‘Введите стороны треугольника ‘);
readln(A, B, C);
if (A+B>C) AND (A+C>B) AND (B+C>A) then begin
p := (A + B + C) / 2; { Найти полупериметр треугольника }
St := Sqrt(p * (p — a) * (p — b) * (p — c));
writeln(‘Площадь треугольника ‘, St:8:5)
end
else writeln(‘Треугольник с такими сторонами не существует’);
write(‘Продолжить выполнение программы? Y / N ‘);
readln(YN);
if (YN = ‘Y’) OR (YN = ‘y’) then GOTO 1
else writeln (‘Вы закончили работу с программой’);
end.

Вычислить площадь треугольника по формуле Герона. Вариант решения на PascalABC.NET

Задание:
Найти площадь треугольника. При решении задачи использовать синтаксис, рекомендуемый в PascalABC.NET.

begin
Println(‘Площадь треугольника по формуле Герона ‘);
Print(‘Введите стороны треугольника ‘);
var (A, B, C) := ReadReal3; // Возвращает кортеж из трёх значений типа real, введенных с клавиатуры.
if (A+B>C) AND (A+C>B) AND (B+C>A) then begin // Проверить существует ли треугольник с такими сторонами.
var p := (A + B + C) / 2; // Найти полупериметр треугольника.
var St := Sqrt(p * (p — a) * (p — b) * (p — c)); // Вычислить площадь. Функция Sqrt — возвращает квадратный корень числа.
Println(‘Площадь треугольника ‘, St)
end
else Println(‘Треугольник с такими сторонами не существует’)
end.

Рекламный блок

Информационный блок

Источник

Дорогая передача! Во субботу чуть не плача,
Вся Канатчикова Дача к телевизору рвалась.
Вместо, чтоб поесть, помыться, уколоться и забыться,
Вся безумная больница у экрана собралась.

Говорил, ломая руки, краснобай и баламут
Про бессилие науки перед тайною Бермуд.
Все мозги разбил на части, все извилины заплел,
И канатчиковы власти колят нам второй укол.

Уважаемый редактор! Может лучше про реактор,
Про любимый лунный трактор? Ведь нельзя же, год подряд
То тарелками пугают, дескать, подлые, летают,
То у вас собаки лают, то руины говорят.

Мы кое в чем поднаторели — мы тарелки бьем весь год,
Мы на них уже собаку съели, если повар нам не врет.
А медикаментов груды — мы в унитаз, кто не дурак,
Вот это жизнь! И вдруг Бермуды. Вот те раз, нельзя же так!

Мы не сделали скандала — нам вождя недоставало.
Настоящих буйных мало — вот и нету вожаков.
Но на происки и бредни сети есть у нас и бредни,
И не испортят нам обедни злые происки врагов!

Это их худые черти бермутят воду во пруду,
Это все придумал Черчилль в восемнадцатом году.
Мы про взрывы, про пожары сочиняли ноту ТАСС,
Тут примчались санитары и зафиксировали нас.

Тех, кто был особо боек, прикрутили к спинкам коек,
Бился в пене параноик, как ведьмак на шабаше:
«Развяжите полотенцы, иноверы, изуверцы,
Нам бермуторно на сердце и бермутно на душе!»

Сорок душ посменно воют, раскалились добела.
Вот как сильно беспокоят треугольные дела!
Все почти с ума свихнулись, даже кто безумен был,
И тогда главврач Маргулис телевизор запретил.

Вон он, змей, в окне маячит, за спиною штепсель прячет.
Подал знак кому-то, значит, фельдшер, вырви провода.
И нам осталось уколоться и упасть на дно колодца,
И там пропасть на дне колодца, как в Бермудах, навсегда.

Ну а завтра спросят дети, навещая нас с утра:
«Папы, что сказали эти кандидаты в доктора?»
Мы ответим нашим чадам правду, им не все равно:
Удивительное рядом, но оно запрещено!

А вон дантист-надомник Рудик, у него приемник «Грюндиг»,
Он его ночами крутит, ловит, контра, ФРГ.
Он там был купцом по шмуткам и подвинулся рассудком,
А к нам попал в волненьи жутком,
С растревоженным желудком и с номерочком на ноге.

Он прибежал, взволнован крайне, и сообщеньем нас потряс,
Будто наш научный лайнер в треугольнике погряз.
Сгинул, топливо истратив, весь распался на куски,
Но двух безумных наших братьев подобрали рыбаки.

Те, кто выжил в катаклизме, пребывают в пессимизме.
Их вчера в стеклянной призме к нам в больницу привезли.
И один из них, механик, рассказал, сбежав от нянек,
Что Бермудский многогранник — незакрытый пуп Земли.

«Что там было, как ты спасся?»- Каждый лез и приставал.
Но механик только трясся и чинарики стрелял.
Он то плакал, то смеялся, то щетинился, как еж.
Он над нами издевался. Ну сумасшедший, что возьмешь!

Взвился бывший алкоголик, матерщинник и крамольник,
Говорит: «Надо выпить треугольник. На троих его, даешь!»
Разошелся, так и сыплет: «Треугольник будет выпит.
Будь он параллелепипед, будь он круг, едрена вошь!»

Больно бьют по нашим душам голоса за тыщи миль,
Мы зря Америку не глушим, ой, зря не давим Израиль,
Всей своей враждебной сутью подрывают и вредят,
Кормят, поят нас бермутью про таинственный квадрат.

Лектора из передачи, те, кто так или иначе
Говорят про неудачи и нервируют народ,
Нас берите, обреченных, треугольник вас, ученых,
Превратит в умалишенных, ну а нас — наоборот.

Пусть безумная идея, не решайте сгоряча!
Отвечайте нам скорее через доку-главврача.
С уваженьем. Дата, подпись… Отвечайте нам, а то,
Если вы не отзоветесь мы напишем в «Спортлотто».

Владимир Высоцкий.
Текст песни «Бермудский треугольник».

Источник

Узнай цену своей работы

Формулировка задачи:

ВЫЧЕСЛИТЬ ПЛОЩАДЬ ТРЕУГОЛЬНИКА ПО ФОРМУЛЕ ГЕРОНА
S=√p(p-a)(p-b)(p-c)
где p-полупериметр
a,b,c-стороны

Код к задаче: «Вычислить площадь треугольника по формуле Герона»

textual

Листинг программы

var
a,b,c,p,s:real;
BEGIN
 writeln('введите длины сторон');
 readln(a,b,c);
 p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s= ', s:8:3);
 END.

Источник

при a=3.45,b=4.21,c=5.32.

Словесно-формульный алгоритм:

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

Вывод
значения Sна печать.

Текст
программы:

ProgramAreaTriangl;

uses
Printer;

var
a,b,c,p,s: real;

Begin

writeln (‘Введите длины сторон
треугольника’);

{ввод длин сторон треугольника}

write (‘a=’); readln(a);

write (‘b=’); readln(b);

write (‘c=’); readln(c);

p:=(a+b+c)/2;
{вычисление полупериметра}

s:=sqrt(p*(p-a)*(p-b)*(p-c));
{вычисление площади}

{вывод результатов расчета на экран}

writeln (‘Площадь треугольника
S=’,s:12);

readln;

{вывод результатов расчета на печать}

writeln(Lst,‘Результаты
решения задачи’);

writeln;

writeln (Lst,‘Площадь
треугольника
S=’,s:12);

writeln

End.

Результат решения задачи:

Площадь треугольника S= 7.25470E+00

4.2. Основы работы в интегрированной среде Turbo Pascal

Основными опциями главного меню, которые
используются при разработке и отладке
простейших программ, являются: File,EditиRun.

4.2.1. Меню File

Выбор пункта Fileдает
возможность создавать файлы, помещать
их в окно редактора и проводить с ними
различные операции.

!! Откройте
меню File.

Меню этой опции
включает десять
пунктов (команд):
New, Open,
Save, Save
as, Save
all,
Change
dir, Print,
Printer
setup, DOS
shell, Exit.

Опция New. С
помощью этой опции производится открытие
нового окна редактирования и нового
файла с именемNONAME
<цифра><цифра>.PAS.

!!Откройте новое окно и наберите
текст программы вышеприведенного
примераAreaTriangl.

Примечание.
Окна, применяемые для вывода помощи
(Help),
редактирования и отладки программ,
могут одновременно находиться на экране.
При этом они могут накладываться друг
на друга, как листы бумаги на столе. Из
всех окон активным является одно. Если
окна перекрываются, то активное окно
расположено поверх других окон; оно
обведено двойной рамкой, а остальные —
одинарной. Для того чтобы сделать окно
активным, достаточно щелкнуть мышью в
поле этого окна. Для последовательной
активизации окон используется также
клавиша F6.

Окна имеют рамку.
Вверху, в ее центральной части, приводится
название окна. Для окон редактируемых
файлов — это имя файла. Если файл,
помещенный в окне, принадлежит рабочему
каталогу, приводится только его
собственное имя, если он принадлежит
некоторому другому каталогу, дается
путь к этому файлу. Окна нумеруются в
порядке их открытия (номер приводится
в правом верхнем углу).

Размеры окон и их
положение на экране можно изменять. При
перемещении с помощью мыши требуется
установить ее указатель на верхнюю
грань рамки окна, затем нажать левую
кнопку и, не отпуская ее, переместить
«зацепленный» за окно указатель
мыши. Изменение размера окна осуществляется
также с помощью перемещения указателя
мыши, но «зацепленного» за нижний
правый угол рамки окна.

При управлении с
клавиатуры для изменения этих параметров
используется команда Ctrl
+ F5.
После подачи этой команды изменяются
цвет и линии рамки, что является сигналом
о переходе к режиму настройки. Затем
клавишами перемещения курсора можно
перемещать окно, а при их комбинации с
Shift
– изменять размеры окна. После установления
положения и размера окна нажимается
Enter.

В верхнем левом
углу рамки имеется символ [
█
] ; щелчок
мыши на нем закрывает данное окно. В
верхнем правом углу окна имеется значок
вида [ 
] или [
↕
]; первый
служит для увеличения окна до максимума,
второй – для его уменьшения до
установленного или стандартного размера.
Эти же действия можно выполнить с помощью
клавиатуры: F5
распахивает окно или возвращает ему
обычный размер, Alt
+ F3
закрывает окно, т.е. удаляет его с экрана.

При редактировании
файла в нижнем левом углу окна появляется
значок ¤ – это признак того, что в файле
были сделаны изменения, которые еще не
сохранены. В этом же углу на рамке
записаны две цифры, показывающие номер
строки и колонки, в которых находится
текстовый курсор.

На правой и нижней
сторонах рамки окна имеются линейки
прокрутки. По краям их полей расположены
стрелки, а между ними – маркер-ползунок
в виде прямоугольника. Линейка позволяет
«прокручивать» файл, т.е. перемещаться
по нему, просматривая выводимую на
экран часть текста. Для этого необходимо
поставить указатель мыши на соответствующую
стрелку и нажать левую кнопку мыши или
указать мышью на маркер и передвигать
его.

!!
Возьмите мышкой правый нижний угол
активного окна и уменьшите его размер
в 2 раза. Осуществите перемещение окна
в поле экрана ТР. Восстановите размер
окна щелчком мыши на значке [],
затем снова уменьшите его до установленного
размера.

Опция Save (F2).
Данная опция позволяет сохранить
файл, находящийся в активном окне
редактирования. Если файл имеет системное
имя, начинающееся сNoname,
то ТР перед записью на диск попросит
переименовать файл. Если файл имел
несистемное имя, то предыдущая версия
программы автоматически сохраняется
под тем же именем, но с расширениемbak.

!!Сохраните файл noname.pas
под именем myfirst.PAS.

Опция Save as.
Эта опция дает возможность записывать
файлы на диск с новым именем. При ее
применении открывается диалоговое окноSave File
as, в котором
предлагается осуществить сохранение
файла под другим именем.

!! Примените эту команду к файлу
MYFIRST.PAS
и сохраните его под своей фамилией.

Опция Open (F3).
Эта опция позволяет выбрать файл и
поместить его в окно редактирования.
После активизации командыOpen,
например клавишейF3,
на экране появляется диалоговое окноOpen a
File, в поле выбора
которого находится список файлов
текущего каталога.

!! Нажмите F3.
Внимательно изучите окно Open
a File.

Главными кнопками данного окна являются
[Open] и [Replace]:
первая загружает выбранный файл во
вновь открываемое окно, вторая – в
активное окно редактирования. Если при
использованииReplaceновый выбранный файл загружается на
место старого файла (находящегося в
окне), имя старого файла помещается в
нижнюю часть меню опцииFile.

!! Выберите файл MYFIRST.PAS
и откройте его.

Опция Save all.
Данная опция работает так же, как и опцияSave, но сохраняет файлы,
находящиеся не только в активном окне,
но и во всех остальных открытых окнах
редактирования.

Опция Change dir.
Данная опция позволяет изменить текущий
каталог или диск. Для этого можно:

набрать
в поле Directory nameполное имя нового каталога и нажать
[OK];
выбрать
нужный каталог или диск в поле Directory
tree,
нажать [Chdir]
и затем [OK].

Опция Print.Эта
команда распечатывает содержимое
активного окна редактирования.

!! Выведите на печать содержимое
текущего файла. Закройте окно файла
MYFIRST.PAS.

Опция Printer setup.
Эта опция позволяет указать имя
специальной программы-фильтра,
обрабатывающей данные перед выводом
их на печать.

Опция DOS shell.
Данная опция позволяет покинуть
интегрированную среду ТР без выгрузки
ее из оперативной памяти, например, для
выполнения команд создания, удаления
или переименования каталогов, перемещения
или копирования откомпилированных
программ. Возврат в среду ТР осуществляется
после набора в командной строкеExit.

Опция Exit (Alt+X).
Она осуществляет выход из среды ТР и
удаление последней из оперативной
памяти компьютера. Если перед выбором
этой опции не все редактируемые файлы
были сохранены, система предложит их
сохранить.

Источник

Площадь треугольника по 3м сторонам вычисляется по формуле Герона: , где p-полупериметр.
Тогда:

var a,b,c,p:real;
begin
writeln(‘Введи длины сторон a, b и c’);
readln(a,b,c);
p:=(a+b+c)/2;
writeln(‘Площадь этого треугольника = ‘, sqrt(p*(p-a)*(p-b)*(p-c)));
end.

Источник