Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2019, 14:36   #1
Максим2712
Новичок
Джуниор
 
Регистрация: 18.03.2019
Сообщений: 3
Радость Путаница в выводе программы

Нужна помощь в задаче, сама задача звучит так - Если сумма трёх действительных чисел x,y,z меньше 1 то наименьшее из трёх чисел заменить полусуммой двух других, в противном случае заменить меньшее из x и y полусуммой оставшихся значений. Вот код на Delphi 7 -
procedure TForm3.Button1Click(Sender: TObject);
var x,y,z:real;
begin
x:=StrToFloat (Edit1.Text);
y:=StrToFloat (Edit2.Text);
z:=StrToFloat (Edit3.Text);
if ((x+y+z)<1) then
begin
if ((x<y) and (x<z)) then
x:=(y+z)/2
else
begin
if ((y<x) and (y<z)) then
else
z:=(y+x)/2;
end;
end
else
begin
if (x<z) then
x:=(y+z)/2
else
y:=(x+z)/2;
end;
Memo2.Lines.Add(' x = ' + FloatToStr(x) + ' y = ' + FloatToStr(y) + ' z = ' + FloatToStr(z))

end;

end.
Проблема в том что при вводе чисел x,y,z он путает y и z местами. Как исправить? Напишите весь код в исправленном виде люди добрые, буду очень благодарен за помощь)
Максим2712 вне форума Ответить с цитированием
Старый 18.03.2019, 14:41   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Но код же делает немного не то, что заявлено...
Код:
if ((y<x) and (y<z)) then
else
Так если истинно, то ... что?

Цитата:
Сообщение от Максим2712 Посмотреть сообщение
заменить меньшее из x и y
и
Код:
if (x<z)
Так x,y или x,z?

Цитата:
Сообщение от Максим2712 Посмотреть сообщение
Проблема в том что при вводе чисел x,y,z он путает y и z местами.
Так может Edit1, Edit2, Edit3 надо переименовать на форме или другим перменным результат присваивать?
p51x вне форума Ответить с цитированием
Старый 18.03.2019, 14:55   #3
Максим2712
Новичок
Джуниор
 
Регистрация: 18.03.2019
Сообщений: 3
По умолчанию

Попробую исправить, спасибо большое, код не требуется вам переписывать
Максим2712 вне форума Ответить с цитированием
Старый 18.03.2019, 14:57   #4
Максим2712
Новичок
Джуниор
 
Регистрация: 18.03.2019
Сообщений: 3
По умолчанию

он путает y и z местами, например, ввожу в y - 3, в z - 5, выводит: y - 5, z - 3
Максим2712 вне форума Ответить с цитированием
Старый 18.03.2019, 15:02   #5
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

А ничего, что вы эти x,y,z в программе меняете?
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Путаница в mysql acteralex SQL, базы данных 15 31.10.2012 22:35
путаница со включениями MinGW roll_eyes Общие вопросы C/C++ 10 01.08.2012 19:48
Путаница с While и If Drozd-A Помощь студентам 2 14.10.2011 17:00
вылет программы при выводе простого числа (cout) Ciberal Общие вопросы C/C++ 7 27.09.2011 01:51
Путаница в формах в Delphi TaYgA Помощь студентам 2 26.10.2009 19:51