Задать вопрос
6 июня, 22:22

Правильно ли я решила? Задача: Определить расстояние на плоскости между двумя точками с заданными координатами M1 (x1, y1) и M2 (x2, y2).

program rastoyanie;

uses crt;

var M1, M2, g:real;

begin

writeln ('x1, y1') ;

read (M1) ;

writeln ('x2, y2') ;

read (M2) ;

g:=abs (M1-M2) ;

writeln ('rastoyanie megdu tochkami: g') ;

end.

+1
Ответы (1)
  1. 7 июня, 01:08
    0
    кратко, программа рабочая:

    uses crt;

    var x1, y1, x2, y2, g:real;

    begin

    write ('vvod x1, y1') ;

    read (x1, y1) ;

    write ('vvod x2, y2') ;

    read (x2, y2) ;

    g:=sqrt ((x2-x1) * (x2-x1) + (y2-y1) * (y2-y1)) ;

    writeln (g) ;

    readkey;

    end.

    после запуска, например, вводим (3,4) и (0,0) Ответ 5
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Правильно ли я решила? Задача: Определить расстояние на плоскости между двумя точками с заданными координатами M1 (x1, y1) и M2 (x2, y2). ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
надо решать через Паскаль. составил две программы и обе со странным ответом. что не то? program qwe; uses crt; var x. s:integer; y:real; begin s:=0; for i: = - 2 to 27 do s:=s+x; y:=s/30 writeln ('srednee arifmeticheskoe=', y) ; readkey; end.
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)
Program2. pas (29) : Нельзя преобразовать тип function (x: real; eps: real) : real к real var a, i, s, r, j, t, x, eps: real; function v (x, eps: real) : real; begin i : = 1; s : = 0; a : = 1; t : = 1; r : = 1;
Ответы (1)