Структурные операторы

1) Составной оператор

Begin <Составной оператор> End;

2) Условные операторы

· If <Условие> then [begin] <Операторы> [End] else [begin] <Операторы> [end];

· Case <Переменная> of

<Значение>: [begin] <Операторы> [End];

…

<Значение>: [begin] <Операторы> [End];

End;

3) Циклические операторы

· While <Условие> do [begin] <Операторы> [End];

· Repeat <Операторы> until <Условие>;

· For <Счётчик>:=<Начальное значение> to <Конечное значение> do

[Begin] <Операторы> [End];

· For <Счётчик>:=<Начальное значение> downto <Конечное значение> do

[Begin] <Операторы> [End];

 

Выполнение работы:

1. Запустить среду программирования Turbo Pascal (C:\BP\BIN\Turbo.exe).

2. Набрать код программы.

3. Запустить программу командой Runà Run или сочетанием клавиш <Ctrl+F9>.

4. Сохранить код программы в файле.pas командой Fileà Save as.

5. Создать exe-файл программы (Compileà Destinationà Disk).

Задания:

1. Создайте программу определения стоимости набора конфет, в который вхо­дят следующие сорта:

Наименование	Количество, г	Цена, руб.
Красная шапочка		k
Воронежские		b
Алые паруса		а
Чародейка		v

2. Даны круг и квадрат. Создайте программу, определяющую по введенным значениям длин стороны квадрата и радиуса круга, верно ли утверждение «Круг вписан в квадрат» (используйте логическую величину Result, принимающую значение True, если утверждение истинно, и значение False, если утверждение ложно).

3. Создайте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа. Например: сумма цифр числа 128 равна 11, сумма цифр числа 345 равна 12.

4. Создайте программу, вычисляющую по введенному значению текущего времени (часов, минут, секунд) угол (в градусах) между положением часовой стрелки в начале суток и ее положением в текущее время. Например, если текущее время составляет 3 ч 30 мин 00 с, то этот угол составит 105°.

5. Напишите программу-модель анализа работы пожарного датчика в помещении, которая выводит сообщение «Пожароопасная ситуация», если температура (в нашей модели она будет вводиться с клавиатуры) в комнате превысила 60 °С.

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

7. Рис расфасован в два пакета. Вес первого – m [кг], второго – n [кг]. Со­здайте программу, определяющую: 1) какой пакет тяжелее – первый или второй; 2) вес более тяжелого пакета.

8. Создайте программу, проверяющую, верно ли утверждение, что введенное целое число является четным.

9. Создайте программу, проверяющую, верно ли утверждение, что введенное целое число делится без остатка на 3.

10. Напишите программу, которая анализирует возраст человека и относит его к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Воз­раст вводится с клавиатуры.

11. Создайте программу, определяющую, входит ли введенная цифра в деся­тичную запись введенного трехзначного числа, и печатающую сообщение о том, входит ли эта цифра в запись числа или нет.

12. Создайте программу, определяющую, лежит ли точка с указанными коор­динатами X, Y на окружности радиусом R с центром в начале координат.

13. Создайте программу, определяющую, пройдет ли график функции у=5х²-7х+2 через заданную точку с координатами (а, b).

14. К финалу конкурса лучшего по профессии «Специалист электронного офи­са» были допущены трое: Иванов, Петров, Сидоров. Соревнования прохо­дили в три тура. Иванов в первом туре набрал m₁ баллов, во втором – n₁, в третьем – р₁. Петров — соответственно - m₂, n₂, р₂; Сидоров - m₃, n₃, р₃. Создайте программу, определяющую, сколько баллов набрал победитель.

15. Создайте программу, которая по трем введенным числам определит, могут ли эти числа быть длинами сторон треугольника, и если да, то каков будет тип полученного треугольника с данными длинами сторон (прямоугольный, остроугольный, тупоугольный).

 

 

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

1. Для чего указывается тип данных переменной?

2. Чем отличаются операторы Read от ReadLn и Write от WriteLn?

3. Как работает оператор If…then…else?

4. Что такое цикл?

5. Чем отличается цикл While от цикла Repeat?

6. Как можно заменить цикл For циклом While?

 

Содержание отчёта:

1. Номер, тема, цель работы.

2. Результаты работы в распечатанном виде.

3. Ответы на контрольные вопросы.

4. Вывод.

Отчёт по лабораторной работе №18

 

Тема:

Цель работы:

Выполнение работы:

 

 

Ответы на контрольные вопросы:

1.

 

2.

 

3.

 

4.

 

5.

 

6.

 

Вывод: