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;                            

Пояснення:

Answer 2

Конечно, вот пример текста программы на Паскале, который определяет, в каком звене обучается ученик, без использования оператора case:

pascalCopy code
program DetermineSchoolLevel;

uses
  crt;

var
  classNumber: Integer;

begin
  clrscr;

  writeln('Введите номер класса: ');
  readln(classNumber);

  if classNumber >= 1 and classNumber <= 4 then
    writeln('Ученик обучается в начальной школе.')
  else if classNumber >= 5 and classNumber <= 9 then
    writeln('Ученик обучается в среднем звене.')
  else if classNumber >= 10 and classNumber <= 11 then
    writeln('Ученик обучается в старших классах.')
  else
    writeln('Некорректный номер класса. Пожалуйста, введите число от 1 до 11.');

  readln;
end.

Эта программа просит пользователя ввести номер класса и затем определяет, к какому звену он относится. Если введен некорректный номер класса (меньше 1 или больше 11), программа выдаст соответствующее сообщение об ошибке.