сервис вопросов и ответовСоздание программы (write ln,var) + Паскаль. Пмогите,пожалуйста:) Даны координаты 2ух точек (x1;y1),(x24y2) Найти: расстояние
10-11 класс|
|
между двумя точками.
program 1
begin
что дальше?
Liza086
30 янв. 2017 г., 2:41:12 (7 лет назад)
д9е9л9и9х9а
30 янв. 2017 г., 3:35:19 (7 лет назад)
По теореме пифагора расстояние будет равно корню из x² + y².
s := sqrt (sqr (x2-x1) + sqr(y2-y1));
a вся программа
program x1;
var
x1, x2, y1, y2, s : real;
begin
read (x1, y1, x2, y2);
s := sqrt (sqr (x2-x1) + sqr(y2-y1));
writeln (s);
end.
Ответить
Другие вопросы из категории
Программы детекторы - это программы:
1) резиденты в ОЗУ и предупреждающие о вирусе
2) правильный вариант отсутствует
3) сравнивающие текущее состояние диска с запомненным
4) обнаруживающие файлы зараженные вирусом
5) уничтожающие тело вируса
Паскаль
В классе N учеников после диктанта было получено A-пятерок, B-четверок, С- двоек, остальные тройки. Найти процент троек.
Читайте также
1)Найдите ошибки в программах:
a) Program Ошибки1;
Begin
Summa:=6+8;
End;
b) Program Ошибки2;
Begin
Var X:integer;
X:=6+8;
Write(X);
End;
2)Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
ДАННУЮ ПРОГРАММУ НУЖНО НАПИСАТЬ В ПАСКАЛЕ.
Помогите исправить ошибки Задание: составить программу на яз. Паскаль с использованием цикла с неизвестным числом повторений для вычислений значения
функции F(x)=sin(x)+tg(x) на отрезке [А, В] при изменении аргумента в точках хi = А+iН, где Н – шаг. А=1, В=2, Н=0,125.
Листинг программы:
Program Tabulir;
Var x, y: real;
Begin x:=1;
While x≤2 do begin
y:=sin(x)+tg(x);
writeln (x:9:1, y:16:3);
x:=x+0,125;
End.
ПО ПАСКАЛЬ..Помогите пожалуйста я пропустила эту тему((( Составьте программу поиска первого числа Фибоначчи, большего m(m<1).Запустите
программу на выполнение..
Вычислить катет и площадь прямоугольного треугольника,если известны гипотенуза и второй катет. с помощью программы
паскаль.
Помогите пожалуйста,никак не пойму эту программу.
Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую следующие вычисления. Дан номер месяца — целое число в диапазоне
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
Вы находитесь на странице вопроса "Создание программы (write ln,var) + Паскаль. Пмогите,пожалуйста:) Даны координаты 2ух точек (x1;y1),(x24y2) Найти: расстояние", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.