Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Раздел описания типа.




Если пользователю, по каким либо причинам не хватает стандартных типов, то возможно определить типы по своему желанию.

Пример 1: Пусть нам нужно использовать тип с именем privat 1 в котором данные могут принимать только значения латинского алфавита начиная с буквы a и до буквы t. Определение этого типа можно записать в виде интервально определённого типа на основе стандартного типа char:

Type privat 1 =’a’..’t’;

Var lit,bukv:privat; {Выделены две ячейки памяти с именами lit, bukv, в которые можно занести только символы от a до t на основании предыдущего описания типа}

Пример 2: Определим перечисляемый тип для занесения названий месяцев.

Type month = (‘jan’,’fab’,’mar’,’apr’,’may’,’jun’,’jul’,’aug’,’sep’,’okt’,’nov’,’des’);

Var a,b,c:month;

 

Оператор присваивания. c:=a+b;

Слева от знака присваивания := указывается имя ячейки памяти, в которую нужно поместить значение. Под значением можно подразумевать значение константы, значение переменной (какого либо типа), значение вычисленного арифметического или логического или символьного или строкового выражения, или значение результата вычисления функции. В общем случае считается, что справа от знака присваивания помещается выражение.

Замечание: Тип имени ячейки памяти и тип выражения справа должны совпадать.

Оператор ввода. Readln(a,b,c);

Читать, набираемые через пробел данные с клавиатуры и занести их в последовательном порядке в ячейки a,b,c, после нажатия клавиши Enter.

Оператор вывода. Writeln(a,b,c);

Написать с новой строки на экране значения, извлечённые из ячеек a,b,c.

Замечание: Вместо имён ячеек памяти можно указывать символьные и текстовые константы, заключенные в кавычки ‘…………’. В этом случае на экран выводятся текстовые константы в том виде, в каком они помещены между кавычками. (Текстовые константы должны быть записаны латиницей.)

Простейшая программа. (вычисление с=а+в)

Program prim_1; {заголовок программы с именем prim_1}

Var a,b,c:real; {раздел описания переменных}

begin {начало раздела операторов}

writeln(‘input a,b’); {вывести на экран текстовую константу input a,b

(подсказка пользователю почему компьютер

остановился)}

readln(a,b); {компьютер остановился и ждёт набора значений a,b

(через пробел) c клавиатуры и занесение их в ячейки

с именами a,b (после нажатия клавиши Enter}

c:=a+b; {вычисление значения с и занесение результата в ячейку с}

writeln(‘c=’,c); {вывод на экран значения с в виде c= значение c}

readln; {компьютер остановился и ждёт нажатия клавиши Enter, на

экране при этом виден результат}

end. {конец работы программы}

Откроем приложение Delphi, создадим консольное приложение и запустим программу на выполнение.

Запустите приложение Delphi 7 по иконке или через ПУСК \все программы \ Delphi 7, выберете FIle\New\Other получите окно:

Нажмите Console Aplication \OK, Получите заготовку проекта (program Project2;) {Имя программы можно менять}

Наберите операторную часть программы например:

program Project1;

{$APPTYPE CONSOLE} {Директива компилятора {$APPTYPE CONSOLE}

Директива начинается с символа $ и свидетельствует о типе нашего приложения, и ее необходимо оставить без изменений.}

Uses SysUtils; {Использовать системные утилиты (здесь могут быть

перечислены указания какие блоки Delphi использовать)}

var a,b,c:real; begin

writeln('input a,b'); readln(a,b); c:=a+b; writeln('c=',c); readln; end.

Для запуска программы на выполнение нажмите Run\ Run или зелёный треугольник или f9 получите черное окно для решения и получения результатов:

Вводим через пробел значения a b (например 2.5 6.4)нажимаем enter получаем:

Нажав Enter вернемся в проект Delphi.

 

Проект можно сохранить: File\Save as… или File / Save Project As…Появится окно:

 

Набрав нужное имя (например Project0), нажмите «Сохранить». Проект сохранён и к нему можно получить доступFile\Open… получим окно, щёлкнув на Project0 открыть проект.

 

Лабораторная работа № 1. Разработка доцента кафедры информатики Скоб Ю.А.

 

Поделиться:





Читайте также:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...