| Автор | Нужна помощь по Дельфи |
|---|
Буду рад любой бескорыстной помощи.
На участке в S гектаров урожайность зерна составила U центнеров с гектара. После этого каждый год площадь увеличивалась на dS%, а урожайность на dU%. Определить, через сколько лет общий урожай, собранный за все время, превысит Uk центнеров?
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, l:real;
begin
a:=strtoint(edit1.Text); //площадь
b:=strtoint(edit2.Text); //урожай
c:=strtoint(edit3.Text); //увеличение площади
d:=strtoint(edit4.Text); //увеличение урожая
l:=1;
end;
end.
Что тут писать то? |
| Пиши значит: ярчайшим представителем бидермайера являлся А. Штифтер, его "кроткий закон" бытия отражал новые, вызванные реставрационной эпохой веяния. В Австрии бидермайер был основным течением, в то время как в Германии еще господствовал романтизм. |
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, l, g, k, f:integer;
begin
a:=strtoint(edit1.Text);//площадь
b:=strtoint(edit2.Text); //урожай
c:=strtoint(edit3.Text); //увеличение площади
d:=strtoint(edit4.Text); //увеличение урожая
f:=strtoint(edit5.text);//порог
l:=1;//годы
g:=a;//общая площадь
k:=b;//общий урожай
while (b+d)>f do
begin
g:=a+c;
k:=b+d;
l:=l+1;
end;
Label6.caption:=inttostr(l);
end;
end.
Почему у меня годы вечно 1 выходит? Где у меня ошибка? |
| У тебя в теле цикла нет изменений переменных заданных в условии |
для Раздетая:
g:=a+c;
k:=b+d;
l:=l+1;
написал же вроде? |
| Ну и где меняются b, d и f? |
| И где ты урожай считаешь? |
В том то и дело что не могу понять как написать этот подсчет урожая...
Написать
a:=b;
? |
| Тебе ж Амелка текст уже дала |
для Раздетая:
очень смешно. |
для Mangecu:
l:=1;
g:=a*b;
k:=g;
while k<f do
begin
а:=a*(1+c/100);
b:=b*(1+d/100);
g:=a*b;
k:=k+g;
l:=l+1;
end; |
| + 11 это при том что програмирование я не знаю |
à:=a*(1+c/100);
в это строке пишет ошибку.
[Error] Unit1.pas(56): There is no overloaded version of 'IntToStr' that can be called with these arguments
[Error] Unit1.pas(50): Statement expected, but expression of type 'Extended' found
[Error] Unit1.pas(50): Illegal character in input file: 'à' ($E0) |
| разобрался. |
| тема закрыта by Mangecu (2011-12-20 19:31:43) |
|---|
