Лабораторная работа №4_Паскаль
.docЛАБОРАТОРНАЯ РАБОТА N 4
Тема: Простейшие Паскаль-программы
Внимательно изучите систему Turbo-Pascal, познакомьтесь с ее запуском, организацией рабочего файла, входом в редактор и выходом из него, а также с управляющими клавишами редактора. Познакомившись с системой, приступайте к выполнению заданий.
Задание 1 (обучение). Набрать в системе Turbo-Pascal, откомпилировать и запустить следующую программу:
program PROBA;
var I,KVA,KUB: integer;
begin
write('Введите целое число');
readln(I);
KVA:=I*I;KUB:=KVA*I;
write('Квадрат числа - ', KVA,' куб числа - ', KUB)
end.
Для самостоятельного выполнения по вариантам:
Задание 2. Даны x, y. Написать программы, позволяющие получить:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Задание 3. Написать программы для решения следующих задач:
1. Вычислить расстояние между двумя точками с данными координатами X1, Y1, X2, Y2.
2. Вычислить среднее арифметическое кубов двух чисел и среднее геометрическое их модулей.
3. Вычислить дробную часть среднего геометрического трех заданных положительных чисел.
4. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.
5. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.
6. Найти произведение цифр заданного четырехзначного числа.
7. Найти площадь треугольника по длинам двух сторон A, B и углу (в градусах) между ними.
8. Не используя никаких функций и никаких операций кроме умножения, получить A в восьмой степени за три операции;
9. Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа.
10. Вычислить значение производной функции X в степени х в заданной точке А (А > 0).
11. Вычислить объем куба и площадь его боковой поверхности по известному ребру A.
12. Вычислить периметр и площадь правильного N-угольника, описанного около окружности радиуса R.