Лабораторная работа №4_Паскаль

ЛАБОРАТОРНАЯ РАБОТА 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.