паскаль абс оператор саsе
Ввести с клавиатуры букву 7-го класса. Определить его тип:
а - гимназический, б - математический, в - обычный, г - коррекция.
(Буква может быть большой или маленькой).
Ответы
Ответ дал:
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.
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.
Ответ дал:
0
Вот компиляция для Линукс:
Compiler Output:
EFuw4sE5.pas:0: warning: missing program header
EFuw4sE5.pas:2: warning: missing string capacity -- assuming 255
EFuw4sE5.pas: In main program:
EFuw4sE5.pas:6: error: `case' selector is not of ordinal type
Compiler Output:
EFuw4sE5.pas:0: warning: missing program header
EFuw4sE5.pas:2: warning: missing string capacity -- assuming 255
EFuw4sE5.pas: In main program:
EFuw4sE5.pas:6: error: `case' selector is not of ordinal type
Ответ дал:
0
Проверено через сайт с тремя десятками разных компиляторов.
Ответ дал:
0
Думаю, основная проблема не в системе, а в версии.
Можно в ЛС ссылку на этот сайт с тремя десятками компиляторов?
Можно в ЛС ссылку на этот сайт с тремя десятками компиляторов?
Ответ дал:
0
То, что лично у Вас на компьютере это откомпилировалось не может являться основанием того, чтобы ответ признавать работоспособным.
Ответ дал:
0
Проблема в синтаксисе языка. Еще раз: если в селекторе CASE используются буквы, они должны быть допустимы в Паскале в качестве меток.
Ответ дал:
0
// PascalABC.Net 3.0, сборка 1066
const
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
const
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
Ответ дал:
0
В теме задания четко указано, что решение необходимо проводить через оператор case.
Ответ дал:
0
Да... я увлекся и был неправ. Исправим...
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад