Pascal Next. Руководство программиста

Никита Борисович Культин, 2023

Книга представляет собой описание нового языка программирования Pascal Next, в основе которого лежит классический Pascal. Содержит примеры программ, демонстрирующие возможности языка программирования: операции ввода-вывода, использование циклов, работу с массивами, строками, файлами, встроенными и пользовательскими функциями. Книга адресована тем, кто интересуется программированием, знаком с основами программирования, знает с какой-либо язык программирования и имеет навык разработки компьютерных программ начального уровня. Также она будет весьма полезна учителям школ, преподавателям техникумов и вузов, читающим лекции и ведущим практические занятия по дисциплинам Информатика, Программирование, Алгоритмизация и программирование, Теория и технологии программирования.

Структура программы

Программа Pascal Next представляет собой совокупность процедур и функций.

Главная процедура, с инструкций которой начинается выполнение программы, обозначается идентификатором program. Все остальные процедуры обозначаются идентификатором procedure, функции — идентификатором function.

Простейшая программа представляет собой одну единственную процедуру program и в общем случае выглядит так:

program имя()

var

// здесь объявления переменных

begin

// здесь выполняемые инструкции

end.

Пример:

// пересчет веса из фунтов в килограммы

program p1()

var

fnt: float; // вес в фунтах

kg: float; // вес в килограммах

begin

write('Вес в фунтах >');

readln(fnt);

kg:= fnt * 0.495; // 1 кг = 495 гр

writeln(fnt:6:2, ' фнт. = ', kg:6:3, 'кг');

writeln('Press <Enter>');

readln;

end.

Перед разделом var может быть раздел const (раздел именованных констант), в который программист может поместить объявления констант, используемых в программе.

// пересчет веса из фунтов в килограммы

program p1()

const

K = 0.495; // коэф. пересчета из фунтов в кг

var

fnt: float; // вес в фунтах

kg: float; // вес в килограммах

begin

write('Вес в фунтах >');

readln(fnt);

kg:= fnt * K;

writeln(fnt:6:2, ' фнт. = ', kg:6:3, 'кг');

writeln('Press <Enter>');

readln;

end.