
	Библиотека
	Дневники
	Фотогалереи
	Легкий форум
	Архив
	Поиск

	Здравствуйте Гость (Вход\|Регистрация)

← SMS: "ост текст сообщения" на номер 4403 (9 руб)

Студенческий форум Орла Ostudent.ru -> Техника молодежи -> Компьютеры, интернет, игры

Страницы: (3) [1] 2 3 ( Перейти к первому непрочитанному сообщению )

turbo pascal, длинная арифметика

Подписка на тему | Сообщить другу | Версия для печати

Dain Ironfoot	9.06.2007 - 16:26 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	Может у кого есть процедура "длинное вычитание" вида : procedure sub(a,b:string; var c: string); ?

anDRum	9.06.2007 - 16:49 (ссылка на это сообщение)
Аспирант Профиль Группа: Пользователи Сообщений: 103 Регистрация: 29.03.2007 Репутация: 7 Место учебы: Орёл ГТУ	ну а самому написать не вариант, не? там просто всё. накрайняк окулова почитай.

KostyaN	9.06.2007 - 18:18 (ссылка на это сообщение)
Кандидат наук Профиль Группа: Пользователи Сообщений: 879 Регистрация: 15.09.2006 Репутация: 37 Место учебы: -	могу на С скинуть в виде классов подойдет?

NEFFboy	9.06.2007 - 19:05 (ссылка на это сообщение)
Кандидат наук Профиль Группа: Пользователи Сообщений: 537 Регистрация: 5.01.2007 Репутация: 25 Место учебы: ПТУ	а чего она делать должна? возвращать строку, которая содержит все символы из А, что не содержатся в В ?

Dain Ironfoot	9.06.2007 - 21:33 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	anDRum советчег... KostyaN не нужен код на паскале NEFFboy вычитает из числа а число б

whisk	9.06.2007 - 21:44 (ссылка на это сообщение)
Уважаемый Кандидат наук Профиль Группа: Пользователи Сообщений: 975 Регистрация: 29.03.2005 Репутация: 87 Место учебы: ОрёлГТУ	Dain Ironfoot лабораторные и контрольные выдаются для самостоятельной работы за это время можно было уже и литературу найти, и написать

Dain Ironfoot	9.06.2007 - 22:02 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	whisk а не подскажите откуда такие смышленные ,а главное догадливые берутся ?

whisk	9.06.2007 - 22:05 (ссылка на это сообщение)
Уважаемый Кандидат наук Профиль Группа: Пользователи Сообщений: 975 Регистрация: 29.03.2005 Репутация: 87 Место учебы: ОрёлГТУ	Dain Ironfoot ты еще долго здесь бездельничать будешь, вместо того, чтобы задание делать?

Dain Ironfoot	9.06.2007 - 22:08 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	whisk вся ночь впереди я не тороплюсь...

Pomawka	9.06.2007 - 22:15 (ссылка на это сообщение)
Младший научный сотрудник Профиль Группа: Пользователи Сообщений: 457 Регистрация: 12.02.2006 Репутация: 28 Место учебы: ОГУ ФизМат!!!!! ужо в 2009	а ты на кого учишься? правильно сказал anDRum это не сложно.

NEFFboy

9.06.2007 - 22:15 (ссылка на это сообщение)

Кандидат наук

Профиль
Группа: Пользователи
Сообщений: 537
Регистрация: 5.01.2007
Репутация: 25

Место учебы: ПТУ

вот:

Код

procedure sub(a,b:longint; var c:longint);
var k,i,p:longint;
begin
fillchar(c,sizeof(c),0);
if a[0]>b[0] then k := a[0] else k := b[0];
p := 0;
for i := 1 to k do
begin
c[i]:=a[i]-b[i]-p;
if c[i]<0 then
begin
p := 1;
inc(c[i],osn);
end
else p:=0;
end;
for i := k downto 1 do
if c[i]<>0 then break;
c[0]:=i;
end;

Dain Ironfoot	9.06.2007 - 22:34 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	NEFFboy спс за помощь но это не то..надо именно стринги вычитать

NEFFboy	9.06.2007 - 22:39 (ссылка на это сообщение)
Кандидат наук Профиль Группа: Пользователи Сообщений: 537 Регистрация: 5.01.2007 Репутация: 25 Место учебы: ПТУ	Dain Ironfoot, со строками, все так же. только изменить так. c[i] := chr(ord(a[i])-ord(b[i])-p) и chr(inc(ord(c[i]),osn)) вроде все. P.S. спасибо репутацию не повышает =)

Scraber

9.06.2007 - 23:36 (ссылка на это сообщение)

Аспирант

Профиль
Группа: Пользователи
Сообщений: 210
Регистрация: 3.09.2005
Репутация: 1

Место учебы: шк. № 3 (осьми классник) :)

NEFFboy, 255 разрядные числа пади не посчитает!!! И a, b, c полюбому string должны быть!!! Учитель наверное проверять будет!!

Код

