|
Вопрос # 5 404/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Препад сказал что программа ему не нравиться и нужно переделать,
помогите пож-та
Приложение: Переключить в обычный режим- unit U_F_1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ExtCtrls;
-
- type
- TF_1 = class(TForm)
- Panel: TPanel;
- L_com: TLabel;
- B_rez: TButton;
- L_vivod: TLabel;
- L_vivod_2: TLabel;
- L_vivod_3: TLabel;
- procedure B_rezClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- F_1: TF_1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TF_1.B_rezClick(Sender: TObject);
- Var
- b,k,t:Integer;
- Begin
- For b:=0 to 10 Do
- For k:=0 to 20 Do
- For t:=0 to 200 Do
- If ((b*10+k*5+t*0.5)=100) and ((b+k+t)=100) then
- begin
-
-
-
- end;
-
- end;
-
- end.
-
 |
Вопрос задал: strannik23 (статус: Посетитель)
Вопрос отправлен: 13 июня 2011, 12:46
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Gooddy
Здравствуйте, strannik23!
В приложении новый код для клика.
Киньте на форму Memo и назовите ResultMemo
Приложение: Переключить в обычный режим- procedure TF_1.B_rezClick(Sender: TObject);
- var
- b, k, t: integer;
- begin
- ResultMemo.Clear;
- for t:=1 to 100 do
- if frac(4.5*t - 400)/5 = 0 then
- begin
- b := ( 4*t + t div 2 - 400) div 5;
- k := 100 - b - t;
-
- end;
- end;
 |
Ответ отправил: Gooddy (статус: 3-ий класс)
Время отправки: 13 июня 2011, 13:23
Оценка за ответ: 5
Комментарий к оценке: спасибо
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 13 июня 2011, 13:15; участников в обсуждении: 2.
|
|
Gooddy (статус: 3-ий класс), 13 июня 2011, 12:55 [#1]:
Во-первых, программа нужна полностью, во-вторых, из того что вы написали нихрена не понятно. Суть задачи в том чтобы найти такое количество животных, когда они распределены в опр. пропорции и в сумме составляют 100?
Можно же выразить хотя бы две переменные друг через друга, нет?
Чисти код! Чисти код! Чисти код!
|
|
|
strannik23 (статус: Посетитель), 13 июня 2011, 12:58 [#2]:
сколько можно купить быков, коров и телят, платя за быка 10 руб., за корову – 5 руб., а за телёнка – 0.5 руб., если на 100 руб., надо купить 100 голов скота?
|
|
|
Gooddy (статус: 3-ий класс), 13 июня 2011, 13:02 [#3]:
Сейчас покалякаю.
Чисти код! Чисти код! Чисти код!
|
|
|
Gooddy (статус: 3-ий класс), 13 июня 2011, 13:05 [#4]:
Увеличивайте по порядку переменную T (от 1 до 100).
А остальные выводите по формулам:
B = (4.5T - 400) / 5
K = 100 - B - T
Далее проверяйте чтобы числа B и K были положительные и целые (число T проверять не нужно)
И выводите результат в MEMO, так как ответов может быть несколько.
И вместо FloatToStr используйте IntToStr
Чисти код! Чисти код! Чисти код!
|
|
|
strannik23 (статус: Посетитель), 13 июня 2011, 13:15 [#5]:
поподробнее можно? это получается останется один фор? а других не будет?
|
|
|
Gooddy (статус: 3-ий класс), 13 июня 2011, 13:15 [#6]:
Была бы вся проргаммма было бы проще. Ладно оформлю как ответ.
Чисти код! Чисти код! Чисти код!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
