Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
10-11 класс
|
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
program prog;
var x1,x2,y1,y2,i,b:integer;
begin;
writeln('Введите 4 точки: x1, y1; x2, y2');
readln(x1,y1,x2,y2);
i:=abs(x1+y1);
b:=abs(x2+y2);
if i=b then writeln('Координаты находятся на одной точке') else begin
if i>b then writeln('Первая координата дальше') else writeln('Вторая координата дальше');
end;
end.
Другие вопросы из категории
Условие:
Напишите программу которая вычисляет среднее арифметическое элементов таблицы А(3*8) . Программа по двумерным массивам.
зрительное сообщение об остановке шарика в одной из лунок рулетки при общем их количестве 128.
2.Найдите х из следующего соотношения: 8xКбайт=16Гбайт
3.Чему равен десятичный эквивалент числа 10101?
4.Найти х: а)233.5=х б) 0.101=х
5.Найдите значение выражения: 125+11101*А2-1417,ответ переведите в восьмеричную систему счисления.
Решите как можно больше!!!!!
1) 420 кБ
2) 2500 кБ
3) 3200 кб
4) 5700 кБ
5) 2850 кБ
6) 3700 кБ
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
13.
Нужно написать программу на цикле с предусловием, на Паскале.
необходимо поменять местами: а) первый и последний элементы массива; б) второй и минимальный элементы массива; в) третий и максимальный элементы массива; Вывести на экран исходный и результирующий массивы.
Задача на одномерный массив.
Задание 2.
Задан одномерный массив MAS2 [1..10].
Массив объявите как константу типа Integer размером [1..10] со следующими значениями: (-7, 89, 64, -43, 4, 6, 8, -12, 55, 99)
Замените все положительные элементы одномерного массива на их квадраты, а отрицательные удвойте.
Результат вывести на экран.
Вычислить сумму всех элементов нового массива и вывести на экран.
Исходный массив Новый массив
-7 -14
89 7921
64 4096
-43 -86
4 16
6 36
8 64
-12 -24
55 3025
99 9801
Сумма элементов нового массива 24835
Заполнить двухмерный массив NM [1..5,1..5] константами:
100 101 102 103 104
200 201 202 203 204
300 301 302 303 304
400 401 402 403 404
500 501 502 503 504