Задание

1. Используя значения для площади треугольника и его сторон (см. задачу, приведенную выше), вычислить высоты треугольника к соответствующим сто­ронам по формулам: h_a = 2s/a, h_b = 2s/b, h_c = 2s/c.

2. Зная радиус, вычислить длину окружности, площадь круга и объем шара по формулам: 1 = 2тгг, s = тгг², v = (4/3)тгг³.

3. Вычислить площадь и периметр прямоугольника со сторонами а и b по формулам: s = a*b, p = 2 (a+b).

4. Вычислить площадь трапеции со сторонами основания а и b и высотой h по формуле: s = c*h, где с - средняя линия трапеции с = (а+Ь)/2.

5. Поменять значения двух переменных а и Ь: 1) используя третью пере­менную с, 2) не используя третью переменную.

6. Написать программу для вычисления количества прожитых Вами лет.

7. Написать программу, которая запрашивает имя пользователя, а затем приветствует его (например "Здравствуйте, Иван Иванович!").

8. Написать программу, которая по введенному пользователем символу определяла бы его код и наоборот.

9. Написать программу, которая по введенному пользователем целому чис­лу (символу) определяла бы предшествующее и следующее за ним число (сим­вол).

Порядок выполнения работы.

Для выполнения первого задания необходимо войти в среду программирования ABC Pascal и в окне редактирования ввести текст программы, произвести ее отладку и выполнение.

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

Отчет оформляется на стандартных листа формата а4, в котором необходимо привести:

1. Название работы.

2. Постановку задачи.

3. Описание алгоритма (метода) решения.

4. Описание баз данных программы.

5. Текст программы.

6. Результаты работы программы на 2–3 контрольных примерах.

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

МИНОБРНАУКИ РОССИИ

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Тульский государственный университет»

Институт высокоточных систем им. В.П. Грязева

Кафедра Системы автоматического управления

Методические указания к лабораторной работе № 3

СОСТАВНОЙ ОПЕРАТОР. УСЛОВНЫЙ ОПЕРАТОР. ОПЕРАТОР ВЫБОРА.

по дисциплине

ИНФОРМАТИКА

Направление подготовки: 221000 Мехатроника и робототехника

Профиль подготовки: Мехатроника

Квалификация (степень) выпускника: бакалавр

Форма обучения: очная

Тула 2011 г.

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

Теоретические сведения

Оператор перехода

Оператор перехода изменяет последовательность выполнения операторов в программе. Он имеет вид: goto метка;

где метка - целое число без знака в диапазоне 1-9999 или имя метки, указан­ное в разделе описания меток - label. Объявление метки имеет вид:

label метка; Допускается объявлять список меток:

label метка!, метка2, ... , меткаН;

Метка записывается перед помечаемым оператором и отделяется от него двоеточием.

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

Условный оператор предназначен для организации ветвления в про­граммах. Он имеет вид:

if условие then onepamopl else onepamop2;

где onepamopl, onepamop2 - любой оператор языка Паскаль (в том числе и со­ставной оператор), условие - булевское выражение.

При выполнении условного оператора сначала вычисляется значение ло­гического выражения. Если это условие — true, то выполняется оператор, сле­дующий за служебным словом then. В противном случае выполняется опера­тор, следующий за служебным словом else. Например:

if х > 0 then x:=x+l else х:=х-1;

значение переменной jc будет увеличено на 1, если логическое выражение д>0 имеет значение true, либо уменьшено на 1, если значение логического выраже­ния д>0 есть false.

Можно использовать сокращенную форму условного оператора, имею­щую вид:

if условие then оператор;

В условном операторе за служебным словом then и else могут следовать любые операторы языка Паскаль, в том числе и условные, поэтому возможны вложенные условные операторы, например:

if ^х > У then x:=x-y

else if x=y thenx:=0 else у:=у-х;

Пример программы, использующей условный оператор

и оператор перехода

program calculator;

{Программаработает как калькулятор: выполняет операции - сложение, вычитание, деление, умножение}

label

10;

var

a, b, res : real; {операнды и результат}

oper: char; {знак операции]

begin

writeIn л**************************************')-

writeln('******* Программа калькулятор *******');

writeln ('*************************************');

writeln; 10:

write ('Введите операнды '); readln(a,b); write ('Введите знак операции '); readln(oper); if(oper='+') then res:=a+b {сложение}

else if (oper='-') then res:=a-b {вычитание}

else if'(oper•= '*') or (oper= 'x') then res:=a* b {умножение} else if((oper='/') or (oper=':')) and (b<>0) then res:=a/b {деление} else begin

writeln('*** Ошибка! ***'); {недопустимый знак операции или деление на 0} goto 10 end;

writeln( 'Результат: ', res:6:2) end.

Оператор выбора

Оператор выбора (варианта) предназначен для организации ветвления в программе в случае, когда необходимо выполнить один из нескольких опера­торов в зависимости от значения какого-либо выражения. Он имеет вид: case выражение of

Константа1: оператор 1; константа2: оператор2;

конcmanmaN: onepamopN

else оператор {необязательный вариант} end;

Оператор выбора действует следующим образом: если значение выражения равно одной из констант, то выполняется соответствующий ей оператор; затем управление передается за пределы оператора выбора. Если значение выражения не совпадает ни с одной константой, то управление передается либо за пределы оператора выбора, либо на вариант else (если этот вариант присутствует). Вы­ражение может иметь любой стандартный тип, за исключением вещественного.

Пример программы, использующей оператор выбора

program week;

{Программа по введенному номеру определяет день недели}

label 10;

var

п:1..7; {номер дня недели} begin

10: write('Введите номер дня недели: '); readln(n); case n of

1: writeln('понедельник'); 5: writeln('пятница'); 2: writelnC вторник'); 6: writelnC суббота');

3: writelnC среда'); 7: writelnC воскресенье');

4: writeln ('четверг') else begin

writelnC введен несуществующий день недели'); goto 10

end; end {case} end.