Напишите программу пожалуйста
10-11 класс
|
Определить полярные координаты точки, заданные декартовыми координатами (x,y) по формулам f=arctg(x/y), r=√x^2+y^2. При вычислении угла @ необходимо учесть, что значение х может быть равно нулю, а угол может находиться в различных четвертях.
procedure Polar(x, y: real; var r, f: real);
begin
r := sqrt(sqr(x) + sqr(y));
if x = 0 then
if y = 0 then f := 0
else
if y > 0 then f := Pi / 2 else f := -Pi / 2
else begin
f := arctan(y / x);
if x < 0 then
if y >= 0 then f := f + Pi else f := f - Pi
end
end;
{ тестовое решение }
var
R, Fi: real;
begin
Polar(1, 1, R, Fi);
Writeln('(+1;+1) -> (', R, ';', Fi, ')');
Polar(1, -1, R, Fi);
Writeln('(+1;-1) -> (', R, ';', Fi, ')');
Polar(-1, 1, R, Fi);
Writeln('(-1;+1) -> (', R, ';', Fi, ')');
Polar(-1, -1, R, Fi);
Writeln('(-1;-1) -> (', R, ';', Fi, ')');
Polar(0, 1, R, Fi);
Writeln('(0;+1) -> (', R, ';', Fi, ')');
Polar(0, -1, R, Fi);
Writeln('(0;-1) -> (', R, ';', Fi, ')');
Polar(0, 0, R, Fi);
Writeln('(0;0) -> (', R, ';', Fi, ')');
end.
Тестовое решение:
(+1;+1) -> (1.4142135623731;0.785398163397448)
(+1;-1) -> (1.4142135623731;-0.785398163397448)
(-1;+1) -> (1.4142135623731;2.35619449019234)
(-1;-1) -> (1.4142135623731;-2.35619449019234)
(0;+1) -> (1;1.5707963267949)
(0;-1) -> (1;-1.5707963267949)
(0;0) -> (0;0)
Другие вопросы из категории
может ввести пользователь в компьютер за 1 мин
1)-А+В+-С
2)А^-В^С
3)-А+-В+-С
4)-А^В^-С
Читайте также
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.