Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread590966.html
Разработать алгоритм и программу определите d:=((5*a-6)/(sqr(a)-36)). Помогите убрать ошибку деление на ноль когда в водишь в программе "6" которая написана ниже!!! program chislo; uses crt;...
Задание на рекурсию. Написать рекурсивную процедуру генерации всех перестановок чисел от 1 до n Turbo Pascal
Написать рекурсивную процедуру генерации всех перестановок чисел от 1 до n. Я честно даже смысла задания не поняла( Добавлено через 10 часов 28 минут Помогите решить пожалуйста
Цилиндр. Определить объем 5-ти цилиндров Turbo Pascal
Определить объем 5-ти цилиндров. Радиус (R) первого равен 10 см, а высота его Н равна 25 см. Высота каждого следующего цилиндра уменьшается на 0,5 см...формула: √=πR*H помогите...
Turbo Pascal Неверно отображается кирилица проблему указал на рисунке(как убрать эти символы и откуда они берутся) uses crt; const max=23; Smax=25; Xmax=48; type str25=string; str48=string; https://www.cyberforum.ru/ turbo-pascal/ thread590898.html
Turbo Pascal Неработающая процедура Gettime https://www.cyberforum.ru/ turbo-pascal/ thread590876.html
У меня счетчик не высчитывает время, все вроде правильно сделал. Выводит только нули. Помогите пожалуйста. function fGetTime: LongInt; var Hr, Min, Sec, Sec_100: Word; begin GetTime(Hr, Min,...
Код итерационного цикла. Найти сумму бесконечного ряда Turbo Pascal
Помогите пожалуйста написать код!! Найти сумма бесконечного ряда \sum_{n = 1}^{\infty} \ \frac{1}{n^2 \cdot \left( \sin{(n)} + 1.1 \right)} с точностью до \epsilon
Turbo Pascal Получить на экране прямоугольник, который оборачивается в плоскости экрана вокруг своего центра
Получить на экране прямоугольник, который оборачивается в плоскости экрана вокруг своего центра. Скорость движения (частота смены кадров) ввести с клавиатуры. Спасибо за отзывчивость)
Turbo Pascal Код для арифметического цикла. Вычислить сумму Помогите, пожалуйста написать код программы!:wall: По введенным с клавиатуры x, m вычислить S: S = \sum_{i = 1, 3, 5 \cdots}^{2\cdot m + 1} i \cdot {x}^{2} https://www.cyberforum.ru/ turbo-pascal/ thread590868.html
Turbo Pascal Быстрая сортировка https://www.cyberforum.ru/ turbo-pascal/ thread590857.html
Помогите пожалуйста, надо написать программу которая создает статический массив. При этом реализовав быструю сортировку.
Turbo Pascal Последовательность. Напечатать те числа, которые делятся нацело на 4, но не делятся на 6 с клавиатуры вводятся десять двузначных чисел. напечатать те из них, которые делятся нацело на 4, но не делятся на 6. посчитать их количество. https://www.cyberforum.ru/ turbo-pascal/ thread590846.html
2 / 2 / 2
Регистрация: 10.04.2012
Сообщений: 18
30.05.2012, 01:33 0

Определить, какая из точек находится дальше от начала координат

30.05.2012, 01:33. Просмотров 1743. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Лови:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Program HELP_Uk;
Uses
    Crt;
Var
   a, b, x, y, n, m : real;
Begin
     ClrScr;
     WriteLn ('Vvedite koordinaty pervoi tochki cherez probel ');
     ReadLn (a,b);
     WriteLn ('vvedite koordinaty vtoroy tochki cherez probel ');
     ReadLn (x,y);
     n := sqrt(sqr(a) + sqr(b));
     m := sqrt(sqr(x) + sqr(y));
     If n = m then
                  begin
                       writeLn ('Tochki nahodyatsya na ravnom rasstoyanii ot nachala koordinat ');
                  end
     else
         begin
              If n > m then
                           begin
                                writeLn ('Vtoraya tochka blije ');
                           end
              else
                  begin
                       writeln ('pervaya tochka blije ');
                  end;
     end;
     ReadLn;
End.
Простите за кривой транслит, но, думаю, разобраться можно

Вернуться к обсуждению:
Определить, какая из точек находится дальше от начала координат
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 01:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить, какая из точек находится ближе к началу координат
Написать программу, которая по заданным координатам двух точек на плоскости определяет, какая из...

Даны координаты двух точек Определить какая из них находится дальше от начала координат
Даны координаты двух точек Определить какая из них находится дальше от начала координат

Определить, какая из точек находится ближе к началу координат
Хакеры и программисты данного ресурса. Взываю к Вашему милосердию. Помогите с работами для...

Определите, какая из двух точек находится ближе к началу координат
Составьте программу, решающую следующую задачу: Даны две точки с координатами x1, y1, x2,y2....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.