Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
1

многоразрядные числа

10.11.2010, 12:19. Просмотров 1545. Ответов 19
Метки нет (Все метки)

Здравствуйте звените за беспокойство не могли бы вы мне помочь с задачей вот программа она выполняет арифметические функции с числами но не выполняет с много разрядными числами помогите мне справиться с этой проблемой, заранее спасибо.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var x,y,f,s,r,p,c:real;
begin
     clrscr;
     write('первое равно - ');read(x);
     write ('второе равно - ');read(y);
     write ('укажите оператор: 1-сумма,2-разность, 3-произведение, 4-деление ');read(f);
s:=x+y;
r:=x-y;
p:=x*y;
c:=x/y;
       if f=1 then writeln ('сумма равна - ',s:2:0);
       if f=2 then writeln ('разность равна - ',r:2:0);
       if f=3 then writeln ('произведение равно - ',p:2:0);
       if f=4 then writeln ('деление равно - ',c:2:20);
readkey;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2010, 12:19
Ответы с готовыми решениями:

многоразрядные числа
Разработать две программы выполнения указанных арифметических операций над многоразрядными числами...

перемножать многоразрядные числа
как перемножать многоразрядные числа..?

многоразрядные числа
Перевести целое число n, произвольной длины, из 10-ричной системы счисления в 2-ую

Многоразрядные числа
Ввести многоразрядное число как строку и сформировать из него массив целых четырёхзначных...

Обратная Польская запись, многоразрядные числа
Здраствуйте! Решил написать калькулятор, использовал обратную польскую запись. С одноразрядными...

