икутника).
tr.a=StrToFloat (LabeledEdit4- gt; Text) ;. b=StrToFloat (LabeledEdit5- gt; Text) ;. c=StrToFloat (LabeledEdit6- gt; Text);
float p=(tr.a + tr.b + tr.c)/2;
float area=sqrt (p * (p-tr.a) * (p-tr.b) * (p-tr.c)); - gt; Lines- gt; Add ( laquo ; площа= + FloatToStr (area));
tr.a=StrToFloat (LabeledEdit4- gt; Text) ;. b=StrToFloat (LabeledEdit5- gt; Text) ;. c=StrToFloat (LabeledEdit6- gt; Text); max=tr.a ;=tr.b * tr.b + tr.c * tr.c; (tr.b gt; max) {= tr.b;=tr.a * tr.a + tr.c * tr.c;
} (tr.c gt; max) {= tr.c;=tr.b * tr.b + tr.a * tr.a;
} (max * max-smt gt; 0) {- gt; Lines- gt; Add ( тупокутний );
} if (max * max-smt == 0) {- gt; Lines- gt; Add ( прямокутний );
} Memo2- gt; Lines- gt; Add ( гострокутний );
tr.a=StrToFloat (LabeledEdit4- gt; Text) ;. b=StrToFloat (LabeledEdit5- gt; Text) ;. c=StrToFloat (LabeledEdit6- gt; Text); max=tr.a ;=tr.b * tr.b + tr.c * tr.c;=2 * tr.b * tr.c; (tr.b gt; max) {= tr.b;=tr.a * tr.a + tr.c * tr.c;=2 * tr.a * tr.c;
} (tr.c gt; max) {= tr.c;=tr.b * tr.b + tr.a * tr.a;=2 * tr.b * tr.a;
}
float angle=acos ((smt - max * max)/smot);
Memo2-gt;Lines-gt;Add(laquo;Наибольшийуголraquo;+FloatToStr(angle));
На третій панелі розміщені поля введення координат прямій, поле для виведення результатів і на трьох кнопках виводиться рівняння прямої, обчислюється кут нахилу і перетин двох прямих.
ln.x1=StrToFloat (LabeledEdit7- gt; Text) ;. y1=StrToFloat (LabeledEdit8- gt; Text) ;. x2=StrToFloat (LabeledEdit9- gt; Text) ;. y2=StrToFloat ( LabeledEdit13- gt; Text); k=(ln.y2-ln.y1)/(ln.x2-ln.x1); b=ln.y1-k * ln.x1; - gt; Lines- gt; Add ( y= + FloatToStr (k) + x + + FloatToStr (b));
ln.x1=StrToFloat (LabeledEdit7- gt; Text) ;. y1=StrToFloat (LabeledEdit8- gt; Text) ;. x2=StrToFloat (LabeledEdit9- gt; Text) ;. y2=StrToFloat ( LabeledEdit13- gt; Text); k=(ln.y2-ln.y1)/(ln.x2-ln.x1); - gt; Lines- gt; Add ( уголнаклона- + FloatToStr (atan (k )) + градусів );
ln.x1=StrToFloat (LabeledEdit7- gt; Text) ;. y1=StrToFloat (LabeledEdit8- gt; Text) ;. x2=StrToFloat (LabeledEdit9- gt; Text) ;. y2=StrToFloat ( LabeledEdit13- gt; Text); k=(ln.y2-ln.y1)/(ln.x2-ln.x1); b=ln.y1-k * ln.x1; c=-b/k; - gt ; Lines- gt; Add ( пересеченіесосью x: + FloatToStr (c)); - gt; Lines- gt; Add ( пересеченіесосью y: + FloatToStr (b));
На четвертій панелі вводяться комплексні числа і виконуються обчислення по заданій формулі, обчислення модуля і обчислення сполучення комплексного числа.
ax=StrToFloat (LabeledEdit10- gt; Text) ;. y=StrToFloat (LabeledEdit11- gt; Text) ;. x=StrToFloat (LabeledEdit12- gt; Text) ;. y=StrToFloat(LabeledEdit14-gt;Text);(b,b,e);(a,b,d);(e,d,b);(a,b,e);-gt;Lines-gt;Add(laquo;a+b^2+(a+b) = Raquo; + FloatToStr (e.x) + + Raquo;
+ FloatToStr (ey) + i );
ax=StrToFloat (LabeledEdit10- gt; Text) ;. y=StrToFloat (LabeledEdit11- gt; Text) ;. x=StrToFloat (LabeledEdit12- gt; Text) ;. y=StrToFloat (LabeledEdit14- gt; Text); ma=sqrt (ax * ax + ay * ay);=sqrt (bx * bx + by * by); - gt; Lines- gt; Add ( | a |= + FloatToStr ( ma)); - gt; Lines- gt; Add ( | b |= + FloatToStr (mb));
ax=StrToFloat (LabeledEdit10- gt; Text) ;. y=StrToFloat (LabeledEdit11- gt; Text) ;. x=StrToFloat (LabeledEdit12- gt; Text) ;. y=StrToFloat (LabeledEdit14- gt; Text);.x=ax; e.y=-a.y; .x=b.x; dy=- by; - gt; Lines- gt; Add ( число, сопряженноеa: + FloatToStr (ex) +
+ + FloatToStr (ey) + i ); - gt; Lines- gt; Add ( число, поєднане b: +
FloatToStr (dx) + + + FloatToStr (dy) + i );
Для того, щоб програма розуміла звідки такі об'єкти, раніше були оголошені відповідні структури такого вигляду:
struct Date {// структурадатаday; month; year; decade; season;
int century;
} dt1;// Оголошення змінної цієї структури
structTriangle {// структура Трикутник
float a; b; c;
} tr;// Оголошення змінної цієї структури
structLine {// структура для прямої лінії
float x1;
float y1; x2; y2;
} ln;// Оголошення змінної цієї структури
structComplex {// струк...
