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

Proc7. Описать процедуру InvertDigits( $K$ ), меняющую порядок следования цифр целого положительного числа $K$ на обратный ( $K$ — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.

Решение:

program Proc7;

procedure InvertDigits(var K:Integer);
var
  TempI:Integer;
begin
  TempI:=0;
  while (k<>0) do
  begin
    TempI:=TempI*10+(K mod 10);
    K:=K div 10;
  end;
  K:=TempI;
end;

var
  k,I:Integer;
begin
 for i:=1 to 5 do
  begin
   Write('Введите число K: ');
   Readln(k);
   InvertDigits(k);
   Writeln('Обратный порядок цифр: ',K);
  end;
end.

program Proc7;

procedure InvertDigits(var K:Integer);

var

TempI:Integer;

begin

TempI:=0;

while (k<>0) do

begin

TempI:=TempI*10+(K mod 10);

K:=K div 10;

end;

K:=TempI;

end;

var

k,I:Integer;

begin

for i:=1 to 5 do

begin

Write('Введите число K: ');

Readln(k);

InvertDigits(k);

Writeln('Обратный порядок цифр: ',K);

end;

end.

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

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

[crayon-67f63ba03eef0149713592 inline="true" ]
procedure InvDigits();//преобразованием в строку
  var
   k,c,i1:integer;
   ks:string;
  begin
    readln(k);
    ks:=inttostr(k)+' ';//добавил в ks лишний элемент сейчас это пробел
    c:=length(ks);
    for i1:=1 to ((c-1) div 2) do
      begin
       ks[c]:=ks[i1];// теперь его используем для промежуточного хранения
       ks[i1]:=ks[c-i1];//перестановка символов
       ks[c-i1]:=ks[c];
      end;
    ks[c]:=' ';//для удаления заполняем пробелом
    k:=strtoint(ks);
    writeln(k);
  end;

var
 i:integer;
begin
  for i:=1 to 5 do InvDigits();  
end.

[crayon-67f63ba03eef0149713592 inline="true" ]

procedure InvDigits();//преобразованием в строку

var

k,c,i1:integer;

ks:string;

begin

readln(k);

ks:=inttostr(k)+' ';//добавил в ks лишний элемент сейчас это пробел

c:=length(ks);

for i1:=1 to ((c-1) div 2) do

begin

ks[c]:=ks[i1];// теперь его используем для промежуточного хранения

ks[i1]:=ks[c-i1];//перестановка символов

ks[c-i1]:=ks[c];

end;

ks[c]:=' ';//для удаления заполняем пробелом

k:=strtoint(ks);

writeln(k);

end;

var

i:integer;

begin

for i:=1 to 5 do InvDigits();

end.

[/crayon]

Ответить

Anton

11.01.2016 в 08:40

Функция не так как в задании.. да и код сложнее…

Ответить

подскажите где у меня ошибка, вроде так же все написано.В процедуре k переворачивает, но в программе выводит то же число что и на ввод идет…

procedure Inv(k:integer);
var
t:integer;
begin
t:=0;
while k<>0 do
begin
  t:=t*10+(k mod 10);
  k:=k div 10;
end;
k:=t;
writeln ('k в процедуре:',k);
end;

var k,t:integer;
begin
for var i:=1 to 5 do begin
readln (k);
Inv (k);
writeln('k на выходе: ',k);
end;
end.

procedure Inv(k:integer);

var

t:integer;

begin

t:=0;

while k<>0 do

begin

t:=t*10+(k mod 10);

k:=k div 10;

end;

k:=t;

writeln ('k в процедуре:',k);

end;

var k,t:integer;

begin

for var i:=1 to 5 do begin

readln (k);

Inv (k);

writeln('k на выходе: ',k);

end;

end.

Ответить

asdf

24.10.2019 в 23:46

а все, вар забыл в процедуре

Ответить

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

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

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

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