Вопрос № 145096: Уважаемы эксперты! Не могли бы вы решить эти задачи пожалуйста Тема: Создание собственного модуля. Компиляция модулей. Вызов модуля из основной программы. Задание 1.--------------------------------------------------------------------------<...Вопрос № 145135: Уважаемые эксперты! Помогите, пожалуйста, написать программу на паскале, которая по заданной букве латинского алфавита определяет гласная или согласная она....
Вопрос № 145.096
Уважаемы эксперты! Не могли бы вы решить эти задачи пожалуйста Тема: Создание собственного модуля. Компиляция модулей. Вызов модуля из основной программы. Задание 1.-------------------------------------------------------------------------- 2. Ввести произвольную последовательность из 20 символов и выяснить, - сколько среди них точек, сколько среди них пробелов, сколько среди них букв Ш. Спасибо...
Отвечает: Абельхарисов Руслан/Marked One
Здравствуйте, Смирнов Андрей Анатольевич! Создавать и использовать модули очень просто. Модуль имеет такую структуру:
Код:
unitимя_модуля; interface Интерфейсная часть implementation Исполняемая часть begin инициирущая
часть end.
Имя модуля должно совпадать с именем файла в котором находится модуль. Например: если имя модуля - MyUnit, то он должен находится в файле MyUnit.pas. Интерфейсная часть содержит объявления глобальных объектов модуля, то есть всего того что должно быть доступно основной программе. При объявлении глобальных функции и процедур в интерфейсной части указывается только их заголовок. Исполняемая часть содержит описан
ия функций и процедур объявленных в интерфейсной части и локальные объекты, которые не должны быть доступны основной программе. Чтобы использовать модуль, надо в основной программе подключить его, введя в начале программы такую строку: Uses имя_модуля; После этого все объекты, которые объявлены в интерфейсной части модуля будут доступны основной программе.
Первая задача состоит из двух частей: модуля и основной программы. Модуль:
Код:
{Название модуля(Название должно совпадать с именем файла, т.е. этот модуль должен быть сохранен в файле MyUnit.pas)} unit MyUnit;
interface {в разделе interface объявляем наши функции} {Получение порядкового номера символа} function GetCharNum(c: Char): byte; {Предыдущий символ
} function GetCharPrev(c: Char): char; {Следующий} function GetCharNext(c: Char): char;
implementation {В разделе implementation описываем наши функции} function GetCharNum(c: char): byte; begin GetCharNum:=Ord(c); end;
function GetCharPrev(c: Char): char; begin GetCharPrev:=chr(Ord(c)-1); end;
function GetCharNext(c: Char): char; begin GetCharNext:=chr(Ord(c)+1); end;
begin end.
Основная
программа:
Код:
{Подключаем наш модуль} uses MyUnit; var {Символ} c: char;
begin {Получаем символ} Write('введите символ: '); ReadLn(c); {Выводим результаты используя функции из нашего
модуля} WriteLn('Код символа ', c, ': ', GetCharNum(c)); WriteLn('Предыдущий символ: ', GetCharPrev(c)); WriteLn('Следующий символ: ', GetCharNext(c)); ReadLn; end.
Уважаемые эксперты! Помогите, пожалуйста, написать программу на паскале, которая по заданной букве латинского алфавита определяет гласная или согласная она.
Отправлен: 26.09.2008, 19:44
Вопрос задал: Gyrik (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Gyrik!
В приложении вариант для русского алфавита. Как образец данного типа программ. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 26.09.2008, 20:26 Оценка за ответ: 5
Отвечает: Шичко Игорь
Здравствуйте, Gyrik! Предлагаю Вам следующий код. Вам только необходимо добавить в переменные sogl и gl перечень гласных и согласных букв.
Приложение:
Ответ отправил: Шичко Игорь (статус: 5-ый класс)
Ответ отправлен: 27.09.2008, 21:02 Оценка за ответ: 5
