действие
действие
нет условие да
{пример реализации предыдущего алгоритма с
использованием цикла repeat} rQ := 0.5;
rB := 100; Repeat
rS := rS + rB; rS := rB*rQ; Until rB<0.0001;
Практически во всех случаях эти три цикла взаимозаменяемы, однако существуют такие условия, в которых применение какого-то определённого цикла упрощает понимание кода программы.
2.4.8.3 Процедуры ввода-вывода
Ввод и вывод данных также является основной единицей программирования, потому что любая программа – это обработка информации, которую необходимо предварительно ввести, и результат обработки которой необходимо вывести.
Для ввода и вывода данных используются стандартные процедуры ввода и вывода Read и Write
25
(Readln, Writeln). Окончание “-ln” означает лишь возврат каретки (переход на следующую строку).
Read(а1,а2,...,аn); - считывает с клавиатуры введённые значения в переменные а1,а2,...,аn. Для а1,а2,...,аn допустимы типы:
целые; вещественные; символьные; строковые.
Если в процедуру ReadLn не передаются никакие параметры (т.е. записано «ReadLn;»), происходит считывание значения «вникуда».
Write(а1,а2,...,аn); - выводит значения переменных а1,а2,...,аn без пробелов между ними. Для а допустимы типы:
целые; вещественные; символьные; строковые; булевские.
Кроме переменных в процедуре Write /Writeln могут использоваться также выражения данных типов.
Если в процедуру WriteLn не передаются никакие параметры (т.е. записывается «WriteLn;»), то происходит возврат каретки.
Вывод каждого значения в строку экрана происходит в соответствии с шириной поля вывода, определяемой конкретной реализацией языка.
Оператор вывода позволяет задать ширину поля вывода для каждого элемента списка вывода. В этом случае элемент списка вывода имеет вид А:К, где А - выражение или строка, К - выражение либо константа целого типа. Если выводимое значение занимает в поле вывода
26
меньше позиций, чем К, то перед этим значением располагаются пробелы. Если выводимое значение не помещается в ширину поля К, то для этого значения будет отведено необходимое количество позиций. Для величин действительного типа элемент списка вывода может иметь вид А:К:М, где А - переменная или выражение действительного типа, К - ширина поля вывода, М - число цифр дробной части выводимого значения. К и М - выражения или константы целого типа. В этом случае действительные значения выводятся в форме десятичного числа с фиксированной точкой.
WriteLn(‘А = ’, 5);
При этом на экран будет выведено:
A = 5
ReadLn(iA, iB);
При этом на экране появится курсор. При нажатии Enter («Ввод»), введённое значение будет присвоено переменной Ia (если была введена пустая строка, т.е. нажата клавиша Enter, значение будет запрошено ещё раз, а если тип введённых данных не соответствует типу переменной
–произойдёт ошибка), затем операция повторится для Ib.
2.4.8.4Операторы выхода
Внекоторых случаях возникает необходимость завершения выполнения программы, самой программой.
Для завершения работы программ, процедур и функций без предварительного перехода по меткам к за-
крывающему end в Pascal введены процедуры Exit и Halt.
27
Вызов Exit завершает работу своего программного блока и передает управление вызывающей программе. Если Exit выполняется в подпрограмме, то выполнение этой подпрограммы прекратится, и далее будет выполняться следующий за вызовом этой подпрограммы оператор. Если Exit выполняется в основной программе, выход из нее будет эквивалентен ее нормальному завершению.
Вызов процедуры Halt, где бы она не находилась, завершает работу программы и передает управление операционной системе.
Процедура Halt имеет структуру Halt(n), где n - код возврата, который может быть проанализирован операционной системой с помощью команды If Errorlevel. Значение n=0 соответствует нормальному завершению работы программы. Вызов процедуры Halt без параметра эквивалентен
вызову Halt(0).
Пример программы на паскале:
{программа предназначена для демонстрации структуры программ
на Паскале} program simple;
uses
{Подключение модулей crt и graph} crt, graph;
label start_of_program;
const
{задание значения константе пи}
28
Pi = 3.14159265;
{задание значения константе n}
N = 10;
type
{объявление собственного типа, в частности далее будет описано, что это описание типа массива вещественных чисел}
Tmass = array[1..10] of real;
var
arMass: Tmass; {объявление переменной mass типа Tmass}
iI, iJ,
iZelaya: integer; rVeshestv: real;
byA, byB, byC, byS: byte;
begin
start_of_program: {метка} readln(byA); {ввод данных} readln(byB);
readln(byC);
readln(byS);
for Ii:=1 to n do {пример использова-
ния цикла с параметром} begin
{пример составного оператора (начинается со слова begin и заканчивается словом end)}
arMass[iI]:=57;
29