Строковые типы данных(ошибка в программе)

@Cascada · Регистрация: 10.06.2009

Здравствуйте,вот программка осуществляющая нахождение минимального ничетного числа,меньше длинного целого,но в ней есть ошибка

,программка правильно работает для чисел не содержащих в себе нули,а должна работать и для тех и для других.Помогите пожалуйста исправить ошибку(Delphi).Заранее огромное спасибо

:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var
 n:string;
 Last: byte;
 NNulls: integer;
 i: integer;
 indexLastNull: integer;
begin
 NNulls := 0;
 n := Edit1.Text;
 for i := Length(n) downto 1 do
  if n[i] = '0' then
  begin
   inc(NNulls);
   indexLastNull := i;
  end;
 if NNulls <> 0 then
 begin
  Delete(n, indexLastNull, NNulls);
  Last := StrToInt(n[Length(n)]);
  dec(Last);
  Delete(n, Length(n), 1);
  n := n + IntToStr(Last);
  for i := 0 to NNulls - 1 do
   n := n + '9';
  Edit2.Text := n;
 end
 else
 begin
  Last := StrToInt(n[Length(n)]);
  dec(Last);
  Delete(n, Length(n), 1);
  n := n + IntToStr(Last);
  Edit2.Text := n;
  if n[length(n)] in ['0','2','4','6','8']
  then 
 begin
  Delete(n, indexLastNull, NNulls);
  Last := StrToInt(n[Length(n)]);
  dec(Last);
  Delete(n, Length(n), 1);
  n := n + IntToStr(Last);
  for i := 0 to NNulls - 1 do
   n := n + '9';
  Edit2.Text := n
  end
else StaticText1.Caption:='максимальное нечетное меньшее одц';
end;

@mamedovvms · 25.06.2009, 06:32

я условие не понял , напиши его пожалуйста с примером и полное как оно тебе было дано

@Cascada · 25.06.2009, 07:21 **[ТС]**

я уже писала это условие,вот что получилось.Повторюсь:Написать программу, реализующую решение задания по варианту. Найти максимальное нечетное число меньше ОДЦ.ОченьДлиноеЦелое – это целое число с очень большим количеством знаков (>200) так что операции с этим числом не соответствуют ни одному из существующих стандартных числовых типов.
Т.е мы от данного одц отнимаем еденицу,если последний элемент четный,то отнимаем еще раз и получаем максимальное нечетное,меньшее длинного целого,только когда мы берем число содержащее ноль,у меня происходит ошибка,еденица не отнимается,а наоборот прибавляется некоторое другое число

@mamedovvms · 25.06.2009, 07:39

то есть если тебе дано 2000000000000000000000000000000000
то должно получиться 1999999999999999999999999999999999????

Добавлено через 2 минуты 5 секунд

Сообщение от Cascada

я уже писала это условие,вот что получилось.Повторюсь:

к стати первый раз ты писал что надо найти минимальное нечетное число

@Cascada · 25.06.2009, 08:53 **[ТС]**

то есть если тебе дано 2000000000000000000000000000000000
то должно получиться 1999999999999999999999999999999999????-Да
I am sorry

,да я ошиблась с условием максимального,как в программе написано,я просто мучаю эту задачу очень долго и никак не могу закончить:'(

Добавлено через 1 час 1 минуту 44 секунды
Люди помогите пожалуйста,мне сдавать нужно скоро,а тут такое:'(

@mamedovvms 2921 / 842 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	25.06.2009, 06:32	2
	я условие не понял , напиши его пожалуйста с примером и полное как оно тебе было дано 0

@Cascada 0 / 0 / 0 Регистрация: 10.06.2009 Сообщений: 7
	25.06.2009, 07:21 [ТС]	3
	я уже писала это условие,вот что получилось.Повторюсь:Написать программу, реализующую решение задания по варианту. Найти максимальное нечетное число меньше ОДЦ.ОченьДлиноеЦелое – это целое число с очень большим количеством знаков (>200) так что операции с этим числом не соответствуют ни одному из существующих стандартных числовых типов. Т.е мы от данного одц отнимаем еденицу,если последний элемент четный,то отнимаем еще раз и получаем максимальное нечетное,меньшее длинного целого,только когда мы берем число содержащее ноль,у меня происходит ошибка,еденица не отнимается,а наоборот прибавляется некоторое другое число 0

@mamedovvms 2921 / 842 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	25.06.2009, 07:39	4
	то есть если тебе дано 2000000000000000000000000000000000 то должно получиться 1999999999999999999999999999999999???? Добавлено через 2 минуты 5 секунд Сообщение от Cascada я уже писала это условие,вот что получилось.Повторюсь: к стати первый раз ты писал что надо найти минимальное нечетное число 0

@Cascada 0 / 0 / 0 Регистрация: 10.06.2009 Сообщений: 7
	25.06.2009, 08:53 [ТС]	5
	то есть если тебе дано 2000000000000000000000000000000000 то должно получиться 1999999999999999999999999999999999????-Да I am sorry,да я ошиблась с условием максимального,как в программе написано,я просто мучаю эту задачу очень долго и никак не могу закончить:'( Добавлено через 1 час 1 минуту 44 секунды Люди помогите пожалуйста,мне сдавать нужно скоро,а тут такое:'( 0

Опции темы