Книга: Основы программирования на языке Паскаль

a,b,c: real;

L25,L3: boolean;

FAZA: byte;

В этом случае все описанные идентификаторы можно применять в программе. Работа этого раздела будет заключаться в том, что машина выделит две ячейки памяти с именами k и n. В ячейках могут храниться только целые числа: в ячейках с именами S,T,Z – по одному символу; в ячейках a,b,c – только величины типа вещественных чисел; в L25 и L3 –величины true и FALSE, а в ячейке с именем FAZA – только числа от 0 до 255. Если попытаться, например, в ячейку S поместить не символ, а число, то это приведет к ошибке, т.е. правильно S:= ¢A¢; или S:= ¢$¢; или S:= ¢1¢; однако неверно S:= 1 (1 – число в отличие от ¢1¢ – символа). Если в процессе выполнения программы данное не меняется, то его можно описать в разделе "Описания констант":

Const

A=36.74; B=true;

С = ¢ а ¢ ;

Здесь тоже выделяются ячейки памяти с именами А,В,С для хранения заданных величин, которые не подлежат изменению.

Допустимо описание констант-выражений:

C o nst

М = (32.5 + 0.64) / 3.14;

Кроме того, машина "знает", чему равны константы е и π .

Пример. Составить программу для вычисления выражения

, где величины R, а, S, L, K вводятся с клавиатуры.

Пусть k, l - целые числа, остальные – вещественные.

Program Prim2,

Var k,L:integer;

Y,R, a ,S : real; {здесь для хранения результата y тоже}

{нужна ячейка памяти}

Begin writeln ('введите це', {выдача на экран текста, указанного в}

'лое k,L, действительные' {кавычках; обратите внимание на прави-}

'R,а,S'); {ло переноса текста в операторе writeln:}

{если нужно перенести текст, то ставится} {закрывающий апостроф, затем запятая,}

{новая строка вновь начинается с апострофа}

readln (k,L,R,a,S);

Y: = 1-l(l+sqr(r * a/k))/(exp(2)/sqr(s) * sqr(l+r * a/l));

writeln ( Y ); readln ;

END .

То же самое будет, если записать программу: