Требуется исправить сортировку в этой программе. То есть, чтобы в сортировке было меньше кода. Сделать сортировку с использованием массива и цикла.
program rabota820yes;
{$APPTYPE CONSOLE}
uses
SysUtils,
math;
Procedure Polar(a,b:real; var c,d:real);
begin
c:=sqrt(sqr(a)+sqr(b));
d:=arctan(b/a);
end;
var x1,x2,y1,y2,z1,z2:real;
begin
writeln('Tochka x');
write('x1='); readln(x1);
write('x2='); readln(x2);
writeln('Tochka y');
write('y1='); readln(y1);
write('y2='); readln(y2);
writeln('Tochka z');
write('z1='); readln(z1);
write('z2='); readln(z2);
Polar(x1,x2,x1,x2);
Polar(y1,y2,y1,y2);
Polar(z1,z2,z1,z2);
writeln('Polar coord:');
writeln('Tochka x{P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('Tochka y{P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('Tochka z{P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('Sort:');
if x1
if y1
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
end
else if x1
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
end
else begin
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
end
else if x1
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
end
else if y1
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
end
else begin
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
end;
readln;
end.
Есть программа АРМ диспетчера такси, для нее как отдельное приложение, необходимо сделать форму добавления новой заявки от клиента на вызов такси. Данная форма должна быть оформлена как отдельное приложение и вызываться по горячей клавише. Содержит следующие ...
Нужно написать процедуры шифрования\дешифрования методом А5, Гиффорда. Язык с\с++, паскаль(дешевле). На вход подаётся строка типа "программирование", на выходе зашифрованная строка. Программа должна быть консольная, без графического интерфейса. По возможности без использования платформозависимых процедур. Краткое описание есть в ...
Необходимо реализовать алгоритм "Кластеризация категорийных данных: масштабируемый алгоритм CLOPE" http://www.basegroup.ru/library/analysis/clusterization/clope/
Имеется Excel файл с несколькими столбцами. Там 3 цвета ячеек - это три типа доступа. 2 пользователя имеют доступ к зеленым. Один пользователь к желтым. Один к синим, плюс один юзер имеет право на просмотр ...
Граббер должен выгружать данные по организациям ДубльГис в формат Access - файл: 1) Название организации; 2) Список рубрик, к которым относятся организации; 3) Адрес организации; 4) Телефоны организаций; 5) Сайты организаций; 6) E-mail`ы организаций.
Требуется приложение для получения информации с сайта, среда разработки - C++, VisualStudio2005 Программа должна уметь залогиниться на сайте (запрос POST), отправить запрос на получение данных, прочитать данные с ответной html страницы и сложить их в файл ...
У нас есть Visual C++ Application в виде .ехе - file. Этот файл невозможно запустить на сервере Windows Server 2008 без того, чтобы не появлялся запрос от сервера об авторизации запуска файла, так как ...
Есть макет рисовалки блок-схем, разработанный на C#, MS SQL. Надо расширить его функции, как описано в прилагаемом ТЗ. Можно использовать сторонние графические библиотеки. Подробности и исходники редактора вышлю.
Для выполнения единовременной настройки для корректного функционирования ПО 1С Управление торговлей и 1С Бухгалтерия на платформе 8.1, требуется опытный программист в Новосибирске. Условия сотрудничества, объем работ будут оговорены при встрече.
Необходимо разработать приложение КамСплиттер позволяющее пользователю использовать одну физическую вебкамеру в нескольких приложениях одновременно (скажем в Скайпе и в браузере). GUI простой, минимум взаимодействия с пользователем. Нужен практически полный аналог, скачать можно отсюда http://www.2shared.com/file/AqziyCWf/camsplitter.html? Программу планируется распространять ...