[Hannibal]

y={1,если a<b<c
2,если a=b=c
3,если b<a<c
4,если c<a<b
0,в других случаях
Все это одна система.Решить с оператором if и case

[Uniq!]

3,если b<a<c
4,если b<a<c

фигня написана

Код:

var 
 a,b,c:integer;
 y:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);

if (a<b) and (b<c) then then y:=1;
if (a=b) and (b=c) then then y:=2;
if (b<a) and (a<c) then then y:=3;
if (c<a) and (a<b) then then y:=4;

Label1.Caption1:=IntToStr(y);
end;

С case сам, на примере if

[Hannibal]

Сообщение от Uniq!

3,если b<a<c
4,если b<a<c

фигня написана

у меня так в книге записано может опечатка

[Uniq!]

последнее скорее всего c<a<b : 4

поправлю код сверху

[Hannibal]

Сообщение от Uniq!

3,если b<a<c
4,если b<a<c

фигня написана

Код:

var 
 a,b,c:integer;
 y:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text;

if (a<b) and (b<c) then then y:=1;
if (a=b) and (b=c) then then y:=2;
if (b<a) and (a<c) then then y:=3;

Label1.Caption1:=IntToStr(y);
end;

С case сам, на примере if

мне кучу ошибок выбило undeclered identifier 'edit1' и т.д.

[Uniq!]

о Господи )
на чём пишем? Delphi ?)

621139три9три - пиши расскажу чё да как)
Бедняги студенты

[Hannibal]

ну да

[Hannibal]

Сообщение от Uniq!

о Господи )
на чём пишем? Delphi ?)

621139три9три - пиши расскажу чё да как)
Бедняги студенты

а если не секрет это чего номер?

[Uniq!]

ой мамочки)
дивитизнак icq

[Hannibal]

я icq никогда не пользовался потому и не знаю.щас скачаю и сразу добавлю

[Uniq!]

значит так

Код:

Новый проект: 
 на форму стягивай edit - поле для ввода текста. (3 штуки)
 искать её на панели компонентов Standard

 Label - просто штучка, где текст отображается

 Button - кнопку, тырыкай дважды на кнопку,

получишь:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Пихай всё что я накатал:
Вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var 
 a,b,c:integer;
 y:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text;

if (a<b) and (b<c) then then y:=1;
if (a=b) and (b=c) then then y:=2;
if (b<a) and (a<c) then then y:=3;

Label1.Caption1:=IntToStr(y);
end;

Нажимай f9

В первое поле вводи 5 во второе 6 в третее 7
и тыкай на кнопку