0 / 0 / 0
Регистрация: 22.12.2019
Сообщений: 9

Составить алгоритм для нахождения произведения двух наименьших чисел из трех заданных

22.12.2019, 19:23. Показов 3558. Ответов 7

Студворк — интернет-сервис помощи студентам
10. Составить алгоритм для нахождения произведения двух наименьших чисел из трех заданных.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.12.2019, 19:23
Ответы с готовыми решениями:

Программа для нахождения произведения двух наименьших из трех различных чисел
Составить программу нахождения произведения двух наименьших из трех различных чисел. На C#

Составте программу нахождения произведения двух наименьших из трех различных чисел
Составить программу нахождения произведения двух наименьших из трех различных чисел.

Составьте алгоритм и программу нахождения произведения двух наибольших из трех введенных чисел
Составьте алгоритм и программу нахождения произведения двух наибольших из трех введенных чисел. хелп :с

7
Модератор
 Аватар для D1973
9908 / 6445 / 2455
Регистрация: 21.01.2014
Сообщений: 27,358
Записей в блоге: 3
23.12.2019, 08:22
Найти наибольшее. Остальные 2 будут наименьшими - их и перемножить.
0
0 / 0 / 0
Регистрация: 22.12.2019
Сообщений: 9
23.12.2019, 10:35  [ТС]
мне надо это сделать в delphi 7
0
Модератор
 Аватар для D1973
9908 / 6445 / 2455
Регистрация: 21.01.2014
Сообщений: 27,358
Записей в блоге: 3
23.12.2019, 10:58
Ну так делайте... Что Вас останавливает?
0
0 / 0 / 0
Регистрация: 22.12.2019
Сообщений: 9
24.12.2019, 18:41  [ТС]
Цитата Сообщение от D1973 Посмотреть сообщение
Ну так делайте... Что Вас останавливает?
Простите если я не так выразился. мне нужна помощь т.к. я в программировании не очень (
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
25.12.2019, 09:42
Цитата Сообщение от D1973 Посмотреть сообщение
Найти наибольшее
Найти наибольшее из трёх чисел
0
 Аватар для AHBAR
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,141
25.12.2019, 13:56
Лучший ответ Сообщение было отмечено Vladimir000001 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses math;
...
var
p,a,b,c:integer;
begin
a := StrToInt(Edit1.text);
b := StrToInt(Edit2.text);
c := StrToInt(Edit3.text);
 
if a = Max(Max(a,b),c) then p := b * c else
if b = Max(Max(a,b),c) then p := a * c else
   p := a * b;
 
ShowMessage('Произведение=' + IntToStr(p));
1
0 / 0 / 0
Регистрация: 22.12.2019
Сообщений: 9
25.12.2019, 18:22  [ТС]
спасибо большое!!! ты меня очень сильно выручил
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.12.2019, 18:22
Помогаю со студенческими работами здесь

Напишите программу для нахождения произведения двух наибольших из трех веденных с клавиатуры чисел
Напишите программу для нахождения произведения двух наибольших из трех веденных с клавиатуры чисел И дайте пожалуйста объясения к...

Составить программу определения произведения трех наименьших из 4 чисел X, Y, Z, T
Составить программу определения произведения трех наименьших из 4 чисел X,Y,Z,T.

Составить программу определения произведения трех наименьших из 4 чисел X,Y,Z,T
Составить программу определения произведения трех наименьших из 4 чисел X,Y,Z,T. Проверить работу программы при нескольких наборов чисел.

Нахождение суммы и произведения двух наименьших чисел из трёх разных
Составить программу нахождения суммы произведения двух наименьших чисел из трёх разных

Найти произведение двух наименьших из трёх заданных чисел
Даны три числа. Найти произведение двух наименьших из них.


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

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

Новые блоги и статьи
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru