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

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