М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
МОЗГ1987
МОЗГ1987
05.03.2020 06:30 •  Информатика

Информатика. паскаль. по заданным декартовым координатам вершин четырехугольника p1(x1,y1),p2(x2,y2),p3(x3,y3),p4(x4,y4) должен вычисляться его периметр.

👇
Ответ:
typaya1911
typaya1911
05.03.2020
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));

var
  x,y,L:array[1..4] of real;
begin
  Writeln('Введите координаты четырех точек (парами х,y)');
  for var i:=1 to 4 do Read(x[i],y[i]);
  for var i:=1 to 3 do
    L[i]:=Len(x[i],y[i],x[i+1],y[i+1]);
  L[4]:=Len(x[4],y[4],x[1],y[1]);
  var s:=0.0;
  for var i:=1 to 4 do s+=L[i];
  Writeln('P=',s)
end.

Пример
Введите координаты четырех точек (парами х,y)
-5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13
P=46.7405707422041

Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.

Информатика. паскаль. по заданным декартовым координатам вершин четырехугольника p1(x1,y1),p2(x2,y2)
Информатика. паскаль. по заданным декартовым координатам вершин четырехугольника p1(x1,y1),p2(x2,y2)
4,4(21 оценок)
Открыть все ответы
Ответ:
nataalferova8
nataalferova8
05.03.2020
1)
var a, b: array [1..10] of integer; i, sum: integer;
begin
     sum := 0;
     for i := 1 to 10 do
         b[i] := 0;
     for i := 1 to 10 do
     begin
         read(a[i]);
         if a[i] < 0 then
         begin
              sum := sum + 1;
              b[i] := i;
         end;
     end;
     writeln('Amount of negative numbers: ', sum);
     for i := 1 to 10 do
         if b[i] <> 0 then write(b[i], ' ');
end.

2)
var a: array [1..10] of integer; i: integer; flag: boolean;
begin
     flag := false;
     randomize;
     for i := 1 to 10 do
     begin
         a[i] := random(10);
         if a[i] = 5
         then
             flag := true;
     end;
     for i := 1 to 10 do
     write(a[i], ' ');
     if flag
     then
         writeln('YES')
     else
         writeln('NO');
end.

3)
var a: array [1..10] of integer; i, ind, odd: integer;
begin
     randomize;
     ind := 0;
     for i := 1 to 10 do
     begin
         a[i] := random(10);
         if a[i] mod 2 <> 0
         then
         begin
              ind := i;
              odd := a[i];
         end;
     end;
     for i := 1 to 10 do
     write(a[i], ' ');
     if ind <> 0
     then
         writeln(a[ind], ' ', ind)
     else
         writeln('Array has no odd elements');
end.

4)
var a: array [1..10] of integer; i: integer;
begin
     writeln;
     randomize;
     for i := 1 to 10 do
     begin
         a[i] := random(20);
         write(a[i], ' ');
     end;
     writeln;
     for i := 1 to 10 do
         if (a[i] < 15) and(a[i] > 5)
         then
             write(a[i], ' ');
end.
4,8(93 оценок)
Ответ:
Рома555555
Рома555555
05.03.2020

print("Введіть вагу ручки")

pen = input()

print("Введіть вагу олівця")

pencil = input()

print("Введіть вагу зошита")

copybook = input()

if pen > pencil and pencil > copybook:

   print("Ручка -", pen, "| олівець -", pencil, "| зошит -", copybook)

elif pen > pencil and copybook > pencil:

   print("Ручка -", pen, "| зошит -", copybook, "| олівець -", pencil)

elif pencil > copybook and copybook > pen:

   print("Олівець -", pencil, "| зошит -", copybook, "| ручка -", pen)

elif pencil > pen and pen > copybook:

   print("Олівець -", pencil, "| ручка -", pen, "| зошит -", copybook)

elif copybook > pen and pen > pencil:

   print("Зошит -", copybook, "| ручка -", pen, "Олівець -", pencil)

else:

   print("Зошит -", copybook, "| олівець -", pencil, "| Ручка -", pen)

4,8(91 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