Решить все это в паскале. на окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. определить номера четвертей окружности, в которых находятся начальная и конечная точки.

👇

Ответ:

Borkborkk

13.06.2022

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.

4,8(46 оценок)

Открыть все ответы

Ответ:

masha28122812

13.06.2022

1)
var i,a:Integer;
begin
a:= 1;
while a<>0 do
begin
Read(a);
i+=a;
end;
WriteLn(i=10);
end.

2) Можно через double. Но после 170! уже бесконечность.
var n:Integer;
var b:double;
begin
b:=1;
Read(n);
for var i:= 1 to n do
b*=i;
WriteLn('factorial '+n+' = '+b);
end.

3) Работает как и с числами так и со строками.
var arr:array of char;
var a:String;
var first,last:Integer;
begin
Read(a);
arr:= a.ToCharArray();
for var i:= 0 to arr.Length-1 do
begin
first:=Pos(arr[i], a);
last:=Pos(arr[i], a,first+1);
if (first>0) and (last > 0) and (first<>last) then
begin
first:=99;
break;
end;
end;
if first = 99 then
WriteLn('Содержит. Это число '+arr[last-1])
else
WriteLn('Несодержит.');
end.

4,5(62 оценок)

Ответ:

никто271

13.06.2022

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

function IsGood(n:integer):boolean;
begin
n:=Abs(n);
var s:=0;
while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
Result:=s=10
end;

begin
var k:=ReadSeqIntegerWhile(t->t<>0).Where(t->IsGood(t)).Count;
Writeln(k,' чисел с суммой цифр, равной 10')
end.

Пример
-5234 20043 52340 10531 -64 31502 0
2 чисел с суммой цифр, равной 10

№2

begin
var n:=ReadInteger('Введите число:');
if n<=1 then Writeln(n,'!=',1)
else Writeln(n,'!=',1.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Примеры
Введите число: 5
5!=120

Введите число: 20
20!=2432902008176640000

Введите число: 100
100!=93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

№3

begin
if ReadInteger('Введите число:').ToString.GroupBy(t->t).
      Select(t->(t.Key,t.Count)).Any(t->t[1]>1)
then Writeln('Число содержит по крайней мере две одинаковые цифры')
else Writeln('Введенное число не содержит одинаковых цифр')
end.

Примеры
Введите число: 12345670
Введенное число не содержит одинаковых цифр

Введите число: 1320624
Число содержит по крайней мере две одинаковые цифры

4,7(37 оценок)

Это интересно:

Образование-и-коммуникации

15.03.2022

Квантовая физика: с чего начать, чтобы понять ее?...

Дом-и-сад

02.09.2022

Как посадить дерево: советы от опытных садоводов...

Стиль-и-уход-за-собой

13.08.2021

Секреты получения и сохранения красивого загара в домашних условиях...

Компьютеры-и-электроника