Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
SerVilkov123
0 / 0 / 0
Регистрация: 18.05.2017
Сообщений: 10
1

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

02.07.2018, 17:17. Просмотров 562. Ответов 1
Метки нет (Все метки)

Пожалуйста помогите.
Составить программу, которая вычисляет сумму, разность, произведение двух чисел в зависимости от выбора операции. Значения чисел задать с помощью однострочного текстового редактора Edit.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.07.2018, 17:17
Ответы с готовыми решениями:

Составить алгоритм и программу, которая вычисляет сумму (c1=a+b), разницу (c2=a-b), произведение (c3=a*b) двух чисел
Здравствуйте, помогите решить контрольную по Pascal 3) Составить алгоритм и программу, которая...

Написать программу, которая вычисляет сумму, разность, частное и произведение
Написать программу, которая вычисляет сумму, разность, частное и произведение двух введенных...

написать программу которая вычисляет сумму и произведение N чисел
1) написать программу которая вычисляет сумму и произведение N чисел (N ввести с клавиатуры)...

Составить программу которая вычисляет сумму 5 чисел
Нужна помощь очень очень!!!:( Составить программу которая вычисляет сумму 5 чисел, которые...

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел.
Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих...

1
Puporev
Модератор
58911 / 44596 / 30780
Регистрация: 18.05.2008
Сообщений: 106,850
02.07.2018, 18:09 2
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
procedure TForm1.Button1Click(Sender: TObject);
var x,y,s:double;
    k:integer;
begin
val(Edit1.Text,x,k);
if k<>0 then
 begin
  ShowMessage('Вы неверно ввели х');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,y,k);
if k<>0 then
 begin
  ShowMessage('Вы неверно ввели y');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
case RadioGroup1.ItemIndex of
0:s:=x+y;
1:s:=x-y;
2:s:=x*y;
else ShowMessage('Вы не выбрали фигуру');
end;
ShowMessage('Результат='+formatfloat('0.00',s));
 
end;
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2018, 18:09

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

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

Напишите программу, которая вычисляет сумму и произведение целых чисел, поданных на её вход
Напишите программу, которая вычисляет сумму и произведение целых чисел, поданных на её вход. Ввод...

Написать программу,которая будет находить: cумму,разность и произведение двух целых чисел
Написать программу,которая будет находить: cумму,разность и произведение двух целых чисел.


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

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

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