Лабораторная работа 9. «Знакомство с редактором Turbo Pascal»

Цель: изучение структуры окна и системы меню интегрированной среды программирования Turbo Pascal, изучение стандартных процедур ввода-вывода данных, применения оператора присваивания, изучить оператор условия.

Задачи:

5. Изучить структуру окна и меню Turbo Pascal.

6. Изучить стандартные процедуры ввода-вывода данных.

7. Ознакомиться с условным оператором

8. Выполнить задания по теме.

9. Оформить отчет по лабораторной работе и представить преподавателю.

Краткая теория по теме:

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

Структура окна среды программирования TP:

1. В верхней части экрана расположена главное меню (File, Edit, Search и т.д.)

2. Средняя часть экрана – рабочее поле для ввода текста программ. В верхней части рамки рабочего поля расположены: кнопка закрытия файла, имя файла, номер окна, кнопка «свернуть – восстановить». Справа и снизу расположены полосы прокрутки. В левом нижнем углу рамки указаны текущие координаты курсора.

3. В нижней части экрана расположена строка, содержащая информацию о назначении основных функциональных клавиш.

Главное меню: ( F10 - выход в меню )

File - меню работы с файлами;

Edit - меню редактора;

Search - меню службы поиска;

Run - меню запуска программы;

Compile - меню компиляции;

Debug - меню отладки;

Options - меню установок;

Window - меню окон;

Help - меню справочной службы.

Горячие клавиши :

F1 – справочная система

F2 – сохранить файл

F3 – открыть файл

F5 – увеличить окно отладки на весь экран, повторное нажатие возвращает окно к первоначальному состоянию

F7 – пошаговое выполнение программы

Ctrl + F9 – компиляция и выполнение программы

Alt + F5 – просмотр результатов в окне пользователя

Alt + X – выход из среды программирования TP

Ctrl+F2 - прекратить отладку (убрать голубую полосу); Ctrl+F8 – красную полосу.

Ctrl+F4 - просмотр значения переменной из редактора;

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

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

Program Name; { название программы без пробелов }

{ разделы описаний записываются по мере надобности }

Uses - раздел объявления модулей;

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

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

type - раздел описания нестандартных типов;

var - раздел описания переменных (используется чаще всего);

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

procedure - раздел описания процедур;

{ основная программа }

Begin

{ тело основной программы }

Readkey; или Readln; - ожидание нажатия клавиши (Enter) для просмотра результата.

End.

Зарезервированные слова нельзя использовать в качестве имен переменных, констант, функций, процедур и типов. Текст программы может записываться как большими, так и маленькими буквами. Русские буквы используются только для комментариев, которые записываются двумя способами: { текст комментария } или (* текст комментария *).

Задание 1. Набрать готовую программу вычисления площади прямоугольника S=a*b.

Б лок-схема:

Program Area; Uses crt; { Л И Н Е Й Н А Я ПРОГРАММА}

var a,b,s: real; { описание переменных. Тип вещественный }

Begin { начало программы S }

ClrScr; { очистка экрана. От англ. CLeaR SCReen }

write('a='); readln(a); {ввод длины и переход на следующую строку}

write('b='); readln(b); {ввод ширины и переход на следующую строку}

s:=a*b; { вычисление по формуле }

write('S=',s); { вывод результата на экран }

readkey; {удержание изображения до нажатия клавиши}

End. { конец программы Area }

Запустить программу. Получить результат.

Задание 2. Составьте алгоритм и программу в соответствии с вариантом.

1. Вычислить площадь круга:

2. Вычислить площадь треугольника:

3. Вычислить выражение: Y=Sin(a+b/2)

4. Вычислить гипотенузу и площадь прямоугольного треугольника, катеты которого равны: a и b

5. Вычислить площади правильного треугольника, вписанного в окружность с радиусом r.

6. Вычислить объема прямой призмы с боковым ребром l = 12 см., в основании которой ромб со стороной a = 5 см. и острым углом .

7. Вычислить площадь кольца, внутренний радиус которого r = 20 см., а внешний R = 27 см.

