Вопрос по информатике:
String6. Дан символ C, изображающий цифру или букву (латинскую или рус- скую). Если C изображает цифру, то вывести строку «digit», если латин- скую букву — вывести строку «lat», если русскую — вывести строку «rus». В паскале пожайлуста помогите не могу сделать
- 23.03.2015 18:01
- Информатика
- remove_red_eye 9118
- thumb_up 48
Ответы и объяснения 2
begin
write('Введите символ: ');
readln(c);
case c of
'0'..'9' :writeln('digit');
'A'..'Z','a'..'z':writeln('lat');
'А'..'Я','а'..'я':writeln('rus');
else writeln('Другой символ');
end;
end.
Пример:
Введите символ: П
rus
- 24.03.2015 22:57
- thumb_up 41
program string6;
var
i: integer;
f: boolean;
R: array[1..33] of WideChar = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ь', 'ы', 'ъ', 'э', 'ю', 'я');
C: WideChar;
begin
f := False;
readln(C);
if IsNumber(C)
begin
writeln('digit');
f := True;
end
else
for i := 1 to 33 do
if R[i] = C then
begin
writeln('rus');
f := True;
break;
end;
if not(f) then
writeln('lat');
end.
- 25.03.2015 02:11
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.