паскаль абс оператор саsе Ввести с клавиатуры букву 7-го класса. Определить его тип: а - гимназический, б - математический, в - обычный, г - коррекция. (Буква может быть большой или маленькой).
Answers & Comments
novix
// 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
Answers & Comments
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
Free Pascal Compiler version 2.6.4 [2015/03/25] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for x86-64
При таких условиях у меня всё исправно работает, без pascalabc.net
Можно в ЛС ссылку на этот сайт с тремя десятками компиляторов?