Question

По номеру класса определить в начальной школе, среднем звене или в старших классах обучается ученик. ЗАПРЕЩАЕТСЯ ИСПОЛЬЗОВАТЬ ОПЕРАТОР case!
Необходимо написать текст программы на Паскале!

Answer 1

Відповідь:

var a:real;

begin

a:=StrToFloat(Edit1.Text);

if a=4

Then Label1.Caption:= 'Начальная школа';

Else a<4

Then Label1.Caption:= 'Начальная школа';

Else a=8

Then Label1.Caption:= 'Средняя школа';

Else a<8

Then Label1.Caption:= 'Средняя школа';

Else a=11

Then Label1.Caption:= 'Старшая школа';

Else a>8

Then Label1.Caption:= 'Старшая школа';

end;                            

Пояснення: