Задание 1. Вычисление площади треугольника
Составьте программу, вычисляющую площадь треугольника по заданным значениям основания a и высоты h.
Ф
ормула
для вычисления площади треугольника
имеет вид:
S = ½ *a*h
Составим программу для нахождения площади треугольника.
Запустите Turbo Pascal
В окне редактирования наберите текст программы:
Program Primer_1;
var a, h, s: real; {описание переменных}
begin {начало программы}
Writeln(' Введите значение a'); {вывод сообщения на экран}
Read(a); {ввод значения a}
Writeln(' Введите значение h'); {вывод сообщения на экран}
Read(h); {ввод значения h}
s:= 1/2 * a * h; {вычисление значения s}
Writeln('s=', s :6 :2); {вывод результатов}
end. {конец программы}
Откомпилируйте программу и запустите ее на выполнение.
Протестируйте правильность выполнения программы, введя значениz a =2, h =3 (при этом должно получиться значение s = 3.00)
Сохраните программу на диске под именем Primer1.
Задание 2. Вычисление сопротивления цепи
Найти сопротивление цепи из двух последовательно соединенных проводников.
Сопротивление цепи считается по формуле: R = R1 +R2. Составим программу.
Запустите Turbo Pascal
В окне редактирования наберите текст программы:
Program Primer_2;
var r1, r2, r: integer;
begin
Writeln(' Введите значение R1');
Read(r1);
Writeln(' Введите значение R2');
Read(r2);
r :=r1+r2;
Writeln('R =', r : 4);
end.
Откомпилируйте программу и запустите ее на выполнение
Протестируйте правильность выполнения программы.
Сохраните программу на диске под именем Primer2.
Задание 3. Вычисление значения функции
Составьте
программу, вычисляющую значение функции
при заданном значении
.
Запустите Turbo Pascal
В окне редактирования наберите текст программы:
Program Primer_3;
var x, y: real;
begin
Writeln(' Введите значение x');
Read(x);
y :=(x+ln(x))/abs(sqr(x)+3*x-2);
Writeln('y=', y:6:2);
end.
Откомпилируйте программу и запустите ее на выполнение
Протестируйте правильность выполнения программы, введя значение х=1 (при этом должно получиться значение у = 0.5)
Сохраните программу на диске под именем Primer3.
Задание 4. Самостоятельное решение задач
Самостоятельно решите задачу из Таблицы 1, выбрав вариант, совпадающий с номером компьютера. Сохраните программу на диске под именем Primer4.
Табл. 1
№ варианта |
Условие |
Исходные данные |
1 |
Определить
расстояние d
между двумя точками на плоскости ( |
х1, у1, х2, у2 |
2 |
Заданы четыре
положительных числа a,
b,
c
и d.
Вычислить их среднее арифметическое
и среднее геометрическое (среднее
арифметическое равно
|
a, b, c, d |
3 |
Найти радиус окружности, описанной вокруг прямоугольника по формуле:
где р - полупериметр |
a, b, c |
4 |
Найти радиус круга, вписанного в треугольник со сторонами a, b, c по формуле:
где р - полупериметр |
a, b, c |
5 |
Определить площадь треугольника по трем углам и высоте:
|
A, B, C, h |
6 |
Определить площадь треугольника по заданной стороне и углам
|
A, B, C, a
|
7 |
Вычислить сопротивление цепи:
по
формуле
|
R1, R2, R3 |
8 |
Вычислить сопротивление цепи:
по
формуле
|
R1, R2, R3 |
9 |
В магазине продается костюмная ткань. Ее цена равна b руб. за кв. метр. Подсчитать стоимость куска этой ткани длиной Х м и шириной У м. |
Х, У, b |
10 |
Найти площадь ромба по стороне и острому углу:
где а - сторона, a - угол |
а, a |
11 |
В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членов. Формула n-го члена арифметической прогрессии:
Формула суммы n первых членов арифметической прогрессии:
|
а1, d |
12 |
Найти координаты центра отрезка, заданного координатами его концов. |
х1, у1, х2, у2 |
13 |
Найти сумму всех натуральных чисел от 1 до m используя формулу суммы членов арифметической прогрессии. Формула суммы n первых членов арифметической прогрессии:
|
m |
).
,
среднее геометрическое равно
).
,
,
,
