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

[Заголовок программы] program_имя

[Раздел используемых модулей] uses_имя1, имя2

Раздел описаний:

1.раздел объявления меток;

2.раздел объявления констант;

3.раздел объявления типов;

4.раздел объявления переменных;

5.раздел объявления процедур и функций;

6.раздел оператооров.

Структура программы в общем виде выглядит следующим образом:

Program_имя; (имя программы)

Uses имя1; (имена подключаемых библиотек)

label { объявления меток } const { объявления констант ) type { объявления типов } var { объявления переменных } { объявления процедур и функций программиста } begin { инструкции основной программы}

end.

+ программа может содержать комментарии - {надпись между такими скобками}

Пример программы:

Program triang;{вычисление площади треугольника}

Var a,b,c,p,s:real;

Begin

read(a,b,c);

writeln(a,b,c);

p=(a+b+c)/2;

s=Sqrt((p-a)*(p-b)*(p-c)*p);

writeln(‘s=’,s:8:3);

end.

34. Оператор выбора «case».

Оператор выбора case Общий вид этого оператора: case <селектор> of < альтернатива 1 > : < оператор 1>; < альтернатива 2>:< оператор 2 >; < альтернатива N >: < оператор N > else < оператор части Else> end; Case и of — зарезервированные слова, которые являются отличительным признаком оператора множественного ветвления. Селектор — это переменная или выражение порядкового типа. В зависимости от значения данного выражения или переменной происходит ветвление программы. После заголовка оператора идет перечисление различных альтернатив, по которым может выполняться программа. Альтернативы отделяются друг от друга точкой с запятой. Используемая в операторе case метка может состоять из констант и диапазонов. Диапазоны значений в Паскале — это два крайних значения, написанные через двоеточие. Такая запись эквивалентна перечислению всех целых чисел в данном диапазоне. Часть оператора case, состоящая из слова else и последнего альтернативного варианта, является необязательной, она выполняется в том случае, если вычисленный в программе селектор не соответствует ни одной из перечисленных выше альтернатив. Если эта часть оператора case отсутствует, а селектор не подходит ни под одну из альтернатив, то оператор case не выполнит никаких действий. Завершается оператор case обязательным словом end;

Пример использования оператора case:

program number; { Определение времени года по номеру месяца}

var

month: integer; {номер месяца}

begin

write (’Введите номер месяца:’);

readln (month);

writeln (‘Время года:’);

case month of

1, 2, 12: writeln (’зима’);

3..5: writeln (’весна’);

6..8: writeln (’лето’);

9..11: writeln (’осень’);

else writeln (’число должно быть от 1 до 12’);

end;

end.

35.=17.

36. Операторы ввода/вывода данных.

Для ввода данных с клавиатуры используется оператор Read([F],S) , ReadLn([F],S) ,

Где [F] – файловая переменная, а S – список переменных (м.б. несколько). Операторы позволяют водить значения с клавиатуры в переменные S. При выполнении этого оператора на экране монитора возникнет курсор.После этого Вы должны набрать на клавиатуре нужное число и нажать клавишу Enter.

ReadLn(S) – выравнивание курсором, каждое значение выводится на новой строке: 4

7

12

Read(S) – ввод с клавиатуры, курсор остается в той же строке: 4; 7; 12.

Для вывода информации на экран используют оператор Write([F],S), WriteLn ([F],S),

где [F] – файловая переменная, а S – список переменных (м.б. несколько).

Для того, чтобы вывести текстовое сообщение на экран, его необходимо ограничить специальными кавычками, роль которых играет знак апострофа. Например: Write('Эта строка, от апострофа до апострофа, будет выведена.');

Можно вывести значение, объявленной раннее переменной. Для этого необходимо просто указать её имя. Например:

Write(a);Выводить можно и текстовые сообщения и значения переменных одновременно. Например:

Write('Значение переменной а равно ',a);

Элементы выводимой информации отделяются друг от друга запятыми. Выражения в тексте программы взятые в фигурные скобки, являются комментариями и компилятором игнорируются.