Первая программа - продолжение

---

В начале программы мы должны описать придуманные нами идентификаторы (read, writeln и т п - известны, описывать их не нужно). Для описания переменных используют синтаксис:
var <список идентификаторов переменных>:<тип 1>; <список идентификаторов переменных>:<тип 2>; и т д. Конкретно:
Var a,b,c,diskr : real;

Запишем начало программы:
Program Uravnenie; {Это заголовок. Он не обязателен, но рекомендуется.}
Var a,b,c,diskr,x1,x2: real;
begin
write('Введите a,b,c (3 числа, разделяя пробелом)');
readln(a,b,c);
diskr := b*b - 4*a*c; {Здесь вычисляем дискриминант. См примечания}
........
end.

Примечания:

• В тексте программы пробелы и переходы на новую строку являются РАЗДЕЛИТЕЛЯМИ. Они отделяют элементы текста программы - лексемы (например - идентификаторы) друг от друга. Видим, что знак * "по совместительству" также играет роль разделителя. Подробнее об этом в лекции 1.
• Запись: b² - 4*a*c - частный случай ВЫРАЖЕНИЯ. Выражение определяет действия (здесь - арифметические) над ОПЕРАНДАМИ, используя знаки ОПЕРАЦИЙ (здесь - арифметических), скобки. Операндами служат: переменные, константы, ФУНКЦИИ, выражения в скобках.

  Важно: - выражение имеет тип. Это тип результата вычисления выражения (пять основных типов: целые числа, вещественные числа, символы и строки символов, булевские данные и указатели. Типы данных рассмотрим далее в лекциях. Подробнее о типах данных ).

• := - первый в этом учебнике пример ОПЕРАТОРА. Операторы определяют действия, выполняемые программой. Это оператор присваивания. Его синтаксис:
  <Переменная или элемент структуры> := <выражение>; Выполняется оператор так:
  - вычисляется выражение, стоящее справа от :=
  - результат вычисления присваивается переменной, расположенной слева от := .
  Конкретно, пусть b=8, a=2, b=1 (введено с клавиатуры). Тогда 8*8 - 4*2*1 = 56. В результате выполнения оператора := diskr будет равен 56.
• {} - Знак комментария. Текст внутри {} не влияет на выполнение программы, являясь просто пояснением.
• О структуре этой программы: после заголовка стоят описания: констант, типов, меток, переменных, подпрограмм. Здесь нужно только описание переменных (потому что в программе нет меток, самодельных типов, констант, подпрограмм). Еще о структуре программы
• Для ввода русского текста нужна резидентная программа-русификатор. Или копирование из редактора, поддерживающего кодировку MS DOS (например, Aditor). Или используйте Free Pascal.

Продолжим текст программы:
x1 := (-b + sqrt(diskr))/(2*a);
x2 := (-b - sqrt(diskr))/(2*a);
{Предполагается, что diskr > 0. Другую возможность рассмотрим позже.}

Осталось вывести результаты:
writeln('X1 = ',x1:0:3,' X2 = ',x2:0:3);

Снова нужны примечания:

• То, что в скобках правее writeln, называется СПИСОК ПАРАМЕТРОВ процедуры. Параметры разделены запятыми. Каждый из них есть выражение (не забывайте, что переменная и константа - простейший частный случай выражения, как x1, x2).Выражения 'X1 = ' и ' X2 = ' - это строковые (текстовые) константы. Они будут выведены как есть, а для x1,x2 будут выведены значения этих переменных.
• Правее первого : ставят число позиций (литер), отводимых под вывод параметра. 0 означает - минимум. Правее второго : (только для вещественных чисел) - число цифр справа от десятичной запятой.

Теперь запишем программу целиком:
Program Uravnenie;
Var a,b,c,diskr,x1,x2: real;
begin
write('Введите a,b,c (3 числа, разделяя пробелом)');
readln(a,b,c);
diskr := b*b - 4*a*c;
x1 := (-b + sqrt(diskr))/(2*a);
x2 := (-b - sqrt(diskr))/(2*a);
writeln('X1 = ',x1:0:3,' X2 = ',x2:0:3);
end. {В конце, после end - обязательно ТОЧКА !}

Запустим turbo.exe, уберем окна других программ (если есть) - щелкнув по закрывающей кнопке (вверху, слева, зелёная).Создадим новое окно (для нашей проргаммы): Меню\File\New. Можно вписать программу, но для облегчения можно копировать текст программы:
- Как обычно - выделите мышкой текст, нажмите Ctrl-C (или Меню\Правка\Копировать)
- перейдите в окно Turbo, правый щелчок по заголовку окна, выберите: Изменить\Вставить.
Примечание: при этом правильно воспроизводится русский текст!

Полезно сразу же сохранить файл: Меню\File\Save as. Введите в окошко "Save file as" имя программы, например, Uravn2, Нажмите кнопку ОК. Имя файла появится в верхней строке. В папку, где turbo.exe добавится файл Uravn2.pas

Если Вы подведете курсор к существующему в Паскале слову (например: program, write, readln, var, real и т п) и нажмете Ctrl-F1, то появится справка (на русском, если у Вас русифицированный файл turbo.tph) об этом термине. Язык, правда, тяжеловат для начинающего, но все-таки это очень полезная вещь. В Делфи - то же, но нажимаем F1

Запустим на выполнение: Меню\Run\Run или клавиши: Ctrl-F9. Но результаты программы выводятся на другой экран. Чтобы его увидеть, нажмите Alt-F5.

Можно сделать иначе: перед end вызвать процедуру readln. Тогда экран останется - до нажатия клавиши Enter.

В любом случае в папке появится файл Uravn2.exe - результат компиляции программы. Этот файл исполняемый, его можно копировать на другую машину и исполнить (выделить имя файла в проводнике (обзоре) и нажать Enter). Для продолжения работы с программой запустите turbo.exe, и чтобы открыть программу, нажмите F3 или Меню\File\Open, затем выберите свой файл (uravn2.pas) из окошка.
Выходить из этой среды (IDE) удобно клавишами Alt-X.

Далее рассмотрим борьбу с ошибками.