2. Выполните следующие задания:

Задание 1:

а) Введите и исполните данную группу операторов:

begin

writeln(‘x’);

writeln(pi);

writeln(13 div 5);

writeln(12>3);

end.

б) измените группу операторов так, чтобы на экран выводился остаток целочисленного деления 13 на 5;

в) измените строку writeln(12>3), чтобы на экране появился результат false;

г) измените строку writeln(pi) следующим образом: writeln(pi:5:2) и посмотрите, как изменится выводимый результат.

Задание 2: Введите и исполните группу операторов, находящую по заданному радиусу окружности площадь круга:

Var R,S:Real;

begin

writeln(‘Введите радиус круга’);

read (R);

S:=pi*SQR(R);

writeln(‘площадь круга S=’, S:8:2);

end.

3. Запишите группу операторов, находящую площадь кольца, если известна его толщина d и радиус внутренней окружности r, и проверьте ее работу на ЭВМ.

4. Контрольные вопросы.

1. Определить типы, в диапазон которых могли бы входить следующие значения:

а) -5; в) '5.3'; д) -3.501; ж) -32769;

б) 32768; г) '1'; е) '*'; з) true;

и) 250; к) 0; л) -32768; м) 1.0

2. Укажите ошибочные записи в описании переменных:

а) Var б) Vav

a,b,c:integer; ch,hc:shar;

x,c,y:read; sa,df,j;boolean;

в) Var

p,q,r: bite;

g,r,tit: real;

2. Найдите правильно записанные операторы ввода и вывода:

а) writle(a,b); г) readn ( x,y);

б) write( r, ‘ ‘, f); д) writeln(‘нет’,ch);

в) read (g,h); е) readln(n);

Тема: Линейные программы.

1. Теория.

В самом начале любой программы, написанной на языке Паскаль, присутствует заголовок (или имя) программы. За заголовком следует блок программы, который состоит из двух основных разделов:

- раздел описаний;

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

В заголовке программы за служебным словом PROGRAM расположено имя программы.

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

Раздел описания состоит из следующих основных частей:

- раздел описания меток;

После служебного слова LABEL следует список отделенных друг от друга запятыми имен меток, используемых в программе.

• раздел описания констант;

В начале раздела пишется служебное слово CONST, за которым следует список выражений, постоянных значений.

Записи в списке отделяются друг от друга точкой с запятой.

• раздел определения типов;

Данный раздел начинается со служебного слова TYPE, следом за которым идет одно или несколько описаний типов по всем правилам языка Паскаль.

- раздел определения переменных;

Начинается раздел описания переменных со служебного слова VAR (variable- переменная), за которым следует список идентификаторов переменных с указанием через двоеточие типов этих переменных.

- раздел описания процедур и функций.

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

Следует заметить, что любой из перечисленных разделов может вообще отсутствовать.

Раздел операторов является самым последним в блоке программы. Он задает те действия, которые должна выполнить программа в процессе своей работы после запуска.

Раздел начинается со служебного слова BEGIN (начало) и завершается словом END (конец) с точкой после него.

Пример:

PROGRAM <имя_программы>;

|Разделы |

| описаний |

Begin

| |

| Действия |

| |

End.

2. Наберите программу, находящую сумму цифр натурального трехзначного числа, введенного с клавиатуры.

Program Summa;

Var

a,b,c,s,x:integer;

Begin

Read(x);

a:= x div 100;

b:= (x div 10) mod 10;

c:= x mod 10;

s:=a+b+c;

write(‘сумма цифр числа равна’, s);

end.