Задание:
3. Даны два неравных числа X и Y. Большее из них заменить на сумму этих чисел, а меньшее увеличить в трираза.4. Известны периметр первого треугольника Р1, координаты вершин второго x1, y1, x2, y2,x3, y3 и длины сторон третьего – а 3, в 3, с 3. Найти и вывести на экран периметр меньшего треугольника. Алгоритмы ветвления
Решение:
3.uses crt; var x,y: integer; beginread (x,y); if x>y thenbeginx: =x+y; y: =y*3endelsebeginy: =x+y; x: =x*3end; writeln (x,',y); end.4.uses crt; var p1,p2,p3,x1,y1,x2,y2,x3,y3,a3,b3,c3: real; beginwriteln ('Введите P1,x1,y1,x2,y2,x3,y3,a3,b3,c3: '); read (p1,x1,y1,x2,y2,x3,y3,a3,b3,c3); p2: =(sqrt (x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(sqrt (x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)+(sqrt (x3-x1)*(x3-x1)+(y3-y1)*(y3-y1); p3: =a3+b3+c3; writeln (min (min (p1,p2) ,p3); end.
Знаете другой ответ?