Задания к лабораторной работе 13.

Составьте блок-схемы для следующих задач:

1. Для вычисления периметра прямоугольника.

2. Для вычисления площади трапеции.

3. Задана окружность радиуса R. Составьте программу для нахождения ее длины и площади ограниченного ею круга.

4. Для вычисления длин высот треугольника, у которого длины сторон a, b, c.

5. Для вычисления длин медиан треугольника, у которого длины сторон a, b, c.

6. Для вычисления площади прямоугольного треугольника по его катетам a и b.

7. Складывающую две обыкновенные дроби.

8. Находящую разность двух обыкновенных дробей.

9. Умножающую две обыкновенные дроби.

10. Делящую две обыкновенные дроби.

Лабораторная работа №14-15. Основы языка Паскаль

Тема: Введение в язык Паскаль. Программы линейной структуры. Условные операторы. Циклические операторы.

Цель работы: ознакомление со структурой программы на языке Паскаль, изучение правил записи выражений, процедуры ввода и вывода данных. Изучение условных операторов и операторов цикла.

Оформление лабораторной работы на компьютере, должно включать следующие пункты:

1. Условие задачи.

2. Текст программы (с комментариями).

3. Проверка работы программы на тестовых значениях (не менее трех).

Стандартные процедуры ввода и вывода

Рассмотрим простейшие процедуры ввода и вывода. По умолчанию ввод осуществляется с клавиатуры, а вывод на экран. К операторам ввода относятся:

Read(<список переменных через запятую>);

Readln(<список переменных>);

Readln;

Второй отличается от первого тем, что после ввода переводит курсор на новую строку, точнее, в конце своей работы считывает с клавиатуры код клавиши <Enter>. Третий оператор используется для организации паузы - выполнение программы продолжится, как правило, только после нажатия на клавиатуре клавиши <Enter>. К операторам вывода относятся:

Write(<список вывода>);

Writeln(<список вывода>);

Writeln;

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

Существует так называемый форматированный вывод. Можно задать количество позиций, отводимых под число. Для целых - после выражения или переменной через двоеточие указывается меньше какого количества позиций не может быть выделено значению. Для вещественных - дополнительно через двоеточие можно указать количество цифр в дробной части. При этом происходит округление в ближнюю сторону.

ПРИМЕР. Написать программу вычисления площади параллелограмма.

 program _Ploshad; uses crt;

var dlina, shirina, S: real;

begin ClrScr; Writeln('Вычисление площади параллелограмма.'); WriteLn('Введите исходные данные:'); write('Длина = '); readln(dlina); write('Ширина = '); readln(shirina);

S:= dlina*shirina; writeln('Площадь параллелограмма равна: ', S:4:2);

end.

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

В языке Паскаль имеется возможность нелинейного хода программы, т.е. выполнения операторов не в том порядке, в котором они записаны. Такую возможность нам предоставляют разветвляющиеся алгоритмы. Они могут быть реализованы одним из трех способов: с использованием операторов перехода, условного оператора или оператора Условный оператор IF позволяет изменить порядок выполнения команд в зависимости от некоторого логического условия, т.е. он осуществляет ветвление вычислительного процесса. Условный оператор имеет вид:

IF <условие> THEN <оператор1> [ELSE <оператор2>];

В случае истиности логического выражения, стоящего в условии, выполняется <оператор1>, а <оператор2> пропускается. При ложном значении логического выражения пропускается <оператор1> и выполняется <оператор2>.

Оператор IF может быть полным (присутствуют обе ветви) или неполным (Else-ветви нет, при ложном условии ничего не делается). По правилам каждая из ветвей может содержать либо один выполняемый оператор, либо несколько, объединенных в составной. Точка с запятой перед Else считается ошибкой.

ПРИМЕР: Ввести целое число. Вывести соответствующий ему символ ASCII-таблицы, либо сообщить, что такого символа нет (0-31 - управляющие коды, затем до 256 - печатаемые символы).

program ascii_symbol;

var i:word;

begin

write('Введите целое число: '); readln(i);

if (i>31) and (i<256) then

writeln('Соответствующий символ - ', Chr(i))

else writeln('Такого символа нет');

readln

end.