Без проверки полагаем, что по заданным координатам точек можно построить треугольники.
//PascalABC.Net 3.0, сборка 1111 type Point=record x,y:double end;
function TriangleSquare(A,B,C:Point):double; begin Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y)) end;
procedure GetPoint(c:char; var A:Point); begin Write('Введите координаты точки ',c,': '); Readln(A.x,A.y) end;
var A:array['A'..'F'] of Point; i:'A'..'F'; s1,s2:double; begin for i:='A' to 'F' do GetPoint(i,A[i]); s1:=TriangleSquare(A['A'],A['B'],A['C']); s2:=TriangleSquare(A['D'],A['E'],A['F']); if s1>s2 then Writeln('Площадь первого треугольника больше') else if s2>s1 then Writeln('Площадь второго треугольника больше') else Writeln('Площади треугольников равны') end.
Тестовое решение: Введите координаты точки A: -4 3.7 Введите координаты точки B: -6.3 0 Введите координаты точки C: 10.2 5.93 Введите координаты точки D: 7.143 8.1 Введите координаты точки E: -6 -3 Введите координаты точки F: 7.4 -5.7 Площадь второго треугольника больше
Microsoft Windows - IBM тәрізді компьютерлерде графикалық интерфейсті қолдануды кеңінен жүзеге асырған, қазіргі заман талабына сай жасалған операциялық орта. Оның дамытылған нұсқалары түрінде Windows NT, Windows 2000 сияқты операциялық жүйелер кеңінен қолданылуда. shareAdvocacyHobbyist іUser spaceMicrokernelLoadable kernel moduleDevice driverProcess control switchScheduling algorithmsComputer -robinFixed-priority preemptiveMultilevel feedback queueShortest job nextMemory management and resource protectionSecurity ringsMemory protectionVirtual memoryPagingSegmentation fault / Bus errorGeneral protection OSMorphOSOS/2 conceptsBoot loaderLive CDLive USBPXEAPIVirtual file systemVirtual tape libraryComputer networkOS shell CLITUIGUIVUI HAL
bus = 5
metro = 3
print(((6+((10-bus)**2)) / ((metro+1))) + (132/(2+bus)))
P S: я там скобочек лишних наставил, но на результат это не влияет.