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

Арифметические операции над двумя числами

10.01.2010, 15:23. Просмотров 2016. Ответов 1
Метки нет (Все метки)

Требуется вывести на экран два произвольных числа, и произвести с их помощью все возможные операции, т.е деление, умножение, сумму и разность, через оператор CASE.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2010, 15:23
Ответы с готовыми решениями:

Арифметические опреции над целыми числами
Привет ))) Народ, оч нужно решить задачку((( не как не могу сделать эту лабу... суть такова......

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

Написать программу, которая выводит пример математического действия(*,+,-,/) над двумя числами
Написать программу, которая выводит пример математического действия(*,+,-,/) над двумя числами,...

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

1
2 / 2 / 1
Регистрация: 01.10.2009
Сообщений: 53
10.01.2010, 15:28 2
Лучший ответ Сообщение было отмечено aidar123 как решение

Решение

Впринципе очень легко, могу вам набросать.

Сделал через ComboBox

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
 
 
    { Public declarations }
  end;
 
var
   Form1: TForm1;
   a, b, z : real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a := random(100);
b := random(100);
Label1.Caption := FloatToStr(a);
Label2.Caption := FloatToStr(b);
 
case ComboBox1.ItemIndex of
0: z := a + b;
1: z := a - b;
2: z := a * b;
3: try
    z := a / b;
   except
    ShowMessage('На ноль делить не льзя');
 end;
end;
Label3.Caption:= FloatToStr(a) +'  '+ ComboBox1.Items[ComboBox1.ItemIndex]
+'  '+FloatToStr(b)+'  '+'='+'  '+FloatToStr(z);
end;
 
 
end.
1
Вложения
Тип файла: rar case.rar (6.9 Кб, 56 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2010, 15:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Арифметические операции над значениями двух разных таблиц и запись итога в одну из них
Добрый день. Табл.1 Табл.1 ID X 1 X1 Табл.2

С помощью операторов выбора реализовать арифметические операции над двумя числами
Помогите пожалуйста. Надо Вести с клавиатуры 2 числа с помощью операторов выбора реализовать...

Арифметические операции над числами
Пытаюсь написать программу, производящую арифметические операции над числами, которые не входят в...

Арифметические операции над числами
Доброго вечера.Помогите-помогите,завтра нужно сдать,иначе не видать зачета( нужно написать...

Арифметические операции над числами
Пользователь вводит с клавиатуры два целочисленных значения: X и Y. Рассчитать сумму X+Y и...

Выполнить арифметические операции (+, *, /) над двумя переменными
Нужно решить математическую задачу с помощью средств ассмеблера для курсовой работы пользуюсь...


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

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

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