Преобразовать двузначное число методом перестановки

@Anton96-20 · Регистрация: 05.11.2015

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

Посмотрите где ошибка!!!
Ввожу минус он выдает какую то еристь.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
n,res:byte;
begin
n:=Strtoint(edit1.text);
if n<0 then
begin
n:=abs(n);
res:=10*(n mod 10)+(n div 10);
res:=-res;
end
else
res:=10*(n mod 10)+(n div 10);
Label3.Caption:=(Inttostr(res));
 
end;
 
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var s:string;
begin
s:=edit1.Text;
if pos('-',s)<>0 then edit1.MaxLength:=3
else
edit1.MaxLength:=2;
end;
 
end.

@qwertehok · 06.11.2015, 20:35

я вам уже написал что byte не может быть отрицательным числом

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

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	06.11.2015, 20:35	2
	я вам уже написал что byte не может быть отрицательным числом не надо копировать код не понимая для чего он предназначен - вы просили вам перестановку сделать, он сделал. нигде не было сказано что ваше число может быть отрицательным 1

Опции темы