Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Требования по выполнению лабораторной работы


ЛАБОРАТОРНАЯ РАБОТА 1

 

Создание простого консольного приложения Delphi

 

Требования по выполнению лабораторной работы

Требуется выполнить пять заданий. Для каждого задания разработан отдельный сценарий.

Задание 1. Настройка среды для выполнения лабораторных работ.

1. Загрузите компьютер. В окне приглашения Windows введите в логин и парольвашей группы и указанные преподавателем.

2. Создайте на диске папку, указав в качестве имени вашу фамилию на русском языке.

3. Создайте в своей папке три папки: EXAMPL, ЛАБ1, Convertor.

4. Запустите Delphi через меню Все программы.

Задание 2. Создание, отладка и выполнение простой программы в среде Delphi.

Разработать программу, демонстрирующую различие кодировок ASCII и ANSI.

1. Создайте новое консольное приложение. Для этого выполните действия: File->New->Other->Console Application.

2. Сохраните программу, которая отображается в окне, в папке EXAMPL, и дайте ей имя exampl1. Для этого выполните File->Save All->Диск Z, откройте папку EXAMPL. Щелкните по кнопке Сохранить.

3. Включите в раздел операторов (Begin…..end.) следующие операторы:

Writeln (¢Редактор готовит русский текст в коде ANSI (страница Windows 1251), а при выполнении программы в консольном режиме он отобразиться он в коде ASCI I страница 866¢);

Readln // ожидание нажатия клавиши Enter

4. Выполните компиляцию программы Project->Compile.

5. Убедитесь, что выполнимый файл (с расширением exe) создан. Для этого откройте папку EXAMPL.

6. Запустите программу на выполнение Run->exampl1.exe ( или щелкните по кнопке Запуск панели инструментовили F9).

7. Ответьте на следующий вопрос. Почему нельзя прочитать текст?

Задание 3. Создание функции преобразования выводимого на монитор русского текста из кодировки Windows в кодировку DOS с именем RUS.

Добавить в код созданного проекта функцию с именем RUS, которая позволит представлять выводимый на монитор текст в кодировке DOS(ASCII).

1. Перед разделом операторов (перед Begin) введите текст функции RUS, которая будет преобразовывать текст из кодировки ANSI 1251 в кодировку ASCII:

function RUS(s:string):string; //заголовок функции

var i:longint;

begin

for i:=1 to length(s) do

begin

if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64);

if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16);

end;

RUS:=s

end;

2. Примените функцию RUS для преобразования выводимого текста. Для этого внесите изменения в оператор вывода.

Writeln (RUS( ¢ Редактор готовит текст в коде 1251, а отобразиться он в коде ASCI I ¢ ));

3. Выполните программу и оцените результат.

Задание 4. Создание модуля Unit и его использование

Примечание. Модуль Unit позволит подключать функцию преобразования к любому проекту ваших лабораторных работ.

1. Создайте модуль unit и включите в него функцию RUS, для этого:

· выполните команду File->New ->Unit

· переместите текст функции RUS из программы (доступ к программе через закладку) в модуль и вставьте его в выполнимую часть модуля (после слова implementation)

· скопируйте заголовок функции в интерфейсную часть модуля (после слова interface).

Содержание модуля

unit unit1;

interface //интерфейсная часть

function RUS(s:string):string;

implementation //выполнимая часть

function RUS(s:string):string;

var i:longint;

begin

for i:=1 to length(s) do

begin

if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64);

if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16);

end;

RUS:=s

end;

end.

· сохраните модуль под именем convertor в вашей папке в папке Convertor.

2. Откройте код вашей программы, щелкнув по закладке проекта. Найдите строку с подключенным модулем. Проверьте путь к файлу.

3. Выполните программу. Убедитесь, что программа работает правильно.

4. Сохраните проект, щелкнув по кнопке Save панели инструментов.

Задание 5. Разработка программы по организации стандартного ввода-вывода средствами Delphi.

Разработать программу, которая позволит:

· ввести целые числа в переменные типа byte, integer, int64 и вещественные числа в переменные типа real, extended, comp;

· отобразить целые и дробные числа двумя способами: в формате хранения в памяти и с заданной точностью (форматированный вывод).




<== предыдущая лекция | следующая лекция ==>
ЗАДАНИЯ ДЛЯ УПРАВЛЯЕМОЙ САМОСТОЯТЕЛЬНОЙ РАБОТЫ СТУДЕНТОВ | Общие сведения. Форматирование отображаемой информации осуществляется с помощью параметров форматирования.

Дата добавления: 2015-10-15; просмотров: 356. Нарушение авторских прав; Мы поможем в написании вашей работы!




Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

ЛЕЧЕБНО-ПРОФИЛАКТИЧЕСКОЙ ПОМОЩИ НАСЕЛЕНИЮ В УСЛОВИЯХ ОМС 001. Основными путями развития поликлинической помощи взрослому населению в новых экономических условиях являются все...

МЕТОДИКА ИЗУЧЕНИЯ МОРФЕМНОГО СОСТАВА СЛОВА В НАЧАЛЬНЫХ КЛАССАХ В практике речевого общения широко известен следующий факт: как взрослые...

СИНТАКСИЧЕСКАЯ РАБОТА В СИСТЕМЕ РАЗВИТИЯ РЕЧИ УЧАЩИХСЯ В языке различаются уровни — уровень слова (лексический), уровень словосочетания и предложения (синтаксический) и уровень Словосочетание в этом смысле может рассматриваться как переходное звено от лексического уровня к синтаксическому...

Приложение Г: Особенности заполнение справки формы ву-45   После выполнения полного опробования тормозов, а так же после сокращенного, если предварительно на станции было произведено полное опробование тормозов состава от стационарной установки с автоматической регистрацией параметров или без...

Измерение следующих дефектов: ползун, выщербина, неравномерный прокат, равномерный прокат, кольцевая выработка, откол обода колеса, тонкий гребень, протёртость средней части оси Величину проката определяют с помощью вертикального движка 2 сухаря 3 шаблона 1 по кругу катания...

Неисправности автосцепки, с которыми запрещается постановка вагонов в поезд. Причины саморасцепов ЗАПРЕЩАЕТСЯ: постановка в поезда и следование в них вагонов, у которых автосцепное устройство имеет хотя бы одну из следующих неисправностей: - трещину в корпусе автосцепки, излом деталей механизма...

Studopedia.info - Студопедия - 2014-2025 год . (0.016 сек.) русская версия | украинская версия