Программирование на языке Delphi/§1

Материал из Викиверситета

Первая программа[править]

Мы будем создавать консольную программу. Запустите Delphi, затем с помощью команды File->New->Other->Console Application создайте новый проект.

 
program Project1; 

{$APPTYPE CONSOLE}

uses SysUtils;

begin
  writeln('Hello World');
end.

Эта программа выводит на экран сообщение "Hello World". Разберем ее построчно:

  •  program Project1;
    
    -- program - ключевое слово с которого начинается программа. Оно не является обязательным. Project1 - название нашей программы.
  • {$APPTYPE CONSOLE}
    
    -- Директива компилятора; при ее выполнении компилятор создает консольную программу. Если данная директива отсутствует, то мы не сможем использовать некоторые процедуры(например writeln) для ввода или вывода.
  •  uses SysUtils;
    
    -- Зарезервированное слово uses подключает к программе модуль(в нашем случае SysUtils).
  • begin
    
    -- Зарезервированное слово. Оно означает начало программы или подпрограммы.
  • writeln('Hello World');
    
    -- Это функция вывода сообщений на экран(в нашем случае "Hello World"). Существует также функция write. Различия между write и writeln минимальные: writeln переводит курсор на следующую строку.
  • end.
    
    -- Завершение программы или модуля. В случае завершения подпрограммы вместо точки ставится точка с запятой.

Вторая программа. Ввод текста с клавиатуры и вывод его на экран[править]

 
program Project1; 

{$APPTYPE CONSOLE}

uses SysUtils;

var
  s:string; //Мы объявляем строковую переменную s
begin
  readln(s); //Считываем ее
  writeln(s); //И выводим на экран
  readln;  // Чтобы программа сразу не завершалась
end.
  • var s:string;
    
    -- Объявляем строковую переменную (string). Сначала мы выбираем индетификатор(название) переменной - он может состоять из латинских букв, арабских цифр и символа подчеркивания(имя переменной должно начинаться с латинской буквы); затем мы указываем тип переменной.
  • readln(s);
    
    -- Функция readln считывает сообщение с клавиатуры до тех пор, пока не будет нажата клавиша Enter.