Пересчет веса из фунтов
Листинг 4.1. Пересчет веса из фунтов в килограммы (консольное приложение)
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 mes[i] of
'A'-.'n' :
mes[i] := Chr(Ord(mes[i]) - 64);
'р'..'я' :
mes[i] .:= Chr (Ord(mes [i] ) -16);
end;
rus := mes; end;
// основная программа
var
f:real; // вес в фунтах
w:real; // вес в граммах
k:integer; // кол-во килограммов
g:integer; // кол-во граммов
// w = f*0,4095 = k*1000 + g
begin
writeln(Rus('Фунты-килограммы'));
writeln(Rus('Введите вес в фунтах и нажмите <Enter>
'));
write('->
');
readln(f);
w := f * 409.5; // один фунт — это 409,5 гр.
if w >
1000 then begin
k:=Trunc(w/1000);
g:=Round(w - k*1000);
end else
begin k:=0;
g:=Round(w) ; end;
write(f:4:2, Rus(' ф. -это '));
if k >
= 1 then write(k, Rus(' кг. '));
writeln(g, Rus(' rp.')};
write(Rus('Для завершения нажмите <Enter>
'));
readln;
end.
Начинается текст программы строкой {$APPTYPE CONSOLE}, которая, хотя и похожа на комментарий, таковым не является, т. к. сразу за открывающей скобкой следует знак денежной единицы. Эта директива предназначена для компилятора. Следуя ее указаниям, компилятор генерирует исполняемую программу как консольное приложение.
Компиляция консольного приложения выполняется обычным образом, т. е. выбором из меню Project команды Compile.
После успешной компиляции программа может быть запущена выбором из меню Run команды Run. При запуске консольного приложения на экране появляется стандартное окно DOS-программы. На Рисунок 4.2 приведен вид DOS-окна, в котором работает консольное приложение, созданное в Delphi.
Процесс сохранения проекта консольного приложения стандартный. В результате выбора из меню File команды Save на экране появляется диалоговое окно Save Project, в котором нужно ввести имя проекта.