19
mamedovvms
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
10.11.2010, 12:21 2
а задание вообще какое?? Как оно звучит изначально???
0
Puporev
Модератор
58075 / 44185 / 30524
Регистрация: 18.05.2008
Сообщений: 105,794
10.11.2010, 12:23 3
Цитата Сообщение от Drag92 Посмотреть сообщение
но не выполняет с много разрядными числами
Так это мил человек нужно специальные процедуры писать для работы с длинными числами, называется длинная арифметика. Читайте на эту тему, думайте, пишите, не ждите что это Вам кто-то напишет, это очень много нужно всего писать.
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 12:24  [ТС] 4
задание арифметические опирации с многоразрядными цислами
0
10.11.2010, 12:24
mamedovvms
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
10.11.2010, 12:26 5
ну то что вы сделали совсем не то, сложение и вычитание конечно проблем больших не дадут, но вот с делением и умножением нужно будет помучиться
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 12:26  [ТС] 6
я недавно списал задачу с учебника Окулова но она там не работает(
0
mamedovvms
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
10.11.2010, 12:30 7
НУ списать иногда мало, иногда нужно хотя бы в ней разобраться
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 12:32  [ТС] 8
вот именно что я там вообще почти не че не понял
0
Puporev
Модератор
58075 / 44185 / 30524
Регистрация: 18.05.2008
Сообщений: 105,794
10.11.2010, 12:32 9
Да там наверняка только алгоритмы, максимум процедуры. Да и деления наверняка нет, это самое крутое...
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 12:33  [ТС] 10
а где эта тема с многоразрядными числами на сайте?
0
Puporev
Модератор
58075 / 44185 / 30524
Регистрация: 18.05.2008
Сообщений: 105,794
10.11.2010, 12:35 11
Зайди в Поиск, выбери расширенный поиск, раздел Pascal ключевые слова длинная арифметика.
Если сразу зайдешь по ссылке, то повезло...
http://www.cyberforum.ru/search.php?searchid=2228255
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 12:59  [ТС] 12
помогите хоть ввод с клавеатуры и вывод многоразрядный чисел сделать плз
0
Puporev
Модератор
58075 / 44185 / 30524
Регистрация: 18.05.2008
Сообщений: 105,794
10.11.2010, 13:29 13
Числа можно представлять в виде строк, можно в виде массивов цифр, второе лучше, поскольку строку все равно придется переводить в массив цифр или проводить постоянные преобразования символов.
Вот пример на сложение. Размер массива до 255, но можно взять и 1000, разницы нет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
uses crt;
var a,b,c:array[byte] of byte;
    na,nb,i,j,n,p:byte;
begin
clrscr;
randomize;
write('Kolichestvo znakov  chisla A na=');
readln(na);
write('Kolichestvo znakov chisla B nb=');
readln(nb);
writeln('Chislo A:');
a[1]:=random(9)+1;
for i:=2 to na do
a[i]:=random(10);
for i:=1 to na do
write(a[i]);
writeln;
writeln('Chislo B:');
b[1]:=random(9)+1;
for i:=2 to nb do
b[i]:=random(10);
for i:=1 to nb do
write(b[i]);
writeln;
if na>nb then
  begin
    n:=na;
    for i:=1 to na-nb do
      begin
        nb:=nb+1;
        for j:=nb downto 2 do
        b[j]:=b[j-1];
        b[1]:=0;
      end;
   end
else if nb>na then
   begin
     n:=nb;
     for i:=1 to nb-na do
       begin
         na:=na+1;
         for j:=na downto 2 do
         a[j]:=a[j-1];
         a[1]:=0;
       end;
    end
else if nb=na then n:=na;
p:=0;
for i:=n downto 1 do
  begin
   c[i]:=a[i]+b[i]+p;
   if (c[i]>9)and(i>1) then
      begin
       c[i]:=c[i] mod 10;
       p:=1;
      end
    else p:=0;
  end;
if c[1]>9 then
  begin
    c[1]:=c[1] mod 10;
    n:=n+1;
    for j:=n downto 2 do
    c[j]:=c[j-1];
    c[1]:=1;
  end;
writeln('Chislo C:');
for i:=1 to n do
write(c[i]);
readln
end.
Добавлено через 1 минуту
А по ссылке вы не смотрели, значит лодырь, поэтому больше мы не общаемся.
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 13:30  [ТС] 14
А по ссылке вы не смотрели, значит лодырь, поэтому больше мы не общаемся.
я по ссылки смотрел там есть почти все но мне надо отдельно ввод с клавиатуры и вывод
0
Puporev
Модератор
58075 / 44185 / 30524
Регистрация: 18.05.2008
Сообщений: 105,794
10.11.2010, 13:32 15
ввод с клавиатуры и вывод
Что, никогда массив не вводили?
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 13:33  [ТС] 16
массив вводил но большое число не получается у меня загнать в массив я просто этого не разу не делал
0
Puporev
Модератор
58075 / 44185 / 30524
Регистрация: 18.05.2008
Сообщений: 105,794
10.11.2010, 13:34 17
Цитата Сообщение от Drag92 Посмотреть сообщение
но большое число не получается у меня загнать в массив я
var a:array[1..1000] of byte;
заполняешь массив цифрами и будет длинное число.
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 13:38  [ТС] 18
ну а как он тогда потом будет делить и умножать?

Добавлено через 3 минуты
а можно сначало ввести число а потом загнать его в массив?
0
Puporev
Модератор
58075 / 44185 / 30524
Регистрация: 18.05.2008
Сообщений: 105,794
10.11.2010, 13:41 19
Drag92,
Сложение, вычитание, умножение и деление выполняется "столбиком", как в начальных классах. Вообще почитай что-то, а то знаний 0 и чего-то спрашиваешь.
Найди по той ссылке тему, где прикрепил архив с умножением.

Добавлено через 52 секунды
Drag92, Ты тупой? Если можно было бы ввести число из 1000 знаков, то нафига из него массив делать?

Добавлено через 51 секунду
Drag92, Одной темы нет, их наверное десятка 3, я же сказал иди в поиск и ссылку дал.

Добавлено через 20 секунд
http://www.cyberforum.ru/post727698.html
0
Drag92
1 / 1 / 0
Регистрация: 22.05.2010
Сообщений: 87
10.11.2010, 13:41  [ТС] 20
а без оскорблений не как или обосрать надо?
я тебе че отличный программист чтоли?
0
10.11.2010, 13:41
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2010, 13:41

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

Quartus, многоразрядные слова (6*3)
Синтезировать схему запоминающего устройства для нескольких многоразрядных слов на базе ячейки....

Даны натуральные числа M, N. Поменять одну из цифр первого числа с цифрой второго числа, чтобы получившиеся числа были взаимно простыми
Даны натуральные числа M, N. Поменять одну из цифр первого числа с цифрой второго числа, чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.