Program Techies2001; uses crt; const n=10; var s:string; i,j:integer; x0,y0,xn,yn,xk,yk:real; begin S:='*** Alphaeus is thinking... ***'; for i:=1 to length(s) do begin write(s[i]); for j:=1 to 500000 do s[i]:=s[i]; end; writeln(); writeln('*** OK ***'); writeln(); writeln('На окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. Определить номера четвертей окружности, в которых находятся начальная и конечная точки.'); writeln('Введите координаты точек:'); write('x0='); readln(x0); write('y0='); readln(y0); write('xn='); readln(xn); write('yn='); readln(yn); write('xk='); readln(xk); write('yk='); readln(yk); if ((xn=x0) AND (yn=y0)) OR ((xk=x0) AND (yk=y0)) then writeln('Начало или конец дуги совпадают с центром') else begin if ((xn>x0) AND (yn>y0)) then writeln('Начало дуги находится в I четверти'); if ((xn<x0) AND (yn>y0)) then writeln('Начало дуги находится во II четверти'); if ((xn<x0) AND (yn<y0)) then writeln('Начало дуги находится в III четверти'); if ((xn>x0) AND (yn<y0)) then writeln('Начало дуги находится в IV четверти'); if ((xn=x0) AND (yn>y0)) then writeln('Начало дуги находится на оси Х на границе I и II четверти'); if ((xn<x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе II и III четверти'); if ((xn=x0) AND (yn<y0)) then writeln('Начало дуги находится на оси Х на границе III и IV четверти'); if ((xn>x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе I и IV четверти'); if ((xk>x0) AND (yk>y0)) then writeln('Конец дуги находится в I четверти'); if ((xk<x0) AND (yk>y0)) then writeln('Конец дуги находится вî II четверти'); if ((xk<x0) AND (yk<y0)) then writeln('Конец дуги находится в III четверти'); if ((xk>x0) AND (yk<y0)) then writeln('Конец дуги находится в IV четверти'); if ((xk=x0) AND (yk>y0)) then writeln('Конец дуги находится на оси Х на границе I и II четверти'); if ((xk<x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе II и III четверти'); if ((xk=x0) AND (yk<y0)) then writeln('Конец дуги находится на оси Х на границе III и IV четверти'); if ((xk>x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе I и IV четверти'); end; end.
void choicesSort(int* arrayPtr, int length_array) // сортировка выбором
{
for (int repeat_counter = 0; repeat_counter < length_array; repeat_counter++)
{
int temp = arrayPtr[0]; // временная переменная для хранения значения перестановки
for (int element_counter = repeat_counter + 1; element_counter < length_array; element_counter++)
{
if (arrayPtr[repeat_counter] > arrayPtr[element_counter])
{
temp = arrayPtr[repeat_counter];
arrayPtr[repeat_counter] = arrayPtr[element_counter];
arrayPtr[element_counter] = temp;
}
}
}
}
UPD: Под Ваш конкретный случай. Попробуйте этот код:
uses crt;
const n=10;
var
s:string;
i,j:integer;
x0,y0,xn,yn,xk,yk:real;
begin
S:='*** Alphaeus is thinking... ***';
for i:=1 to length(s) do
begin
write(s[i]);
for j:=1 to 500000 do s[i]:=s[i];
end;
writeln();
writeln('*** OK ***');
writeln();
writeln('На окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. Определить номера четвертей окружности, в которых находятся начальная и конечная точки.');
writeln('Введите координаты точек:');
write('x0='); readln(x0);
write('y0='); readln(y0);
write('xn='); readln(xn);
write('yn='); readln(yn);
write('xk='); readln(xk);
write('yk='); readln(yk);
if ((xn=x0) AND (yn=y0)) OR ((xk=x0) AND (yk=y0)) then
writeln('Начало или конец дуги совпадают с центром')
else
begin
if ((xn>x0) AND (yn>y0)) then writeln('Начало дуги находится в I четверти');
if ((xn<x0) AND (yn>y0)) then writeln('Начало дуги находится во II четверти');
if ((xn<x0) AND (yn<y0)) then writeln('Начало дуги находится в III четверти');
if ((xn>x0) AND (yn<y0)) then writeln('Начало дуги находится в IV четверти');
if ((xn=x0) AND (yn>y0)) then writeln('Начало дуги находится на оси Х на границе I и II четверти');
if ((xn<x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе II и III четверти');
if ((xn=x0) AND (yn<y0)) then writeln('Начало дуги находится на оси Х на границе III и IV четверти');
if ((xn>x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе I и IV четверти');
if ((xk>x0) AND (yk>y0)) then writeln('Конец дуги находится в I четверти');
if ((xk<x0) AND (yk>y0)) then writeln('Конец дуги находится вî II четверти');
if ((xk<x0) AND (yk<y0)) then writeln('Конец дуги находится в III четверти');
if ((xk>x0) AND (yk<y0)) then writeln('Конец дуги находится в IV четверти');
if ((xk=x0) AND (yk>y0)) then writeln('Конец дуги находится на оси Х на границе I и II четверти');
if ((xk<x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе II и III четверти');
if ((xk=x0) AND (yk<y0)) then writeln('Конец дуги находится на оси Х на границе III и IV четверти');
if ((xk>x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе I и IV четверти');
end;
end.