|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.09.2008, 17:37 | #1 | |
Форумчанин
Регистрация: 02.09.2008
Сообщений: 340
|
Проблема с прогой
Програма для подсчёта идеального веса человека(Женского и мужского)
вот програмку написал procedure TForm1.Button1Click(Sender: TObject); var m,j,r,g,g1,v:integer; begin r:=StrToInt(Edit1.Text); if radiobutton1.Checked then begin label7.Caption:=IntToStr(r); m:=r-110; if (m>r-115) or (m<r-105) then Label10.caption:=inttostr(m); g:=StrToint(edit3.Text); g1:=2008-g; case g1 of 10..30: if (m>22) and (m<110) then Label12.Caption:='Идеальное ссответсвие возраст/вес'; 31..50: if (m>110) and (m<140) then Label12.Caption:='Идеальное ссответсвие возраст/вес'; 51..200: if (m>80) and (m<110) then Label12.Caption:='Идеальное ссответсвие возраст/вес'; else Label12.Caption:='Ваш вес несоответсвует росту'; end; if radiobutton2.Checked then begin Label8.Caption:=IntToStr(r); j:=r-110; if (j=r-105) or (j<r-105) then Label10.Caption:=inttostr(j); case g1 of 10..30: if (j>22) and (j<110) then Label12.Caption:='Идеальное ссответсвие возраст/вес'; 31..50: if (j>110) and (j<140) then Label12.Caption:='Идеальное ссответсвие возраст/вес'; 51..200: if (j>80) and (j<110) then Label12.Caption:='Идеальное ссответсвие возраст/вес'; else Label12.Caption:='Ваш вес несоответсвует росту'; end; Программа выдаёт сообщения постоянно что вес соотведствует возврасту какая бы разница не была. не идёт проверка на строк к примеру if (j>22) and (j<110) then , а тупо проверяеться 10..30. Мне сказали что сдесь надо поменять буквльно пару строк но я немогу догнять каких Помагите, что не понятно обьяснил спрашуйте Цитата:
|
|
11.09.2008, 17:53 | #2 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Жми F8 и построчно смотри значения переменных. Ошибку сразу увидишь.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с прогой на Си | Diget | Общие вопросы C/C++ | 3 | 04.06.2008 00:20 |
Помогите с прогой | vish25 | Помощь студентам | 14 | 23.05.2008 16:13 |
помогите с прогой | DeDoK | Общие вопросы Delphi | 7 | 09.05.2008 23:51 |
подскажите с прогой | motaro | Помощь студентам | 8 | 12.07.2007 16:40 |
Помогите с прогой | DarthNemo | Помощь студентам | 2 | 06.05.2007 18:11 |