KEKC
1

Калькулятор больших чисел целых и вещественных

13.01.2008, 19:08. Показов 7399. Ответов 2
Метки нет (Все метки)

Очень нужно в ближайшее время сделать Калькулятор больших чисел целых и вещественных , операции +, -, /, * Чобы 40 разрядов в числе было , Элементарно для нормальных програмистов
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2008, 19:08
Ответы с готовыми решениями:

Сгенерировать калькулятор целых и вещественных чисел в различных системах счисления
сгенерировать в C# калькулятор целых и вещественных чисел в различных системах счисления

Из N вещественных чисел определить количество чисел, больших своих соседей
Задана последовательность(одномерный массив) из n вещественных чисел. Определить количество чисел,...

Вводится последовательность из N вещественных чисел. Определить наименьшее число, среди чисел больших 20.
Вводится последовательность из N вещественных чисел. Определить наименьшее число, среди чисел...

Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей
Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих...

2
KEKC
13.01.2008, 21:12 2
Если у кого есть исходники на Delfi 7 киньте пожалуйста, ооооочень надо
из интернетов
136 / 33 / 7
Регистрация: 16.01.2008
Сообщений: 392
16.01.2008, 22:45 3
Лучший ответ Сообщение было отмечено как решение

Решение

Вот мой пример калькулятора: Часть кода
Delphi
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
var
  Form1: TForm1;
   x:longint;
   y:longint;
   znak:string;
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.sButton1Click(Sender: TObject);
begin
Sedit1.Text:=('1');
end;
 
procedure TForm1.sButton2Click(Sender: TObject);
begin
sedit1.Text:=('2');
end;
 
procedure TForm1.sButton3Click(Sender: TObject);
begin
sedit1.Text:=('3');
end;
 
procedure TForm1.sButton4Click(Sender: TObject);
begin
sedit1.Text:=('4');
end;
 
procedure TForm1.sButton5Click(Sender: TObject);
begin
sedit1.Text:=('5');
end;
 
procedure TForm1.sButton6Click(Sender: TObject);
begin
sedit1.Text:=('6');
end;
 
procedure TForm1.sButton7Click(Sender: TObject);
begin
sedit1.Text:=('7');
end;
 
procedure TForm1.sButton8Click(Sender: TObject);
begin
sedit1.Text:=('8');
end;
 
procedure TForm1.sButton9Click(Sender: TObject);
begin
sedit1.Text:=('9');
end;
 
procedure TForm1.sButton10Click(Sender: TObject);
begin
sedit1.Text:=('0');
end;
 
procedure TForm1.sButton16Click(Sender: TObject);
begin
sedit1.Text:=FloattostrF(x*y/100,fffixed,15,5);
end;
 
procedure TForm1.sButton11Click(Sender: TObject);
begin
x:=strtoint(sedit1.Text);
znak:='+';
end;
 
procedure TForm1.sButton12Click(Sender: TObject);
begin
X:=strtoint(sedit1.text);
  znak:='-';
end;
 
procedure TForm1.sButton13Click(Sender: TObject);
begin
x:=strtoint(sedit1.Text);
znak:='*';
end;
 
procedure TForm1.sButton14Click(Sender: TObject);
begin
x:=strtoint(sedit1.Text);
znak:='/';
end;
 
procedure TForm1.sButton15Click(Sender: TObject);
begin
Y:=strtoint(sedit1.Text);
if znak='+' then
sedit1.text:=inttostr(x+y);
if znak='-' then
sedit1.Text:=inttostr(x-y);
if znak='%' then
sedit1.Text:=floattostrf(x*y/100,fffixed,15,5);
if znak='/' then
sedit1.Text:=floattostrf(x/y,fffixed,15,5);
if znak='*' then
sedit1.Text:=inttostr(x*y);
end;
 
procedure TForm1.sButton17Click(Sender: TObject);
begin
x:=0;
y:=0;
end;
 
procedure TForm1.sButton18Click(Sender: TObject);
begin
close;
end;
Изображения
Тип файла: jpg pic_17.01.2008_1.42.35.88.jpg (24.3 Кб, 1 просмотров)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2008, 22:45
Помогаю со студенческими работами здесь

Вводится последовательность из N вещественных чисел. Определить наименьшее число, среди чисел больших 20
Вводится последовательность из N вещественных чисел. Определить наименьшее число, среди чисел...

Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К,...

Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К,...

Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b) вещественных чисел от 3х с половиной до 8
помогите решить Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b)...

Калькулятор вещественных чисел
Помогите пожалуйста модифицировать данный калькулятор. Сейчас он работает только для целых чисел,...

Определить сумму вещественных чисел массива больших заданного
Даны натуральное число n и вещественные числа b_1,b_2,…,b_(n.) Определить сумму тех вещественных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru