|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.03.2019, 14:36 | #1 |
Новичок
Джуниор
Регистрация: 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 местами. Как исправить? Напишите весь код в исправленном виде люди добрые, буду очень благодарен за помощь) |
18.03.2019, 14:41 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,695
|
Но код же делает немного не то, что заявлено...
Код:
и Код:
Так может Edit1, Edit2, Edit3 надо переименовать на форме или другим перменным результат присваивать? |
18.03.2019, 14:55 | #3 |
Новичок
Джуниор
Регистрация: 18.03.2019
Сообщений: 3
|
Попробую исправить, спасибо большое, код не требуется вам переписывать
|
18.03.2019, 14:57 | #4 |
Новичок
Джуниор
Регистрация: 18.03.2019
Сообщений: 3
|
он путает y и z местами, например, ввожу в y - 3, в z - 5, выводит: y - 5, z - 3
|
18.03.2019, 15:02 | #5 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,695
|
А ничего, что вы эти x,y,z в программе меняете?
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Путаница в 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 |