Решите пожалуйста эту задачу в паскале?

Bdtn 25 янв. 2020 г., 06:56:55

Var x1, x2, x3, y1, y2, y3 : integer ;

begin

writeln('Введите 3 строки с коородинатами x и y : ') ;

readln(x1, y1) ;

readln(x2, y2) ;

readln(x3, y3) ;

writeln('x1 = ', x1, ' y1 = ', y1) ;

writeln('x2 = ', x2, ' y2 = ', y2) ;

writeln('x3 = ', x3, ' y3 = ', y3) ;

writeln('P = ', (sqrt(sqr(x2 - x1) + sqr(y2 - y1)) + sqrt(sqr(x3 - x2) + sqr(y3 - y2)) + sqrt(sqr(x3 - x1) + sqr(y3 - y1))) : 0 : 2) ;

writeln('S = ', (0.

5 * ABS((x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 - y3))) : 0 : 2) ;

end.

Pollypolly0272 25 янв. 2020 г., 06:57:00

Program z1 ;

var x1, x2, x3, y1, y2, y3 : integer ;

d1, d2, d3, s, p, p1 : real ;

begin

writeln ('Введите координаты первой вершины (x1 и y1) ') ;

readln (x1, y1) ;

writeln ('Введите координаты второй вершины (x2 и y2)') ;

readln (x2, y2) ;

writeln ('Введите координаты третей вершины (x3 и y3)') ;

readln (x3, y3) ;

d1 : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)) ;

d2 : = sqrt(sqr(x2 - x3) + sqr(y2 - y3)) ;

d3 : = sqrt(sqr(x3 - x1) + sqr(y3 - y1)) ;

p : = d1 + d2 + d3 ;

p1 : = p * 0.

5 ;

s : = sqrt((p1) * (p1 - d1) * (p1 - d2) * (p1 - d3)) ;

if (d1 + d2< ; = d3) or (d1 + d3< ; = d2) or (d2 + d3< ; = d1) then writeln ('Такой треугольник не существует') else

writeln ('Периметр треугольника = ' , p , ' , площадь треугольника равна = ', s) ;

end.

Рил 17 сент. 2020 г., 02:31:08 | 5 - 9 классы

Паскаль, помогите решить задачу?

Паскаль, помогите решить задачу.

Shoa 16 июл. 2020 г., 22:47:07 | 5 - 9 классы

Помогите пожалуйста с паскалем ?

Помогите пожалуйста с паскалем !

Вот задача !

Shmakova14 28 мар. 2020 г., 08:15:36 | 5 - 9 классы

Помогите решить задачи по Информатике в Паскале?

Помогите решить задачи по Информатике в Паскале!

Все 3 задачи.

Luna16 29 мар. 2020 г., 22:13:19 | 10 - 11 классы

Помогите пожалуйсто решить, задачу в паскале?

Помогите пожалуйсто решить, задачу в паскале.

Спасибо большое заранее.

Настя26783 11 сент. 2020 г., 06:23:32 | 10 - 11 классы

Помогите решить задачу в паскаль ?

Помогите решить задачу в паскаль :

Daisyy2006 7 авг. 2020 г., 02:16:41 | 5 - 9 классы

Помогите пожалуйста решить 1 и 5 задачу ?

Помогите пожалуйста решить 1 и 5 задачу !

Программа паскаль.

Sofyni 24 февр. 2020 г., 04:20:42 | 5 - 9 классы

СРОЧНО?

СРОЧНО.

Решите пожалуйста задачу по паскаль (смотрите скрин).

Настенасоластенnm 11 окт. 2020 г., 07:30:18 | 10 - 11 классы

Задача по информатике помоги пожалуйста?

Задача по информатике помоги пожалуйста!

5 вариант, решите пожалуйста как обычную задачу а я сам переведу на паскаль!

Vratar890 12 нояб. 2020 г., 21:02:03 | 10 - 11 классы

Помогите пожалуйста?

Помогите пожалуйста!

Решить задачу в Паскале.

Это срочно.

Заранее спасибо!

EKTPH 26 сент. 2020 г., 14:54:00 | 5 - 9 классы

Программа Паскаль Решите задачу пожалуйста 3 * х + 3 * у = 15?

Программа Паскаль Решите задачу пожалуйста 3 * х + 3 * у = 15.