Вопрос по информатике:
Помогите пожалуйста написать алгоритм решения на языке Паскаль во второй задаче
- 24.09.2017 16:22
- Информатика
- remove_red_eye 15656
- thumb_up 10
Ответы и объяснения 1
Var
p: array[1..2, 1..2] of real;
d: real;
i: integer;
begin
for i := 1 to 2 do begin
write('x', i , '=');
readln(p[i,1]);
write('y', i , '=');
readln(p[i,2]);
end;
d := sqrt(sqr(p[1,1] - p[2,1]) + sqr(p[1,2] - p[2,2]));
writeln('расстояние = ', d:0:3);
end.
- 26.09.2017 00:41
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.