Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
клубничка188
22.04.2023 03:33 •
Информатика
Создайте и протестируйте программу вычисления расстояния ab между точками с коорднатами (x1,y1) и (x2,y2), которые вводятся с клавиатуры паскаль решение
Показать ответ
Ответ:
Suzdik23
08.10.2020 14:26
Program Coords;
var x1,x2,y1,y2,S:real;
begin
write('Введите X1 : '); readln(X1);
write('Введите Y1 : '); readln(Y1);
write('Введите X2 : '); readln(X2);
write('Введите Y2 : '); readln(Y2);
S:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(s);
end.
0,0
(0 оценок)
Ответ:
TittansMass
08.10.2020 14:26
Var x1, x2, y1, y2, s: real;
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Anyta31107
09.01.2020 21:08
Скласти і записати в зошит програма піднесення числа до степеня за до циклу з лічильником. До іть будь ласка!...
Katuchka001
05.04.2020 23:06
Записать что дано, найти, составить блок-схему и программу в паскале 1. Даны два числа. Возвести в квадрат те из них, значения которыхнеотрицательны, и увеличить на 2,5 те,...
ryenasssss
12.01.2022 16:46
Складіть проект для малювання квадратів, розміщених поруч, поки периметр квадрата не перевищує 200 кроків. Довжина сторони першого з них дорівнює а кроків, а довжина сторони...
udinaaa
07.02.2020 00:38
Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln (sum); writeln...
Крекир
26.07.2020 11:23
Написать краткое сообщение на тему: язык программирования паскаль размером с тетрадный лист ...
Ученик0005205
27.12.2021 11:54
Напишите программу в паскале, которая найдёт все числа от 1961 до 9611 которые делятся на 42 без остатка, и не делятся на 4,5,13....
neumnaya4044
09.02.2022 09:59
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и n. var c, n,s:word; begin writeln( Введи стороны прямоугольника c и n ); readln (c,n); s:=c*n;...
ариариииирпа
06.01.2022 14:13
Напишіть програмний код, в якому у випадку, якщо значення якоїсь змінної більше 0, виводилося б спеціальне повідомлення (використовуйте функцію print). Один раз виконайте...
vprivat1604
18.08.2021 16:22
Якими командами можна поставити у відповідність числам з табличної величини фігури з відповідними кольорами? •••Какими командами можно поставить в соответствие числам с табличной...
MilaniaDelli
28.02.2023 04:02
Числа Фибоначчи Последовательность Фибоначчи определена следующим образом: ϕ0=1, ϕ1=1, ϕn=ϕn−1+ϕn−2 при n 1. Начало ряда Фибоначчи выглядит следующим образом: 1, 1, 2, 3,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1,x2,y1,y2,S:real;
begin
write('Введите X1 : '); readln(X1);
write('Введите Y1 : '); readln(Y1);
write('Введите X2 : '); readln(X2);
write('Введите Y2 : '); readln(Y2);
S:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(s);
end.
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.