я программы. Сначала оно совпадает с именем проекта "по умолчанию". В момент сохранения проекта оно будет автоматически заменено на имя, под которым программист сохранит проект.
Следует обратить внимание на то, что консольное приложение создается в Windows, а выполняется как программа DOS. В DOS используется кодировка ASCII, а в Windows -- ANSI, буквы русского алфавита в которых имеют разные коды. Это приводит к тому, что вместо сообщений на русском языке консольное приложение выводит "абракадабру". Поэтому консольные приложения должны выводить сообщения на английском, что не всегда удобно.
Проблему вывода сообщений на русском языке консольными приложениями можно решить, разработав функцию перекодировки ANSI-строки в строку ASCII. Если эту функцию назвать RUS, то инструкция вывода сообщения на русском языке может выглядеть, например, так:
writeln(Rus(У лукоморья дуб зеленый)).
В листинге приведен пример программы, которая запрашивает у пользователя вес в фунтах, пересчитывает его в килограммы и выводит результат на экран. Для вывода сообщений используется функция RUS, которая преобразует строку символов в кодировке ANSI в строку символов в кодировке ASCII.
Листинг. Пересчет веса из фунтов в килограммы (консольное приложение)
program funt2kg;
$APPTYPE CONSOLE
// Функция Rus преобразует ANSI-строку в ASCII-строку
function Rus(mes: string):string;
// В ANSI русские буквы кодируются числами от 192 до 255,
// в ASCII - от 128 до 175 (А. . Яа. . п) и от 224 до 239 (р. . я).
var
i: integer; // номер обрабатываемого символа
begin
for i: 1 to length(mes) do
case mesi of
A. . п :mesi : Chr(Ord(mesi) - 64);
р. . я :mesi . : Chr (Ord(mes i ) -16);
end;
rus :
Страницы: << < 8 | 9 | 10 | 11 | 12 > >>