Назад Оглавление Дальше Первая программа - продолжение


В начале программы мы должны описать придуманные нами идентификаторы (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.

Примечания:

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

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

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

Теперь запишем программу целиком:
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.

sqrt pascal

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

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

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

Назад Дальше

Rambler's Top100
Hosted by uCoz