Числа в delphi

@tipo4ek · Регистрация: 12.10.2010

Author24 — интернет-сервис помощи студентам

Народ . Есть такое задание . Нужно поменять левую и правую половины натурального числа Н-ого порядка (Строками пользоваться нельзя). Например :
123456 результат должен быть такой 456123
1234 - 3421
и т.д.
Вот мой код :

Delphi

 function tchisl.LeftRight;
  var
s:string;
  a:array of integer;
j, buf, k,i:integer;
    begin
    i:=1;
    s:='';
    j:=1;
  if chislo=0 then result:=0
    else
   while Chislo>0  do
   begin
  k:=chislo mod 10;
 chislo := chislo div 10 ;
 setlength(a,i+1);
 a[i]:=k;
 inc(i);
    end;
  if length(a)=1 then
  result:=a[1]
  else
for i:=1 to ((high(a) div 2)) do
begin
buf:=a[i];
a[i]:=a[(high(a) div 2)+j];
a[(high(a) div 2)+j]:=buf ;
inc(j);
end;
for i:=1 to high(a) do
s:=s+inttostr(a[i]);
result:=strtoint(s);
    end;

Но получается не то . Подскажите , как нужно правильно это написать ?

@Puporev · 14.02.2011, 07:05

Pascal

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var n,m,k,s:integer;
    i,p:byte;
begin
write('n=');
readln(n);
m:=n;  //дубль числа
p:=0;//количество цифр
while m>0 do
 begin
  m:=m div 10;
  p:=p+1;
 end;
k:=p div 2;//половина
s:=1; //посчитаем 10^k
for i:=1 to k do
s:=s*10;
if p mod 2=0 then //если кол.цифр четное
m:=(n div s)+(n mod s)*s //переставим половинки
else //нечетное, вычтем левую и правую части, переставим и прибавим
m:=n-(n div (s*10))*s*10-(n mod s)+(n div (s*10))+(n mod s)*10*s;
write('m=',m);
readln
end.

	14.02.2011, 07:05