Строковые типы данных(длинное целое)

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

Товарищи помогите пожалуйста,осталось сдать одну единственную задачку,а я никак не могу ее сделать
Задача:Для ОченьДлинногоЦелого числа решить задание по варианту. Решение оформить в виде функции. ОченьДлинноеЦелое – неотрицательное число состоит из большого количества цифр (>100), так что операции с такими числами не поддерживаются ни в одном числовом типе данных.Найти максимальное нечетное число, меньшее данного ОДЦ.
Алгоритм решения:
1)Организовать ввод длинного целого(осуществлен)
2)Отнять от этого числа еденицу и проверить на четность,если оно четное,то еще раз отнять единицу
У меня проблемы с кусочками программы,где надо отнять 1 и разделить длинное целое на 2,напишите пожалуйста программку для реализации данных операций(Delphi)
Было предложение по поводу деления забить число в массив,но я не знаю как это реализовать!!((

@Puporev · 13.06.2009, 12:28

Отнять от этого числа еденицу и проверить на четность,если оно четное,то еще раз отнять единицу

Это еще интересно зачем?
Тема строковые типы данных. Число-строка. Если последний символ s[length(s)] in ['0','2','4','6','8'] то четное.
Максимальное, у которого length больше, если одинаковые, то у кого s[1] больше.

27.11.2012, 10:04

Насчёт точного деления на 2 не знаю но если поможет то вот код деления ОДЦ на короткое Целоеи в результате остается целая часть от деления) Код для Delphi
Var
Kc,i,ost,n,m,a,l,b:integer;
ODC,F:AnsiString;
S,S1:String;
Begin
n:=Length(Edit1.Text);
Kc:=strtoint(Edit1.Text);
ODC:=Memo1.Text;
m:=Length(ODC);
i:=1;
F:='';
If ODC[1] < Edit1.Text[1] Then
inc(n);
S:=copy(ODC,i,n);
While i<=m-1 Do
Begin
Val(S,a,l);
b:=a div Kc;
Str(b,S1);
F:=f+S1;
ost:=a-b*Kc;
Str(ost,S);
I:=n;
S:=S+ODC[i+1];
Inc(n);
end;
Label4.Caption:=F;
end;

@Cascada 0 / 0 / 0 Регистрация: 10.06.2009 Сообщений: 7
		1
	Строковые типы данных(длинное целое) 13.06.2009, 06:10. Просмотров 1945. Ответов 2 Метки нет (Все метки) Товарищи помогите пожалуйста,осталось сдать одну единственную задачку,а я никак не могу ее сделать Задача:Для ОченьДлинногоЦелого числа решить задание по варианту. Решение оформить в виде функции. ОченьДлинноеЦелое – неотрицательное число состоит из большого количества цифр (>100), так что операции с такими числами не поддерживаются ни в одном числовом типе данных.Найти максимальное нечетное число, меньшее данного ОДЦ. Алгоритм решения: 1)Организовать ввод длинного целого(осуществлен) 2)Отнять от этого числа еденицу и проверить на четность,если оно четное,то еще раз отнять единицу У меня проблемы с кусочками программы,где надо отнять 1 и разделить длинное целое на 2,напишите пожалуйста программку для реализации данных операций(Delphi) Было предложение по поводу деления забить число в массив,но я не знаю как это реализовать!!(( 0

@Puporev Модератор 62274 / 46551 / 32089 Регистрация: 18.05.2008 Сообщений: 112,532
	13.06.2009, 12:28	2
	Отнять от этого числа еденицу и проверить на четность,если оно четное,то еще раз отнять единицу Это еще интересно зачем? Тема строковые типы данных. Число-строка. Если последний символ s[length(s)] in ['0','2','4','6','8'] то четное. Максимальное, у которого length больше, если одинаковые, то у кого s[1] больше. 1

ShadowBosss
	27.11.2012, 10:04	3
	Насчёт точного деления на 2 не знаю но если поможет то вот код деления ОДЦ на короткое Целоеи в результате остается целая часть от деления) Код для Delphi Var Kc,i,ost,n,m,a,l,b:integer; ODC,F:AnsiString; S,S1:String; Begin n:=Length(Edit1.Text); Kc:=strtoint(Edit1.Text); ODC:=Memo1.Text; m:=Length(ODC); i:=1; F:=''; If ODC[1] < Edit1.Text[1] Then inc(n); S:=copy(ODC,i,n); While i<=m-1 Do Begin Val(S,a,l); b:=a div Kc; Str(b,S1); F:=f+S1; ost:=a-b*Kc; Str(ost,S); I:=n; S:=S+ODC[i+1]; Inc(n); end; Label4.Caption:=F; end;

Опции темы