Составить программу на паскале?

Neznaykaalenkahelen 13 июл. 2020 г., 00:56:53

Var z, x, c : real ;

procedure Perimetr(a, b, c : real) ;

var p : real ;

begin

p : = a + b + c ;

writeln('P = ', p) ;

end ;

procedure Ploshad(a, b, c : real) ;

var s, p : real ;

begin

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

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

writeln('S = ', s) ;

end ;

begin

writeln('Write first data : ') ;

readln(z, x, c) ;

Perimetr(z, x, c) ;

Ploshad(z, x, c) ;

writeln('Write second data : ') ;

readln(z, x, c) ;

Perimetr(z, x, c) ;

Ploshad(z, x, c) ;

readln ;

end.

Мохик 13 июл. 2020 г., 00:56:57

/ / Pascal ABC.

NET 3.

1 сборка 1219

procedure PerAndPlo(var s, p : real ; a, b, c : real) ;

Var

pp : real ;

begin p : = a + b + c ; pp : = p / 2 ; s : = sqrt(pp * (pp - a) * (pp - b) * (pp - c)) ;

end ;

Var

a1, b1, c1, p1, s1, a2, b2, c2, p2, s2 : real ;

begin

Writeln('Введите длины сторон первого треугольника : ') ;

readln(a1, b1, c1) ;

Writeln('Введите длины сторон второго треугольника : ') ;

readln(a2, b2, c2) ;

PerAndPlo(s1, p1, a1, b1, c1) ;

PerAndPlo(s2, p2, a2, b2, c2) ;

Writeln('Сумма периметров : ', (p1 + p2)) ;

Writeln('Сумма площадей : ', (s1 + s2)) ;

end.

Пример ввода :

1

2

3

4

5

6

Пример вывода :

Сумма периметров : 21

Сумма площадей : 9.

92156741649221.

Kenn341 6 мая 2020 г., 22:48:44 | 10 - 11 классы

В программе паскаль : вычислите площадь треугольника по его сторонам?

В программе паскаль : вычислите площадь треугольника по его сторонам.

Valeriakrivtso 13 апр. 2020 г., 00:28:43 | 5 - 9 классы

Написать программу в паскале Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b?

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

Жайнуля 22 февр. 2020 г., 08:47:05 | 5 - 9 классы

Найти сторону равностороннего треугольника по его площади в программе паскаль?

Найти сторону равностороннего треугольника по его площади в программе паскаль.

Kalyusya 2 июн. 2020 г., 08:16:06 | 10 - 11 классы

Нужно написать программу на языке Паскаль?

Нужно написать программу на языке Паскаль!

Задание : известен периметр прямоугольника и одна сторона из его сторон.

Найти площадь прямоугольника?

Косячоккккккк 9 июл. 2020 г., 07:54:28 | 10 - 11 классы

Дано 2 треугольника?

Дано 2 треугольника.

Координаты вершин с клавиатуры В программе должно быть первая процедура, вторая функция.

В процедуре должно считать стороны треугольников(по формуле нахождение сторон через координаты), всё это должно быть выражено через одну переменную!

(не знаю в цикле это как то чтоб через одну переменную и по двум точкам находить все стороны треугольников) в функции периметры треугольников.

В программе сумму периметров.

Помогите плиз.

89512170510 16 янв. 2020 г., 19:39:07 | 5 - 9 классы

Дана площадь квадрата?

Дана площадь квадрата.

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

Программу хорошую и понятную составить( в Паскале), все - таки баллов не мало.

Arishakarimova 3 авг. 2020 г., 21:36:47 | 10 - 11 классы

Делать в Паскале?

Делать в Паскале.

Даны стороны прямоугольника.

Найти его площадь и периметр.

Nerisa2002 17 дек. 2020 г., 11:03:19 | 10 - 11 классы

PascalABC ?

PascalABC .

Дан периметр равностороннего треугольника P.

Найти его сторону a площадь S.

Zhansaya2004 27 авг. 2020 г., 20:50:11 | 10 - 11 классы

Составить программу на паскале?

Составить программу на паскале.

Заданы длины сторон трех треугольников.

Найти больший периметр.

Для вычисления периметра треугольника используйте процедуру Perimetr, для определения большего из 2 чисел - процедура max.

Dashot2003 19 нояб. 2020 г., 01:10:11 | 5 - 9 классы

Помогите составить программу в Паскале для задачи : Найти периметр и площадь равнобедренного треугольника с основанием а и углом при основании 30°?

Помогите составить программу в Паскале для задачи : Найти периметр и площадь равнобедренного треугольника с основанием а и углом при основании 30°.