Заранее, ) напишите функцию, вычисляющую длину отрезка по координатам его концов. с этой функции напишите программу, вычисляющую периметр треугольника по координатам его вершин

278

434

Посмотреть ответы 2

Ответы на вопрос:

vikahamka711

Информатика

4,7(20 оценок)

1. современное короткое, но скорее всего, мало понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 function linelen(a,b: (real,real)): = sqrt(sqr(b.item1-a.item1)+sqr(b.item2-a.item2)); begin var a: array[1..3] of (real,real); var x,y: real; writeln('введите три пары координат x,y'); for var i: =1 to 3 do begin read(x,y); a[i]: =(x,y) end; writeln('периметр треугольника равен ',linelen(a[1],a[2])+ linelen(a[1],a[3])+linelen(a[2],a[3])) end. тестовое решение: введите три пары координат x,y 3 -3.5 -6 8 4 5.2 периметр треугольника равен 33.7449685386805 2. традиционное, но возможно тоже не понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 type point=record x,y: real end; function linelen(a,b: point): real; begin result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)); end; var a: array[1..3] of point; begin writeln('введите три пары координат x,y'); for var i: =1 to 3 do read(a[i].x,a[i].y); writeln('периметр треугольника равен ',linelen(a[1],a[2])+ linelen(a[1],a[3])+linelen(a[2],a[3])) end.

Сайка1111111

Информатика

4,4(20 оценок)

//pascalabc.net //версия 3.3, сборка 1611 (06.01.2018) begin var a: =arrrandom(readinteger('введите размер массива: ',20); a.println; println('в первой половине положительных: ',a[: a.length div 2].println.where(t-> t> 0).count); println('во второй половине отрицательных: ',a[a.length div 2: ].println.where(t-> t< 0).count); end. пример: введите размер массива: 10 -6 8 -12 -5 -4 16 -1 -14 1 0 -6 8 -12 -5 -4 в первой половине положительных: 1 16 -1 -14 1 0 во второй половине отрицательных: 2