составить программу.

[конфета345]

Ребят, огромная просьба, напишите как это должно выглядеть в паскале или в бейсике.

1)По введённому числу выведите его характеристики: знак, чётность, количество разрядов, тип данных переменной, в которой число может быть сохранено и т.д.


2)Окружность задана координатами центра и радиусом. Прямая описывается уравнением y=ax+b. Определить ко-личество точек пересечения прямой и окружности.

[Aiden]

function NumInfo(val:longint):string;
begin
//знак
if val=abs(val) then Result:='Положительное '
else Result:='Отрицательное ';
//четность
if val mod 2 =0 then Result:=Result + 'четное, разрядов-'
else Result:=Result + 'нечетное, разрядов-';
//разрядность
Result:=Result + Length(IntToStr(val))+' тип данных ';
//тип данных
if abs(val)<=High(Shortint) then Result:=Result+'Shortint'
else begin
  if abs(val)<=High(Integer) then Result:=Result+'Integer'
  else Result:=Result+'Longint';
end;
end;

Данный вариант - для целых чисел.

2. Высшей математики не помню, поэтому могу предложить лишь вариант перебора:

function PointCount(x,y,r,a,b:real):byte;
var
i,coord,l,step:real;
n:integer;
begin
step:=0.1;
i:=x-r;
Result:=0;
while i<=x+r do begin
  //рассчитываем координаты прямой
  coord:=(a*i)+b;
  //находим квадрат расстояния до центра окружности по теореме Пифагора
  l:=((x-i)*(x-i))+((y-coord)*(y-coord))
  //сверяем квадраты радиуса и расстояния до центра
  if l<r*r then n:=2
  else begin
    if l=r*r then n:=1
    else n:=0;
  end;
  if n>Result then Result:=n;
  i:=i+step;
end;
end;

чем меньше значение переменной step - тем более точный будет результат. Но и расчет будет дольше.