Решаем задачи Абрамян на Паскале. Proc 30

Proc30. Описать функцию DigitN($$K$$, $$N$$) целого типа, возвращающую $$N$$-ю цифру целого положительного числа $$K$$ (цифры в числе нумеруются справа налево). Если количество цифр в числе $$K$$ меньше $$N$$, то функция возвращает -1. Для каждого из пяти данных целых положительных чисел $$K_1, K_2, …, K_5$$ вызвать функцию DigitN с параметром $$N$$, изменяющимся от 1 до 5.

Решение:

program Proc30;

Function DigitN(K,N:Integer):Integer;
var i :integer;
begin
  for i:=1 to N-1 do
  begin
    K:=K div 10;
  end;
  if K<> 0 then DigitN:=K mod 10
  Else DigitN:=-1;
end;

var
  i,i2,K:Integer;

begin
 for i:=1 to 5 do
  begin
   Write('K :');
   Readln(K);
   for i2:=1 to 5 do
    begin
      Writeln(DigitN(K,i2));
    end;
  end;
end.

program Proc30;

Function DigitN(K,N:Integer):Integer;

var i :integer;

begin

for i:=1 to N-1 do

begin

K:=K div 10;

end;

if K<> 0 then DigitN:=K mod 10

Else DigitN:=-1;

end;

var

i,i2,K:Integer;

begin

for i:=1 to 5 do

begin

Write('K :');

Readln(K);

for i2:=1 to 5 do

begin

Writeln(DigitN(K,i2));

end;

end.

Немного модифицированное решение от olegst1975:

program Proc30;

function DigitN(k,n:integer):integer;
var
 s:string;
 temp,error:integer;
begin
 str(K,S);
 if n>length(s) then result:=-1
 else
  begin
   s:=s[length(s)-n+1];
   val(S,temp,error); 
   result:=temp;
  end
end;

var
  i,i1,k,n:integer;
begin
   for i:=1 to 5 do 
    begin
     read(k);
     for i1:=1 to 5 do
       begin
         n:=i1;
         write(DigitN(k,n));
       end;
    end;    
end.

program Proc30;

function DigitN(k,n:integer):integer;

var

s:string;

temp,error:integer;

begin

str(K,S);

if n>length(s) then result:=-1

else

begin

s:=s[length(s)-n+1];

val(S,temp,error);

result:=temp;

end

end;

var

i,i1,k,n:integer;

begin

for i:=1 to 5 do

begin

read(k);

for i1:=1 to 5 do

begin

n:=i1;

write(DigitN(k,n));

end;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Комментарии 6

[crayon-6742b263efdef575986282 inline="true" ]
function DigitN(k,n:integer):integer;//преобразуя в строку
var
  s:string;
  begin
   s:= inttostr(k);
   if n>length(s) then result:=-1
     else result:=strtoint(s[length(s)-n+1]);//нумерация элементов в строке обратная 
  end;

var 
  i,i1,k,n:integer;
begin
   for i:=1 to 5 do 
    begin
     read(k);
     for i1:=1 to 5 do
       begin
         n:=i1;
         write(DigitN(k,n));
       end;
    end;    
end.

[crayon-6742b263efdef575986282 inline="true" ]

function DigitN(k,n:integer):integer;//преобразуя в строку

var

s:string;

begin

s:= inttostr(k);

if n>length(s) then result:=-1

else result:=strtoint(s[length(s)-n+1]);//нумерация элементов в строке обратная

end;

var

i,i1,k,n:integer;

begin

for i:=1 to 5 do

begin

read(k);

for i1:=1 to 5 do

begin

n:=i1;

write(DigitN(k,n));

end;

end.

[/crayon]

Ответить

Anton

11.01.2016 в 10:23

Добавил в шапку изменив функции strtoint и inttostr, на процедуры val и str.

Ответить

Объясните, пожалуйста, почему после вывода пяти цифр (включая ‘-1’) в результате выводится шестой цифрой ноль?

Program p30;

Function dn(k: integer):Integer;
var i,n,z: integer;
Begin
z:=k;
While k<>0 do
 Begin
  inc(n);
  k:=k div 10;
 End;
k:=z;
 For i:=1 to 5 do
 Begin
  If (n>=i) then Write(k mod 10,' ')
  Else Write(-1, ' ');
  k:=k div 10;
 End;
End;

Var
 k,i: integer;
 
Begin
 For i:=1 to 5 do
 Begin
  Write('K=');
  Readln(k);
  Writeln(dn(k));
 End;
End.

Program p30;

Function dn(k: integer):Integer;

var i,n,z: integer;

Begin

z:=k;

While k<>0 do

Begin

inc(n);

k:=k div 10;

End;

k:=z;

For i:=1 to 5 do

Begin

If (n>=i) then Write(k mod 10,' ')

Else Write(-1, ' ');

k:=k div 10;

End;

Var

k,i: integer;

Begin

For i:=1 to 5 do

Begin

Write('K=');

Readln(k);

Writeln(dn(k));

End;

End.

Ответить

Anton

13.04.2017 в 13:06

при k=12345
5 4 3 2 1 выводится в 15 строке «If (n>=i) then Write(k mod 10,’ ‘)»
а 0 это выводиться в 29 строке в Writeln(dn(k));
тоесть dn(k) = 0;
но по сути в Function dn вы не задаёте значение вывода.
И уж совсем по брюзжать в задании просят созать функцию DigitN(K, N), которое выдаёт n-ую цифру числа k 🙂

Ответить
- Kirk
  
  14.04.2017 в 10:07
  
  Понял, спасибо огромное! 😉
  
  Ответить
  - Anton
    
    14.04.2017 в 10:45
    
    Это вам спасибо за активность на сайте. 🙂
    
    Ответить

Решаем задачи Абрамян на Паскале. Proc 30

Комментарии:

Комментарии 6

Добавить комментарий Отменить ответ