натуральные числа

[RockerwomanLOVE]

Здравствуйте!! Я новичок, пожалуйста помогите помогите решить мне одну задачу, от этой задачи зависит моя учеба. стараюсь, учусь, но не поняла тему подпрограммы.

пожалуйста помоги решить эту задачу тремя способами: с процедурой, с функцией и просто линейно.
буду весьма благодарна , если поможете решить хотя бы одним способом.
заранее спасибо!!!

даны три натуральных числа, выяснить в каком из них больше цифр.

[Smitt&Wesson]

И чё за задача?

[Valio]

Сообщение от RockerwomanLOVE

от этой задачи зависит моя учеба.

....

даны три натуральных числа, выяснить в каком из них больше цифр.

Если от такой задачи зависит твоя учёба, то пусть лучше тебя отчислят.

[Smitt&Wesson]

// Функция
int Comparison(float x, float y, float z)
{
AnsiString X,Y,Z;
X = FloatToStr(x);
Y = FloatToStr(y);
Z = FloatToStr(z);
if(X.Length() > Y.Length() && X.Length() > Z.Length()) return 1;
else  if(Y.Length() > Z.Length()) return 2;
return 3;
}

Вот, примерно так.

[RockerwomanLOVE]

Спасибо!!!!

[Sparkman]

Turbo Pascal:
1) линейный

uses crt;
var a,b,c:integer;
    n1,n2,n3:integer;
begin
     clrscr;
     write('Enter a: ');
     readln(a);
     write('Enter b: ');
     readln(b);
     write('Enter c: ');
     readln(c);
     while a div 10 > 0 do
     begin
          inc(n1);
          a:=a div 10;
     end;
     while b div 10 > 0 do
     begin
          inc(n2);
          b:=b div 10;
     end;
     while c div 10 > 0 do
     begin
          inc(n3);
          c:=c div 10;
     end;
     if (n1>n2) and (n1>n3) then writeln('1st digit')
     else if (n2>n1) and (n2>n3) then writeln('2nd digit')
     else if (n3>n1) and (n3>n2) then writeln('3rd digit')
     else if (n1=n2) and (n1>n3) then writeln('1st and 2nd')
     else if (n1=n3) and (n1>n2) then writeln('1st and 3rd')
     else if (n2=n3) and (n2>n1) then writeln('2nd and 3rd')
     else writeln('Bce paBHbI');
     readln;
end.

2) через процедуру

uses crt;
var a,b,c:integer;
    n1,n2,n3:integer;
procedure lenDigit(var lDig:integer; digit:integer);
begin
     lDig:=0;
     while digit div 10 > 0 do
     begin
          inc(lDig);
          digit:=digit div 10;
     end;
end;
begin
     clrscr;
     write('Enter a: ');
     readln(a);
     write('Enter b: ');
     readln(b);
     write('Enter c: ');
     readln(c);

     lenDigit(n1,a);
     lenDigit(n2,b);
     lenDigit(n3,c);

     if (n1>n2) and (n1>n3) then writeln('1st digit')
     else if (n2>n1) and (n2>n3) then writeln('2nd digit')
     else if (n3>n1) and (n3>n2) then writeln('3rd digit')
     else if (n1=n2) and (n1>n3) then writeln('1st and 2nd')
     else if (n1=n3) and (n1>n2) then writeln('1st and 3rd')
     else if (n2=n3) and (n2>n1) then writeln('2nd and 3rd')
     else writeln('Bce paBHbI');
     readln;
end.

3) через функцию

uses crt;
var a,b,c:integer;
    n1,n2,n3:integer;
function getLen(digit:integer):integer;
var n:integer;
begin
     while digit div 10 > 0 do
     begin
          inc(n);
          digit:=digit div 10;
     end;
     getLen:=n;
end;
begin
     clrscr;
     write('Enter a: ');
     readln(a);
     write('Enter b: ');
     readln(b);
     write('Enter c: ');
     readln(c);
     n1:=getLen(a);
     n2:=getLen(b);
     n3:=getLen(c);
     if (n1>n2) and (n1>n3) then writeln('1st digit')
     else if (n2>n1) and (n2>n3) then writeln('2nd digit')
     else if (n3>n1) and (n3>n2) then writeln('3rd digit')
     else if (n1=n2) and (n1>n3) then writeln('1st and 2nd')
     else if (n1=n3) and (n1>n2) then writeln('1st and 3rd')
     else if (n2=n3) and (n2>n1) then writeln('2nd and 3rd')
     else writeln('Bce paBHbI');
     readln;
end.

все вместе

uses crt;
var a,b,c:integer;
    n1,n2,n3:integer;
    f:byte;
procedure lenDigit(var lDig:integer; digit:integer);
begin
     lDig:=0;
     while digit div 10 > 0 do
     begin
          inc(lDig);
          digit:=digit div 10;
     end;
end;
function getLen(digit:integer):integer;
var n:integer;
begin
     while digit div 10 > 0 do
     begin
          inc(n);
          digit:=digit div 10;
     end;
     getLen:=n;
end;
begin
     clrscr;
     writeln('1) line');
     writeln('2) procedure');
     writeln('other) function');
     readln(f);

     write('Enter a: ');
     readln(a);
     write('Enter b: ');
     readln(b);
     write('Enter c: ');
     readln(c);

     if f=1 then
     begin
          while a div 10 > 0 do
          begin
               inc(n1);
               a:=a div 10;
          end;
          while b div 10 > 0 do
          begin
               inc(n2);
               b:=b div 10;
          end;
          while c div 10 > 0 do
          begin
               inc(n3);
               c:=c div 10;
          end;
     end else
     if f=2 then
     begin
          lenDigit(n1,a);
          lenDigit(n2,b);
          lenDigit(n3,c);
     end else
     begin
          n1:=getLen(a);
          n2:=getLen(b);
          n3:=getLen(c);
     end;
     if (n1>n2) and (n1>n3) then writeln('1st digit')
     else if (n2>n1) and (n2>n3) then writeln('2nd digit')
     else if (n3>n1) and (n3>n2) then writeln('3rd digit')
     else if (n1=n2) and (n1>n3) then writeln('1st and 2nd')
     else if (n1=n3) and (n1>n2) then writeln('1st and 3rd')
     else if (n2=n3) and (n2>n1) then writeln('2nd and 3rd')
     else writeln('Bce paBHbI');
     readln;
end.

[RockerwomanLOVE]

Огромное вам спасибо!!! Вы мне очень помогли!!!я немножко переделаю программы с вашего разрешения на студенческий лад???!!!! Спасибо Вам большое!!!