Решаем задачи Абрамян на Паскале. 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.

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

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

[crayon-673cffd2351b2033504622 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.

Ответить

asdf

24.10.2019 в 23:46

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

Ответить

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

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

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

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