[Fanil]

Здравствуйте! У меня есть такая задача: в edit1 я ввожу какое-то число х от 0 до 100(м.б. и дробное). У меня есть стандартные у равные 15,25,40,60,100. Необходимо чтобы в edit2 выводились эти стандартные значения у, так чтобы выполнялись условия:
если 0<x<=20 то у=15;
если 21<=x<=33 то у=25;
если 34<=x<=50 то у=40;
если 51<=x<=80 то у=60;
если 81<=x<=100 то у=100;
заранее спасибо!

[iGeTT]

Так что тут думать...
Лепишь на форму едит и кнопку, на кнопку вешаешь x:=Edit1.text и дальше пишешь то, что ты написал только заменяешь если на if и то на then

[Fanil]

да я так и сделал:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var PB1,PB2:real;
begin
 PB1:=StrToFloat(Edit1.Text);
    if 0<PB1<=20 then PB2:=15;
    if 21<PB1<=33 then PB2:=25;
    if 34<PB1<=50 then PB2:=40;
    if 51<PB1<=80 then PB2:=60;
    if 81<PB1<=100 then PB2:=100;

 Edit2.Text:=FloatToStr(PB2);
end;

Но выдает ошибку [Error] Unit1.pas(32): Incompatible types

[Konrad]

Если бы ты прочитал хоть одну книгу по делфи, то знал бы:

Код:

 
    if (21<PB1)and(PB1<=33) then PB2:=25;

А так выходит - где-то что-то выучил. что-то в инете нашел, и все мего проггер, а на самом деле - полу непонятно кто))

П.с.: а вобщем твою задачу можно сделать лучше, но для учебных целей и так сойдет.

[Fanil]

спасибо за информацию, я и не претендую на роль мега программиста. Просто по учебе приходится делать программму.