Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 07.06.2016
Сообщений: 40
1

Арифметические действия над обыкновенными дробям

11.06.2016, 22:01. Показов 1314. Ответов 1
Метки нет (Все метки)

Можно ли реализовать в Delphi арифметическое действие над обыкновенными дробями и если можно то как?
В форме я создал три ячейки Edit1, Edit2 и Edit3 + кнопка Button1 для обработки действия сложения обыкновенных дробей введенных в Edit1 и Edit2 и вывода результата сложения в Edit3. К примеру: вводим в ячейку Edit1 дробь 1/2, а в ячейку Edit2 3/4 и при нажатии на кнопку в Edit3 выводится результат 5/4
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2016, 22:01
Ответы с готовыми решениями:

Арифметические действия над массивами
Имеется файл, в котором содержится размерность массива и его элементы. Вычислить: 1) произведение...

Модуль: арифметические действия с обыкновенными дробями
заранее огромное спасибо, я в паскале не очень. Создать модуль, дополняющий математические...

Арифметические действия над числами. Выбор номера действия. Перевод с Pascal
Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3...

Арифметические действия над числами
3. Даны два действительных положительных числа. Арифметические действия пронумерованы (1-сложение,...

1
48 / 48 / 34
Регистрация: 16.02.2016
Сообщений: 277
13.06.2016, 18:04 2
Лучший ответ Сообщение было отмечено Free1 как решение

Решение

вот простенький пример сложения:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var b1,b2,b3,b4,b5,b6:byte;
begin
  b1:=StrToInt(Edit1.Text);
  b2:=StrToInt(Edit2.Text);
  b3:=StrToInt(Edit3.Text);
  b4:=StrToInt(Edit4.Text);
  if b2=b4 then
    begin
      b5:=b1+b3;
      b6:=b2;
      Edit5.Text:=IntToStr(b5);
      Edit6.Text:=IntToStr(b6);
    end
  else
    begin
      b5:=b1*b4+b2*b3;
      b6:=b2*b4;
      Edit5.Text:=IntToStr(b5);
      Edit6.Text:=IntToStr(b6);
    end;
end;
пример работы программы:
Миниатюры
Арифметические действия над обыкновенными дробям  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.06.2016, 18:04

Арифметические действия над числами
Арифметические действия над числами обозначены следующими символами: «+» − сложение, «-»...

Арифметические действия над числами
Помогите пожалуйтса решить задачу,я всю ночь сидел парился над задачой и ничего не...

Арифметические действия над 2 числами
Составить программу в Free Paskal которая должна запрашивать у пользователя 2 целых числа и затем...

Арифметические действия над числами
Арифметические действия над числами пронумерованы в следующем порядке: 1 - сложение, 2 - вычитание,...

Арифметические действия над числами
Арифметические действия над числам пронумерованы следующим образом...

Арифметические действия над матрицами
Помогите, пожалуйста, исправить программу. Она должна производить действия над матрицами по такой...


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

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

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