// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=new List<real>; a.AddRange(ReadSeqReal('Введите список А:',10)); var b:=new List<real>; b.AddRange(ReadSeqReal('Введите список B:',10)); var x:=new List<real>; x.AddRange(a.Zip(b,(p,q)->q/p)); Write('A: '); a.Println; Write('B: '); b.Println; Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println; end.
#include <math.h>
using namespace std;
void main()
{
float p, a, b, c, L, M, H, R_op, R_vp;
cout << "a="; cin>>a;
cout << "b="; cin>>b;
cout << "c="; cin>>c;
p=(a+b+c)/2; //найдём полупериметр
H=(2/a)*sqrt(p*(p-a)*(p-b)*(p-c)); // найдём длину высоты треугольника
M=(1/2)*sqrt(2*a*a+2*b*b-c*c); //найдём длину медианы треугольника
L=(2*sqrt(a*b*p*(p-c)))/(a+b); // найдём длину биссектрисы треугольника
R_op=(a*b*c)/(4*sqrt(p*(p-a)*(p-b)*(p-c))); // найдём радиус описанной окружности треугольника
R_vp=sqrt(((p-a)*(p-b)*(p-c))/p); // найдёи радиус вписанной окружности в треугольник
cout << "Dlina visoti= " << H << endl;
cout << "Dlina mediani= " << M << endl;
cout << "Dlina bissektrisi= " << L << endl;
cout << "Rad.op.okr.= " << R_op << endl;
cout << "Rad.vp.okr.= " << R_vp << endl;
system("PAUSE >> VOID");
}
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new List<real>;
a.AddRange(ReadSeqReal('Введите список А:',10));
var b:=new List<real>;
b.AddRange(ReadSeqReal('Введите список B:',10));
var x:=new List<real>;
x.AddRange(a.Zip(b,(p,q)->q/p));
Write('A: '); a.Println;
Write('B: '); b.Println;
Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println;
end.
Пример
Введите список А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите список B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2