Требуется помощь с If 6<x<16 then в delphi
Требуется написать программу, которая анализирует данные о возрасте в Edit1.text и относит человека к одной из пяти групп: Дошкольник, ученик, студент, работник, пенсионер. Я сделал программу где при воде возраста загораеться панель, но при создании условия для ученика возникли проблемы я не понимаю как описать что бы 2 панель загорелась при условии что x больше 6, но меньше 16. Помогите пожайлуста
Вот тебе принцип.
var x: real;
begin
repeat
write('Введите возраст (0 для выхода): '); readln(x);
x:=abs(x);
if(x<7)then writeln('Дошкольник')
else if (x<16)then writeln('Школьник')
else if (x<26)then writeln('Студент')
else if (x<65)then writeln('Работник')
else writeln('Стипенсионер');
until x<0.00001;
end.
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
if TryStrToInt( Edit1.Text, i) then begin
if i<65 then begin
if i<22 then begin
if i<18 then begin
if i<7 then begin
Panel5.Visible:=true;
end
else begin
Panel4.Visible:=true;
end;
end
else begin
Panel3.Visible:=true;
end;
end
else begin
Panel2.Visible:=true;
end;
end
else begin
Panel1.Visible:=true;
end;
end;
end;