Задание 4. Самостоятельное решение задач

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

Табл. 1

№ варианта	Условие	Исходные данные
	Определить расстояние d между двумя точками на плоскости.	Х1, У1, Х2, У2
	Заданы 4 положительных числа. Вычислить их среднее арифметическое и среднее геометрическое.	a, b, c, d
	Найти радиус окружности, описанной вокруг прямоугольника по формуле: , где р - полупериметр	a, b, c
	Найти радиус круга, вписанного в треугольник со сторонами a, b, c по формуле: , где р - полупериметр	a, b, c
	Определить площадь треугольникапо трем углам и высоте:	A, B, C, h
	Определить площадь треугольника по заданной стороне и углам	A, B, C, a
	Вычислить сопротивление цепи:	R1, R2, R3
	Вычислить сопротивление цепи:	R1, R2, R3
	В магазине продается костюмная ткань. Ее цена в руб. за кв. метр. Подсчитать стоимость куска этой ткани длиной Х м и шириной У м.	Х, У, b
	Найти площадь ромба по стороне и острому углу: , где а - сторона, - угол	а,
	В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членов.	а1, d
	Найти координаты центра отрезка, заданного координатами его концов.	Х1, У1, Х2, У2
	Найти сумму всех натуральных чисел от 1 до m используя формулу суммы членов арифметической прогрессии.

Тестовое задание

Вариант задает преподаватель!

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

Табл.2

№ пп	Функция	№ пп	Функция
1.		16.
2.		17.
3.		18.
4.		19.
5.		20.
6.		21.
7.		22.
8.		23.
9.		24.
10.		25.
11.		26.
12.		27.
13.		28.
14.		29.
15.		30.

Лабораторная работа №3
Разветвляющиеся алгоритмы

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

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

В Turbo Pascal для организации ветвления используется условный оператор
If-Then-Else, который реализует алгоритмическую конструкцию ветвления и позволяет изменить порядок выполнения программы в зависимости от истинности или ложности некоторого условия. Блок-схема оператора, реализующего конструкцию ветвления приведена на рисунке 1:

При выполнении условного оператора сначала проверяется условие, если оно истинно, то выполняется <оператор 1>, если ложно - выполняется <оператор 2>. При этом структура условного оператора имеет вид:

If <условие> Then <оператор 1> Else <оператор 2>;

Можно использовать укороченный вариант условного оператора:

If <условие> Then <оператор 1>;

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