8. Вычислить периметр прямоугольного треугольника. Катет a = 16 см., гипотенуза с = 20 см.

9. Вычислить объем пирамиды, в основании которой лежит прямоугольник. Стороны прямоугольника равны: a, b высота -h (проверить программу при a = 6 см., b = 4 см., высота h = 10 см).

10. Вычислить площадь прямоугольного треугольника, если радиус описанной около него окружности R = 18 см., угол между гипотенузой и катетом

Оператор условного перехода.

Ветвление – это такая форма организации действий, при которой в зависимости от выполнения или невыполнения некоторого условия совершается либо одна, либо другая последовательность действий. Каждое отдельное направление вычислений называется ветвью. Выбор ветви осуществляется в результате проверки логического условия.

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

Выбор действия в зависимости от выполнения условия может быть реализован при помощи оператора IF.

Неполная форма: IF условие THEN серия;

Условие - это логическое выражение, принимающее значение истина или ложь.

Выполняется инструкция так: если условие истинно, то выполняется серия, иначе выполняется следующая за IF..THEN инструкция. Серия - один оператор языка.

Полная форма : IF условие THEN серия1

ELSE серия2;

Если условие истинно, то выполняется серия1 , иначе выполняется серия2.

Перед словом ELSE точка с запятой не ставится!

При сложных условиях применяются логические связки:

And - истинно, когда истинны все составляющие логические выражение

Пример: ((x>=0) and (x<=5)) истинно для x из интервала [0;5] и ложно при x=6

Not - истинно, когда ложно исходное логическое выражение

Пример: not(x>=0) истинно для x=-5 и ложно для x=6

Or - истинно, когда истинно хотя бы одно из логических выражений

Пример: ((a<5) or (a>9)) истинно для a=2 и ложно для a=6

Пример 1. Найти большее из двух чисел а и b.

Б лок-схема:

Program Bid; Uses crt;

var a,b,max: integer;

Begin

ClrScr;

write(' Введите целое число а='); readln(a);

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

if a>=b then max:=a { если условие =true,то max:=а }

else max:=b; { если условие =false,то max:=b }

writeln('Max=',max);

readkey;

End.

Задание 3. Составьте алгоритм и программу в соответствии с вариантом

1. Ввести два числа. Выдать на печать сумму чисел, если числа больше 10 и меньше 35.

2. Ввести два числа. Большее число возвести в третью степень, а меньшее увеличить на 10. На печать выдать сумму полученных чисел.

3. Ввести два числа. Если оба числа равны 5,5, то выдать их на печать, иначе удвоить число не равное 5,5.

4. Ввести два числа. Если первое число больше второго, ввести еще одно число. Выдать на печать сумму всех чисел, если они больше 150.

5. Ввести два числа. Из большего числа вычесть 100, а меньшее удвоить. На печать выдать произведение полученных чисел.

6. Ввести два числа. Если числа равны, то вывести на печать оба числа, иначе большее из чисел.

7. Ввести два числа. Если оба числа отрицательные, то сменить им знаки. На печать выдать среднее арифметическое полученных чисел.

8. Ввести два числа. Уменьшить первое число в 3 раза, второе увеличить на 5. Если сумма полученных чисел меньше 10,5, то вывести их на печать, иначе вывести на печать разность введенных чисел.

9. Ввести два числа. Если они равны, то выдать на печать их сумму, если не равны, то меньшее из чисел.

10. Ввести два числа. Если среднее арифметическое этих чисел больше 120, то уменьшить их на 10, иначе возвести в квадрат.

Пример 2. Вычислить значение переменной Y, если

Блок – схема:

Листинг программы:

Program L_3;

Var

X, Y: real;

BEGIN

Writeln(‘введите значение X’);

Readln (X);

If X = 0 Then Y:= 0 {проверка 1-го условия}

Else If X < 0 Then Y :=X² {проверка 2-го условия}

Else Y := -X;

Write(‘результат Y = ’, Y:4:2);

END.

End.