Консольна програма
Це програма, яка призначена для операційної системи MS-DOS. Виконується в MS-DOS вікні (як програми в оболонці Borland Pascal). Для неї пристроями введення та виведення даних є лише клавіатура та монітор. У більшості випадків використовується не для розв’язування прикладної задачі, а для перевірки алгоритму або для швидкої реалізації найпростіших підзадач, а також при створенні найпростіших утиліт „для внутрішнього використання”.
Для того, щоб створити консольну програму потрібно, після запуску Delphi.
Закрити непотрібні вікна (редактор коду, вікно редактору властивостей об’єктів та дизайнер форми ). Може з’явитись повідомлення „Save changes to Unit1.pas?” („Зберегти зміни в Unit1.pas?”). Якщо це нова прикладна задача, для якої створені по замовчуванню модуль та форма до нього, то можна відповісти „ні” (натиснути на кнопку „No”). У результаті повинно залишитись лише головне вікно.
Потім потрібно вибрати пункт меню File/New. З’явиться вікно вибору типу нової програми (New Items).
Вибрати закладку New. На ній – Console Application. Зявиться вікно редактора коду, у якому вже описана структура програмного коду – основні блоки програми, в які достатньо вписувати змінні (після розділу uses) та власний код програми (в операторні дужки).
Для введення і виведення даних використовуються ті ж функції: Read, Readln, Write, Writeln. Тому програмний код, створений в Borland Pascal, є сумісним з консольною прикладною програмою в Delphi, оскільки інші оператори в цілому відповідають в обох середовищах.
При створенні консольної програми потрібно пам’ятати, що програми створені під DOS не виводять на екран букви російського та українського алфавітів, тому що вони кодуються спеціальним кодом, і DOS його не розуміє.
Приклад програми
Потрібно створити програму яка повинна вираховувати площу кола знаючи його довжину.
Текст програми
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var
r,s,l:real;
begin
write('Input length of circle ');
readln(l);
r:=l/(2*pi);
s:=pi*sqr(r);
writeln('Square or circle is ',s:2:2);
readln;
end.
Перший рядок program Project1; не обов’язковий – в ньому вказується назва програми. У другому рядку вказується директива компілятору – вона вказує на те, що це консольна програма. Без неї програма не буде компілюватись, тобто вона навіть не створиться. У наступних рядках піключається (автоматично) модуль SysUtils. Далі програміст описує необхідні змінні (r – радіус, s – площа, l – довжина кола). За допомогою процедури write (writeln) виводяться повідомлення на екран, процедура readln(l) зчитує інформацію з клавіатури і присвоює її змінній L.