Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Файлы: Найти среднее арифметическое его компонент и удалить все компоненты, превышающие среднее значение https://www.cyberforum.ru/ turbo-pascal/ thread680239.html Дан файл вещественных чисел. Найти среднее арифметическое его компонент и удалить все компоненты, превышающие среднее значение.	Двумерный массив: найти наибольшее из наименьших значений строк Turbo Pascal Дана матрица размера M*N, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы найденного элемента.
Turbo Pascal Вычислить максимальный по модулю элемент https://www.cyberforum.ru/ turbo-pascal/ thread680211.html В одномерном массиве, состоящем из n вещественных элементов, вычислить максимальный по модулю элемент. (желательно полностью написать программу)	Turbo Pascal Присвоить переменной max наибольшее, а переменной min – наименьшее Дано вещественное число х. Присвоить переменной max наибольшее, а переменной min – наименьшее из значений следующих величин : , cos (x)+1, ln(\|x\|+5). https://www.cyberforum.ru/ turbo-pascal/ thread680208.html
Найдите сумму элементов массива, расположенных между первым и последним нулевыми элементами. Turbo Pascal 2. Найдите сумму элементов массива, расположенных между первым и последним нулевыми элементами.	Turbo Pascal Решить методом половинного деления https://www.cyberforum.ru/ turbo-pascal/ thread680181.html Здравствуйте помогите мне решить задачу: 1. решить нужно методом половинного деления: x^2 -5 sin x =0 на интервале помогите плиз а то я в этом ни как не магу понять...
Turbo Pascal Текстовый файл: переписать в файл g нечетные абзацы создать текстовый файл f. переписать в файл g нечетные абзацы (абзацы отделять пустой строкой). задачу нужно решить с процедурой https://www.cyberforum.ru/ turbo-pascal/ thread680174.html	Распечатать список студентов, фамилии которых начинаются с букв А и Б Turbo Pascal комбинированные типы данных. Составить список учебной группы, включающий 15 человек. Для каждого указать Ф, И, О, пол, дату рождения, год рождения, год поступления в ОУ, семейное положение оценки последней сессии, размер стипендии, хобби. (вводятся с клавиатуры). Распечатать список студентов, фамилии которых начинаются с букв А и Б. Спасибо заранее.
Turbo Pascal Вычислите количество положительных элементов массива. 1. Вычислите количество положительных элементов массива. Для первого пункта я написал и она вроде даже работает uses crt; const n=10; type x=array of integer; var i,s:integer; a:x; https://www.cyberforum.ru/ turbo-pascal/ thread680134.html	Turbo Pascal Задача волшебный треугольник Даны 4 палочки, длины которых a,b,c,d. Нужно используя 3 из 4 палочек построить треугольник с наибольшим периметром. Если построить треугольник нельзя то вывести сообщение "NO". https://www.cyberforum.ru/ turbo-pascal/ thread680042.html
Turbo Pascal Даны координаты двух клеток, определить, одного ли цвета два поля Координаты любого поля шахматной доски могут быть заданы парой натуральных чисел, не превосходящих 8. Даны координаты двух клеток. Написать программу, которая определяет, одного ли цвета эти два поля.	Turbo Pascal Определить количество строк матрицы, не содержащих ни одного нулевого элемента Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента; 2) максимальное из чисел, встречающихся в заданной матрице более одного раза. Подскажите как решить задачу на turbo паскале!... https://www.cyberforum.ru/ turbo-pascal/ thread680030.html

SladkayaVata

272 / 188 / 173

Регистрация: 06.06.2012

Сообщений: 322

25.10.2012, 23:57

Вычислить площадь выпуклого четырехугольника - Turbo Pascal - Ответ 3610668

25.10.2012, 23:57. Показов 6353. Ответов 1

Метки (Все метки)

Сообщение было отмечено Syndrom как решение

Решение

функция с параметром

Pascal

var ab,bc,cd,ad,ac,p1,p2:integer;
s:real;
Function space1(p1,p2:integer):real;
begin
space1:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
s:=space1(p1,p2);
writeln('Площадь четырехугольника =', s);
end.

функция без параметра

Pascal

var ab,bc,cd,ad,ac:integer;
s:real;
Function space1:real;
var p1,p2:integer;
begin
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
space1:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
s:=space1;
writeln('Площадь четырехугольника =', s);
end.

Процедура без параметра

Pascal

var ab,bc,cd,ad,ac:integer;
s:real;
Procedure space1;
var p1,p2:integer;
begin
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
s:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
space1;
writeln('Площадь четырехугольника =', s);
end.

Процедура с параметром

Pascal

var ab,bc,cd,ad,ac,p1,p2:integer;
s:real;
Procedure space1(p1,p2:integer);
begin
s:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
space1(p1,p2);
writeln('Площадь четырехугольника =', s);
end.

Вернуться к обсуждению:
Вычислить площадь выпуклого четырехугольника Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.10.2012, 23:57

Готовые ответы и решения:

Посчитать площадь площадь выпуклого четырёхугольника, если известны координаты его вершин.
Посчитать площадь площадь выпуклого четырёхугольника, если известны координаты его вершин. Площадь...

найти площадь выпуклого четырёхугольника по координатам его вершин
найти площадь выпуклого четырёхугольника по координатам его вершин А(x1,y1) B(x2,y2) C (x3,y3)...

Вычислить площадь четырехугольника
Даны числа X,Y,Z,T - длины сторон четырехугольника. Вычислить его площадь, если угол между...

Вычислить площадь четырехугольника, используя процедуру вычисления площади треугольника
Помогите решить задачи на процедуры в Turbo Pascal! Срочно нужно! Пожалуйста! 1. В...

	25.10.2012, 23:57

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.10.2012, 23:57

Помогаю со студенческими работами здесь

Вычислить площадь четырехугольника, если угол между сторонами длинной x и y-прямой
Даны числа X,Y,Z,T длины сторон четырехугольника. вычислить его площадь если угол между сторонами...

Написать программу вычисления площадки выпуклого четырехугольника ABCD
Написать программу вычисления площадки выпуклого четырехугольника ABCD, заданного длинами сторон...

Заданы 4 вершины выпуклого четырёхугольника Ai(xi, yi), i=1,4 . Определить принадлежит ли A5 четырёхугольнику
Заданы 4 вершины выпуклого четырёхугольника Ai(xi, yi), i=1,4 . Определить принадлежит ли A5...

Вычислить площадь произвольного четырехугольника,если даны координаты его вершин.Написать программу с помощью ПРОЦЕДУР.
Заранее большое спасибо!

Наверх