0 дауыс
1.6k көрілді
Берілген есептің паскаль тілінде программасын құр. Үшбұрыштың 3 төбесі берілген. Үшбұрыш қабырғаларының ұзындықтарын, биіктіктерін табыңдар

2 жауап

+1 дауыс
ху координата түрінде ме?[мына сайтта][1] геометрия бөлімін қарап көріңіз. Тура сол болмаса да..


  [1]: http://e-maxx.ru/algo/
0 дауыс
Биіктікті математикада қалай есептейтіні есіме түспей жатыр, білсең жазып жібер, арасына қосып жібересін, әзірше қабырғаларын есептейтін болады.
var x1,x2,x3,y1,y2,y3:real;
a,b,c:real;
Begin
write('x1= '); read(x1);
write('y1= '); read(y1);
write('x2= '); read(x2);
write('y2= '); read(y2);
write('x3= '); read(x3);
write('y3= '); read(y3);
a:= sqrt(sqr(x2-x1)+sqr(y2-y1));
b:= sqrt(sqr(x3-x2)+sqr(y3-y2));
c:= sqrt(sqr(x1-x3)+sqr(y1-y3));
writeln('a= ',a:3:1,' b= ',b:3:1,' c= ',c:3:1);
End;
...