var
a: real;
begin
writeln('Введите вещественное число');
readln(a); //Вводим вещественное число
if a < 0 then writeln('Модуль числа а: ', abs(a)) {Если введенное число - отрицательное, печатаем его модуль, иначе печатаем квадратный корень из этого числа с округлением до 5 знаков после запятой}
else writeln('Квадратный корень из числа а: ', sqrt(a) : 0 : 5);
end.
<span>Рассмотрим, например, карандаш. Он состоит из деревянного корпуса и графитового стержня. Графитовый стержень — это существенный элемент карандаша, так как он определяет его главное назначение — писать, рисовать, то есть оставлять след на бумаге. Корпус служит для того, чтобы не ломался хрупкий графитовый стержень. Корпус — это вспомогательный элемент. Он может быть сделан не из дерева, а из другого материала (например, из пластмассы).</span>
6*х+7*у алгоритм 1 начало 2 описание переменных (х,у,с - вещественные 3 Ввод данных 3 выражение(с=6*х+7*у)4 вывод данных 5 конец
//Прошу прощения за "пузырёк"
//Pascal ABC.NET 3.1 сборка 1219
Const n=5; //количество вершин
Type
ty=record
x:integer;
y:integer;
end;
Var
ar:array[1..n] of ty;
i,j:integer;
begin
for i:=1 to n do
begin
write('Абсцисса точки №',i,':');readln(ar[i].x);
write('Ордината точки №',i,':');readln(ar[i].y);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i].x>ar[j].x then swap(ar[i],ar[j]);
for i:=1 to (n div 2)-1 do
for j:=i+1 to n div 2 do
if ar[i].y<ar[j].y then swap(ar[i],ar[j]);
for i:=n div 2+1 to n-1 do
for j:=i+1 to n do
if ar[i].y>ar[j].y then swap(ar[i],ar[j]);
ar.reverse.Print;
end.
Пример ввода:
Абсцисса точки №1:1
Ордината точки №1:2
Абсцисса точки №2:2
Ордината точки №2:1
Абсцисса точки №3:-3
Ордината точки №3:-3
Абсцисса точки №4:3
Ордината точки №4:3
Абсцисса точки №5:3
Ордината точки №5:1
Пример вывода:
(3,3) (3,1) (2,1) (-3,-3) (1,2)
Лови ответ, я проверил, всё правильно: