• паскаль абс оператор саsе
    Ввести с клавиатуры букву 7-го класса. Определить его тип:
    а - гимназический, б - математический, в - обычный, г - коррекция.
    (Буква может быть большой или маленькой).

Ответы 9

  • Вот компиляция для Линукс: Compiler Output:EFuw4sE5.pas:0: warning: missing program headerEFuw4sE5.pas:2: warning: missing string capacity -- assuming 255EFuw4sE5.pas: In main program:EFuw4sE5.pas:6: error: `case' selector is not of ordinal type
  • Проверено через сайт с тремя десятками разных компиляторов.
  • Думаю, основная проблема не в системе, а в версии.Можно в ЛС ссылку на этот сайт с тремя десятками компиляторов?
  • То, что лично у Вас на компьютере это откомпилировалось не может являться основанием того, чтобы ответ признавать работоспособным.
    • Автор:

      declan
    • 6 лет назад
    • 0
  • Проблема в синтаксисе языка. Еще раз: если в селекторе CASE используются буквы, они должны быть допустимы в Паскале в качестве меток.
  • В теме задания четко указано, что решение необходимо проводить через оператор case.
    • Автор:

      kiki10
    • 6 лет назад
    • 0
  • Да... я увлекся и был неправ. Исправим...
    • Автор:

      cosme
    • 6 лет назад
    • 0
  • var    letterOfClass : string;begin    write('Введите букву класса: ');    readln(letterOfClass);    case letterOfClass of        'a','A' : writeln('7-', letterOfClass, ' это гимназический класс.');        'b','B' : writeln('7-', letterOfClass, ' это математический класс.');        'v','V' : writeln('7-', letterOfClass, ' это обычный класс.');        'g','G' : writeln('7-', letterOfClass, ' это клас корреции.');        else writeln('Класса с такой буквой нет');    end;end.
    • Автор:

      tobiepacs
    • 6 лет назад
    • 0
  • // PascalABC.Net 3.0, сборка 1066const  s1='АБВГабвг';  s2='12341234';var  c:char;  i:integer;begin  Write('Введите букву класса: '); Readln(c);  i:=Pos(c,s1);  if i>0 then begin    c:=s2[i];    case c of    '1':Writeln('гимназический');    '2':Writeln('математический');    '3':Writeln('обычный');    '4':Writeln('коррекционный')    end  end  else Writeln('Неверная буква')end.Тестовое решение:Введите букву класса: БматематическийПримечание: работа программы также проверена в Borland Pascal 7.01
    • Автор:

      roverb0ie
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years