Автоматизированные

End.

Begin

Var

Const

End.

Begin

writeln(' Введите A '); {процедура вывода текста}

read(A); {процедура ввода исходных данных}

S: = SQR(A) * sin (PI / 3) / 2;

writeln (' Результат: S= ', S: 6: 2, ' для A= ', A);

После выполнения программы на экран выводится сообщение

Результат: S = 10.83 для А = 5.

Предварительно рассчитанный на калькуляторе результат для А = 5 составил S = 10.8253, что подтверждает правильность работы программы.

Пример 3. Вычислить функцию y сначала при х = 0, а затем при х = 2:

,

где A = 1.2, B = 0.5, C = -0.8.

Получаем следующий текст программы:

Program Fun;

A = 2; B = 0. 5; C = -0. 8;

X: integer; // переменная X целого типа

Y: real; // переменная Y вещественного типа

writeln(' Введите Х '); {процедура вывода текста}

read(X); // введите значение переменной X

Y: = A*EXP(-C*X) - C*cos(B*X) +1;

writeln(' X= ', X:3, ' Y= ', Y:8:3); // вывод значений X и Y

Задания к самостоятельному выполнению

Программа 1. Вычислить значение некоторой функции, зависящей от констант a, b, c и переменной X, два значения x₁ и x₂ для которой заданы в таблице.

№	x1	x2	a	b	c	Вычислить
			1.5		-0.7
			0.7	-	2.1
		1.5		1.2
			4.1	-2.3	-
	-1		0.5		1.5
			0.5	1.3	-
			0.5		-
	-1		2.7	1.7	-
		π/2		0.7	0.5
			0.5	2.9	1.5
			1.5	-1.2	-
			0.5	1.7
	-1		0.5	1.2	-
			0.5	3.1	-
			0.5	3.2	-
					-
	-1				-
	-1			π/6	0.5

Программа 2. В следующих заданиях необходимо самостоятельно разработать алгоритмы решения и отладить программы.

1. С начала суток прошло N секунд (N - целое). Найти количество полных минут, прошедших с начала суток.

2. С начала суток прошло N секунд (N - целое). Найти количество полных часов, прошедших с начала суток.

3. С начала суток прошло N секунд (N - целое). Найти количество секунд, прошедших с начала последней минуты.

4. С начала суток прошло N секунд (N - целое). Найти количество секунд, прошедших с начала последнего часа.

5. С начала суток прошло N секунд (N - целое). Найти количество полных минут, прошедших с начала последнего часа.

6. Дано расстояние в сантиметрах. Определить, найти количество полных метров и дециметров в нем.

7. Дана масса в граммах. Найти количество полных тонн и килограммов в ней.

8. Дан размер файла в байтах. Найти количество полных килобайтов, которые занимает данный файл.

9. Даны целые положительные числа. А и В (А > В). На отрезке длины А размещено максимально возможное количество отрезков длины В (без наложений). Найти количество отрезков В, размещенных на отрезке А.

10. Даны целые положительные числа. А и В (А > В). На отрезке длины А размещено максимально возможное количество отрезков длины В (без наложений). Найти длину незанятой части отрезка А.

11. Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем его правую цифру (единицы).

12. Дано двузначное число. Найти сумму и произведение его цифр.

13. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

14. Дано трехзначное число. Вывести первую цифру данного числа (сотни).

15. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем его среднюю цифру (десятки).

16. Дано трехзначное число. Найти сумму и произведение его цифр.

17. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.

18. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.

19. Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число.

20. Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213).

21. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).

22. Дано целое число, больше 999. Найти цифру, соответствующую разряду сотен в записи этого числа.

23. Дано целое число, больше 999. Найти цифру, соответствующую разряду тысяч в записи этого числа.

Программа 3. В следующих заданиях необходимо самостоятельно разработать алгоритмы решения и отладить программы.

1. Определить площадь трапеции с основаниями а, b, высотой h и объем усеченного конуса, если считать а, b – площадями оснований.

2. Определить координаты центра тяжести трех материальных точек с массами m₁, m₂, m₃ и координатами (x₁, y₁), (x₂, y₂), (x₃, y₃).

3. Вычислить по заданному радиусу R объем шара и площадь круга, найти соотношение между ними.

4. Вычислить медианы треугольника по заданным сторонам a, b, c.

5. Вычислить площадь поверхности и объем конуса по заданным радиусам и высоте h.

6. По заданному радиусу R найти объем шара и площадь его поверхности.

7. Вычислить, какая идет секунда суток при положении стрелок в h часов, m минут и s секунд, а также угол (в градусах) между положением часовой стрелки в начале суток и ее положением в указанный момент.

8. Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления.

9. Ввести координаты двух точек (х₁, y₁), (x₂, y₂). Найти расстояние между ними.

Выполнив все задания студенту необходимо составить отчет о выполнении лабораторной работы, содержащий следующую информацию:

1. Цель лабораторной работы.
2. Программное обеспечение.
3. Формулировка заданий лабораторной работы.
4. Алгоритмы.
5. Текст программ.
6. Результат выполнения каждой программы (2, 3 эксперимента).
7. Вывод по работе

Дата добавления: 2017-01-14