procedure sub(a, b : string; var c : string);
var
r1, r2, r3, osh, j, k, l, f : integer;
p : string[1]; t : char;
temp : string;
begin
k := 0;
if length(a) >= length(b) then
begin
for j := length(a) downto 2 do
begin
val(a[j], r1, osh);
val(b[length(b)-k], r2, osh);
inc(k);
if r1 < r2 then
begin
inc(r1,10);
str(r1-r2, p);
c := c + p;
val(a[j-1], r3, osh);
if r3 <> 0 then
begin
str(r3-1, p);
insert(p, a, j-1); delete(a, j, 1);
end
else
begin
l := j-1;
while a[l] = '0' do
dec(l);
val(a[l], r3, osh);
str(r3-1, p);
insert(p, a, l); delete(a, l+1, 1);
for f := l+1 to j-1 do
a[f] := '9';
end;
end
else
begin
str(r1-r2,p);
c := c + p;
end;
end;
c := c + a[1];
end
else
begin
temp := a; a := b; b := temp;
for j := length(a) downto 2 do
begin
val(a[j], r1, osh);
val(b[length(b)-k], r2, osh);
inc(k);
if r1 < r2 then
begin
inc(r1,10);
str(r1-r2, p);
c := c + p;
val(a[j-1], r3, osh);
if r3 <> 0 then
begin
str(r3-1, p);
insert(p, a, j-1); delete(a, j, 1);
end
else
begin
l := j-1;
while a[l] = '0' do
dec(l);
val(a[l], r3, osh);
str(r3-1, p);
insert(p, a, l); delete(a, l+1, 1);
for f := l+1 to j-1 do
a[f] := '9';
end;
end
else
begin
str(r1-r2,p);
c := c + p;
end;
end;
c := c + a[1];
end;
end;

с, потом в обратном порядке вывадить надо!!!

Не критиковать

сделано на скорую руку лишь бы считала

, по элсу идет копи пастом

Scraber	9.06.2007 - 23:40 (ссылка на это сообщение)
Аспирант Профиль Группа: Пользователи Сообщений: 210 Регистрация: 3.09.2005 Репутация: 1 Место учебы: шк. № 3 (осьми классник) :)	ЗЫ: простое вычитание столбиком

???	9.06.2007 - 23:57 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 73 Регистрация: 5.04.2007 Репутация: 4 Место учебы: ГТУ	Scraber ты монстер

NEFFboy

10.06.2007 - 07:03 (ссылка на это сообщение)

Кандидат наук

Профиль
Группа: Пользователи
Сообщений: 537
Регистрация: 5.01.2007
Репутация: 25

Место учебы: ПТУ

Цитата (Scraber)

NEFFboy, 255 разрядные числа пади не посчитает!!! И a, b, c полюбому string должны быть!!! Учитель наверное проверять будет!!

посчитает по 100-200 (ну или около того) цифр =)

Код

procedure sub(a,b:string; var c: string);
var i:integer
z:integer;
k:boolean;
l:string;
begin
k:=false;
while (length(a)<max(length(a),length(b)))or(length(b)<max(length(a),length(b))) do if length(a)<max(length(a),length(b)) then a:='0'+a else if length(b)<max(length(a),length(b)) then b:='0'+b;
for i:=length(a) downto 1 do if ord(a[i])<ord(b[i]) then break;
if i<length(a)+1 then begin l:=a;a:=b;b:=l;c[255-length(a)]:='-';end;
for i:=length(b) downto 1 do
begin
if k then
begin
dec(byte(a[i]));if a[i]<ord('0') then a[i]:=ord('9') else k:=false;
end;
if ord(b[i])>ord(a[i]) then
begin
k:=true;
c[i]:=ord(a[i])-ord(b[i])+ord('9')+1;
end else c[i]:=ord(a[i])-ord(b[i])+ord('0');
end;
end;

Dain Ironfoot	10.06.2007 - 09:20 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	а что такое max ?

Dain Ironfoot	10.06.2007 - 09:37 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	выбирает наибольшее из двух ?но такой функции нету..

Dain Ironfoot	10.06.2007 - 09:49 (ссылка на это сообщение)
Студент Профиль Группа: Пользователи Сообщений: 37 Регистрация: 21.02.2007 Репутация: нет Место учебы: ОрелГТУ	еще запинается на этой строке :if a[i]<ord('0') then a[i]:=ord('9') эрор № 26

Быстрый ответ

Информация о Госте

Введите Ваше имя

Кнопки кодов

Для вставки цитаты, выделите нужный текст и
НАЖМИТЕ СЮДА

Введите сообщение

Смайлики






Показать всё

· Проверить длину сообщения ·
· Помощь по кодам форума ·

Опции сообщения

Включить смайлики?
Включить подпись?
Использовать AJAX?

« Предыдущая тема | Компьютеры, интернет, игры | Следующая тема »

Страницы: (3) [1] 2 3

Студенческий клуб ostudent.ru и его создатели не несут ответственности за достоверность самостоятельно размещаемой посетителями сайта информации и не могут подтвердить или опровергнуть её.