Пример программы на Паскаль по недавно пройденной теме - оператор выбора Case of в Pascal . Эта программа должна определить, какой символ Вы ввели. Скачать исходник и просмотреть можно ниже.
Исходный код программы на Pascal:
var ch:char; //Описание переменных (char-символ)
Begin //Начало программы
readln (ch); //Считывание переменной
case ch of //Оператор выбора
'A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я' : WriteLn('Буква'); //Если от a до я и т.д., то вывести "Буква"
'0'..'9' : WriteLn('Цифра'); //Если от 1 до 9, то вывести на экран "Цифра"
'+', '-', '*', '/' : WriteLn('Оператор'); //Если +, -, *, /, то вывести "Оператор"
else WriteLn('Специальный символ') //Если иначе, то вывести "Специальный символ"
end; //Конец оператора выбора
end. //Конец программыКомментарии, как Вы уже, наверное, заметили довольно подробные и развернутые, поэтому рассказывать подробно не буду. Открыть исходник можно с помощью программ Pascal ABC.Net, Pascal ABC, Lozarus, Turbo Pascal и других компиляторов кода Паскаль. Про оператор case в Pascal можно прочитать в уроке Паскаль №15.
Скачать исходник программы Паскаль: typesymbols.pas
Кстати, если у Вас болит спина при долгой работе за компьютером или при вождении автомобиля, то возможно Вам нужна массажная накидка. Массажная накидка помогает чувствовать себя бодрым и снимает нервное напряжение. Массажная накидка может легко заменить дорогостоящее массажное кресло!