Лекции.Орг


Поиск:




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

ЛАБОРАТОРНАЯ РАБОТА 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;

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



<== предыдущая лекция | следующая лекция ==>
Лабораторная работа 1. Матвед | Создать таблицу «Отчетная ведомость по компьютерной технике»,отредактировать
Поделиться с друзьями:


Дата добавления: 2016-09-03; Мы поможем в написании ваших работ!; просмотров: 273 | Нарушение авторских прав


Поиск на сайте:

Лучшие изречения:

Есть только один способ избежать критики: ничего не делайте, ничего не говорите и будьте никем. © Аристотель
==> читать все изречения...

770 - | 732 -


© 2015-2024 lektsii.org - Контакты - Последнее добавление

Ген: 0.009 с.