Предмет: Информатика,
автор: bek011126
В Pascal ABC для букв латинского алфавита на стандартной клавиатуре нужно напечатать букву справа от нее. В этом случае клавиатура считается закрытой, то есть буква”s”,буква”q”справа от буквы”w”.
bek011126:
практическая работа помогите быстрее пожалуйестаааа!!!!!!!!!
Ответы
Автор ответа:
1
Код (PascalABC.NET):
##
var keyboard := 'qwertyuiopqasdfghjklazxcvbnmz'; // строчка, которая получилась при проведении пальцем по клавиатуре. Первый символ повторяется после последнего символа своего ряда
var index := pos(ReadChar, keyboard); // ищем позицию введенного символа
write(keyboard[index + 1]) // и выводим символ, который идет после найденного
Пример ввода:
l
Пример вывода:
a
Похожие вопросы
Предмет: Биология,
автор: habibmabib
Предмет: Химия,
автор: fiseoksana
Предмет: Математика,
автор: lubasha005
Предмет: Физика,
автор: AllaSimonyan
Предмет: Алгебра,
автор: marikawaii27i