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

Proc9. Описать процедуру AddLeftDigit($$D$$, $$K$$), добавляющую к целому положительному числу $$K$$ слева цифру $$D$$ ($$D$$ — входной параметр целого типа, лежащий в диапазоне 1-9, $$K$$ — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу $$K$$ слева данные цифры $$D_1$$ и $$D_2$$, выводя результат каждого добавления.

Решение:

program Proc9;

procedure AddLeftDigit(D:Integer; var K:Integer);
var
 temp:integer;
begin
  temp:=10;
  While ((K div temp)<>0) do temp:=temp*10;
  K:=D*temp+K;
end;

var
  D1,D2,K:Integer;

begin
  Write('K :');
  Readln(K);
  Write('D1 :');
  Readln(D1);
  AddLeftDigit(D1, K);
  Writeln(K);
  Write('D2 :');
  Readln(D2);
  AddLeftDigit(D2, K);
  Writeln(K);
end.

program Proc9;

procedure AddLeftDigit(D:Integer; var K:Integer);

var

temp:integer;

begin

temp:=10;

While ((K div temp)<>0) do temp:=temp*10;

K:=D*temp+K;

end;

var

D1,D2,K:Integer;

begin

Write('K :');

Readln(K);

Write('D1 :');

Readln(D1);

AddLeftDigit(D1, K);

Writeln(K);

Write('D2 :');

Readln(D2);

AddLeftDigit(D2, K);

Writeln(K);

end.

Решение (немного изменил условие в цикле, так даже проще):

program Proc9;

procedure AddLeftDigit(D:Integer; var K:Integer);
var
 temp:integer;
begin
  temp:=10;
  While (K>temp) do temp:=temp*10;
  K:=K+D*temp;
end;

var
  D1,D2,K:Integer;

begin
  Write('K :');
  Readln(K);
  Write('D1 :');
  Readln(D1);
  AddLeftDigit(D1, K);
  Writeln(K);
  Write('D2 :');
  Readln(D2);
  AddLeftDigit(D2, K);
  Writeln(K);
end.

program Proc9;

procedure AddLeftDigit(D:Integer; var K:Integer);

var

temp:integer;

begin

temp:=10;

While (K>temp) do temp:=temp*10;

K:=K+D*temp;

end;

var

D1,D2,K:Integer;

begin

Write('K :');

Readln(K);

Write('D1 :');

Readln(D1);

AddLeftDigit(D1, K);

Writeln(K);

Write('D2 :');

Readln(D2);

AddLeftDigit(D2, K);

Writeln(K);

end.

Решение с помощью строк:

program Proc9;
procedure AddLeftDigit(D:Integer; var K:Integer);
var
 S,Stemp:string;
 i,error: integer;
begin
 str(D,Stemp);
 S:=Stemp;
 str(K,Stemp);
 S:=S+Stemp;
 Val(S,K,error);
 Writeln(S);
end;

var
  D1,D2,K:Integer;

begin
  Write('K :');
  Readln(K);
  Write('D1 :');
  Readln(D1);
  AddLeftDigit(D1, K);
  Writeln(K);
  Write('D2 :');
  Readln(D2);
  AddLeftDigit(D2, K);
  Writeln(K);
  readln;
end.

program Proc9;

procedure AddLeftDigit(D:Integer; var K:Integer);

var

S,Stemp:string;

i,error: integer;

begin

str(D,Stemp);

S:=Stemp;

str(K,Stemp);

S:=S+Stemp;

Val(S,K,error);

Writeln(S);

end;

var

D1,D2,K:Integer;

begin

Write('K :');

Readln(K);

Write('D1 :');

Readln(D1);

AddLeftDigit(D1, K);

Writeln(K);

Write('D2 :');

Readln(D2);

AddLeftDigit(D2, K);

Writeln(K);

readln;

end.

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

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

olegst1975

11.01.2016 в 00:54

Это решение к задаче Proc8

Ответить
- Anton
  
  11.01.2016 в 08:34
  
  Поправил. Можно сказать использовал ваши идеи. 🙂
  
  Ответить
  - olegst1975
    
    11.01.2016 в 13:32
    
    Скорее как пишут в фильмах «по мотивам». Вот это — While ((K div temp)….- очень здорово!!
    
    Ответить
    - Anton
      
      11.01.2016 в 13:34
      
      Рад, что понравилось 🙂
      
      Ответить

[crayon-6741024a22d30595933608 inline="true" ]
procedure AddLeftDigit();
var
   d,k1,z:integer;
  begin
    readln(d);
    k1:=k;
    z:=1;
    while k1<>0 do//определяем порядок К
      begin
      z:=z*10;
      k1:=k1 div 10;
      end;
    k:=k+d*z;
    writeln(k);
  end;

var
 i,k:integer;
begin
  read(k);
  for i:=1 to 2 do AddLeftDigit();  
end.

[crayon-6741024a22d30595933608 inline="true" ]

procedure AddLeftDigit();

var

d,k1,z:integer;

begin

readln(d);

k1:=k;

z:=1;

while k1<>0 do//определяем порядок К

begin

z:=z*10;

k1:=k1 div 10;

end;

k:=k+d*z;

writeln(k);

end;

var

i,k:integer;

begin

read(k);

for i:=1 to 2 do AddLeftDigit();

end.

[/crayon]

Ответить

olegst1975

11.01.2016 в 01:35

строка 9 должна иметь вид

[crayon-6741024a22cee724654910 inline="true" ] while k1<>0 do// определяем порядок К

1
2

[crayon-6741024a22cee724654910 inline="true" ]
while k1<>0 do// определяем порядок К

[/crayon]

Ответить
- Anton
  
  11.01.2016 в 07:49
  
  Поправил.
  
  Ответить
Anton

11.01.2016 в 07:57

Не нравиться, так как процедура задана в задании, довольно конкретно : «AddLeftDigit(D, K)»

Ответить

[crayon-6741024a22ca5455161610 inline="true" ]
procedure AddLeftDigit();//как со строкой
var
   d,z:integer;
   d1:string;
  begin
    readln(d);
    k:=strtoint(inttostr(d)+inttostr(k));
    writeln(k);
  end;

var
 i,k:integer;
begin
  read(k);
  for i:=1 to 2 do AddLeftDigit();  
end.

[crayon-6741024a22ca5455161610 inline="true" ]

procedure AddLeftDigit();//как со строкой

var

d,z:integer;

d1:string;

begin

readln(d);

k:=strtoint(inttostr(d)+inttostr(k));

writeln(k);

end;

var

i,k:integer;

begin

read(k);

for i:=1 to 2 do AddLeftDigit();

end.

[/crayon]

Ответить

Anton

11.01.2016 в 07:58

Тоже самое процедура «AddLeftDigit(D, K)», а не «AddLeftDigit()»

Ответить

Николай

20.12.2018 в 22:02

Во втором решении при к=10, 100,… не получается.
While (K>=temp) do temp:=temp*10; так правильнее.

Ответить

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

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

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

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