function Perimetr(a, b, c ; Real) : Real;
begin
Perimetr := a + b + c;
end;
function Ploshad(a, b, c : Real) : Real;
var p : Real;
begin
p := Perimetr(a, b, c) / 2;
Ploshad := Sqrt(p * (p-a) * (p-b) * (p-c));
end;
var a1, b1, c1, a2, b2, c2 : Real;
begin
Write('Введите значения длин сторон первого треугольника через пробел: '); ReadLn(a1, b1, c1);
Write('Введите значения длин сторон второго треугольника через пробел: '); ReadLn(a2, b2, c2);
WriteLn('Сумма периметров = ', Perimetr(a1, b1, c1) + Perimetr(a2, b2, c2):0:3);
WriteLn('Сумма площадей = ', Ploshad(a1, b1, c1) + Ploshad(a2, b2, c2):0:3);
end.
Другие языки программирования и технологии
Помогите перевести программу с Pascal в С++
#include <iostream>
using namespace std;
bool exists(const double, const double, const double);
double perimetre(const double, const double, const double);
double area(const double, const double, const double);
int main () {
double a1, b1, c1, a2, b2, c2, sp, sa;
cout << "a1, b1, c1, a2, b2, c2?.. ";
cin >> a1 >> b1 >> c1 >> a2 >> b2 >> c2;
if (exists(a1, b1, c1) && exists(a2, b2, c2)) {
sp = perimetre(a1, b1, c1) + perimetre(a2, b2, c2);
sa = area(a1, b1, c1) + area(a2, b2, c2);
cout << "The sum of perimetres = " << sp << endl
<< "The sum of the areas = " << sa << endl;
} else cout << "\aAt least one of triangles does not exist!";
cin.get(); cin.get();
return 0;
}
bool exists(const double a, const double b, const double c) {
bool x;
double max = (a > b) ? (a > c) ? a : c : (b > c) ? b : c;
(a + b + c - max > max) ? x = true : x = false;
return x;
}
double perimetre(const double a, const double b, const double c) { return a + b + c; }
double area(const double a, const double b, const double c) {
double p = perimetre(a, b, c) / 2;
return sqrt(p * (p - a) * (p - b) * (p - c));
}
using namespace std;
bool exists(const double, const double, const double);
double perimetre(const double, const double, const double);
double area(const double, const double, const double);
int main () {
double a1, b1, c1, a2, b2, c2, sp, sa;
cout << "a1, b1, c1, a2, b2, c2?.. ";
cin >> a1 >> b1 >> c1 >> a2 >> b2 >> c2;
if (exists(a1, b1, c1) && exists(a2, b2, c2)) {
sp = perimetre(a1, b1, c1) + perimetre(a2, b2, c2);
sa = area(a1, b1, c1) + area(a2, b2, c2);
cout << "The sum of perimetres = " << sp << endl
<< "The sum of the areas = " << sa << endl;
} else cout << "\aAt least one of triangles does not exist!";
cin.get(); cin.get();
return 0;
}
bool exists(const double a, const double b, const double c) {
bool x;
double max = (a > b) ? (a > c) ? a : c : (b > c) ? b : c;
(a + b + c - max > max) ? x = true : x = false;
return x;
}
double perimetre(const double a, const double b, const double c) { return a + b + c; }
double area(const double a, const double b, const double c) {
double p = perimetre(a, b, c) / 2;
return sqrt(p * (p - a) * (p - b) * (p - c));
}
а вот это уже смешно.
сам же просил "либо С++, либо Pascal", дали ответ, а теперь просишь его на С++ перевести
сам же просил "либо С++, либо Pascal", дали ответ, а теперь просишь его на С++ перевести
Похожие вопросы
- Помогите с программой на pascal
- Помогите составить программу на pascal
- Люди помогите написать программы для Pascal очень срочно и очень нужно
- Переведите программу из Pascal в C#
- Помогите составить программу в Pascal ABC
- Помогите составить программу в Pascal
- Помогите написать программу в PASCAL!!!
- Помогите написать программу в Pascal abc net
- Помогите исправить программу на pascal!
- Помогите написать программы по Pascal ABC