Библиотека процедур вывода на экран

Практическая работа № 18

Тема: Решение тематических задач на алгоритмическую структуру «Следование»

Цель:

● владение стандартными приемами написания на алгоритмическом языке программы для решения стандартной задачи с использованием основных конструкций программирования и отладки таких программ; использование готовых прикладных компьютерных программ по выбранной специализации.

Оборудование -справочники с формулами

Компьютерная программа Среда программирования PascalABC, Текстовый редактор, Электронные таблицы, Редактор диаграмм, Калькулятор

Теория

Программы линейной структуры

Программы линейной структуры используются:

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

 

Правила записи математических выражений

Название и математическое обозначение функции		Тип аргумента	Тип результата	Указатель функции в Pascal
Абсолютная величина (модуль)	| х |	I,R	I, R	abs(x)
Арктангенс (радианы)	Arctg x	I, R	R	arctan(x)
Косинус (угол в радианах)	cos x	I, R	R	cos(x)
Частное от деления целого х на целое y		I	I	x div y
Остаток от деления целого х на целое y		I	I	x mod y
Экспонента (степень числа е ~ 2.72)	ex	I, R	R	exp(x)
Степень числа х (x>0)	Xn	R	R	exp(n*ln(x))
Дробная часть х	{x}	R	R	frac(x)
Целая часть х	[x]	R	R	int(x)
Натуральный логарифм	ln x	I, R	R	ln(x)
Синус (угол в радианах)	sin x	I, R	R	sin(x)
Квадрат x	X2	I,R	R	sqr(x)
Корень квадратный		I,R	R	sqrt(x)
Округление до ближайшего целого Округл(-2,8)=-3		R	I	round(x)
Ближайшее целое, не превосходящее х по модулю Транз(-2,8)=-2		R	I	trunc(x)
Псевдослучайное число в интервале (0, 1)			R	random

 

 

Библиотека процедур вывода на экран

В состав среды PascalABC входит библиотека процедур Crt., используя которые можно, в частности, задавать цвет фона и цвет символов, выводимых командами Write и Writeln.

Цвет задается в 16-цветной палитре. Каждый цвет имеет имя – константу и свой номер:

Для того, чтобы процедуры библиотеки Crt были бы доступны, нужно после cтроки заголовка указать использование этой библиотеки: uses Crt;

Синтаксис процедуры	Назначение
Delay(задержка:integer)	Задержка в выполнении программы в наносекундах
TextColor(Цвет:byte)	Устанавливает цвет символов сообщений при выводе
TextBackGround(Цвет:byte)	Задает цвет фона сообщений при выводе
clrscr	Очищает текущее окно экрана, закрашивая его цветом, заданным процедурой TextBackGround
GoToXY	Перемещает курсор в точку экрана, имеющую координаты X,Y

Постановка задачи:

1. Составить программу предусматривающую:

1. Ввод данных
2. Выполнение вычислений
3. Вывод полученных результатов в окно (Все данные выводить с именами)

2. Проверить полученные результаты с помощью калькулятора

3. Оформить отчет в следующей последовательности:

1. Задание

2. Чертеж и формулы для вычислений

3. Текст программы

4. Образ экрана для каждой ветви

5. Контрольный тест (расчеты с помощью калькулятора)

6. Анализ результатов выполнения программы

 

1. Сколько килограмм песка поместится N=300 ведер конической формы (усеченный конус), если диаметры ведра D cм и d см, а высота Н см.
2. Ребро свинцового правильного октаэдра равно a. Вычислить полную поверхность объем, массу и вес октаэдра
3. Сколько килограмм олифы потребуется для окраски N=500 ведер конической формы (усеченный конус), если диаметры ведра D cм и d см, а высота Н см. А на 1м2 требуется m1=150г олифы?
4. Крыша башни имеет форму правильной четырехугольной пирамиды. Высота крыши h м. Основание башни по диагонали -d м. Сколько листов кровельного железа потребуется для покрытия башни, если лист имеет размеры (m  n) и на швы пойдет 17% требующегося железа? m		a-сторона основания(квадрата) h1- высота боковой грани
5. Чему равен объем и масса арбузной корки толщиной d, если арбуз с трудом пролез в прямоугольное отверстие шириной Q м. (плотность корки считать равной 44% плотности воды)
6. Необходимо вырыть полуцилиндрический подвал длиной m L и высотой R. Сколько грузовиков грузоподъемностью M тонн понадобится, чтобы вывезти грунт с рабочей площадки?
7. Чугунная подставка имеет вид усеченной пирамиды высотой H и квадратные основания a и b. Найти массу и силу тяжести, с которой подставка давит на поверхность стола
8. Определить объем, массу детали, составленной из правильной четырехугольной цинковой пирамиды, по стороне a и высоте h, стоящей на кремниевом параллелепипеде с теми же размерами
9. Определить объем, массу, силу тяжести, детали, состоящей из прямой треугольной деревянной пирамиды, со сторонами a,b,c и высотой h
10. Деталь представляет собой титановый конус и молибденовый цилиндр имеющих общее основание радиуса R и высоты H и h. Вычислить объем и массу детали
11. Определить полную поверхность, объем, массу правильной треугольной усеченной медной пирамиды по сторонам a, b и высоте h.
12. Из круглого куска жести радиуса L вырезан сектор с углом α и свернут в пожарное ведро. Сколько литров бензина можно налить в такое ведро?
13. Определить полную поверхность, объем, массу правильной шестиугольной стеклянной пирамиды по стороне a и высоте h.
14. Несколько кубиков из различных пород дерева (самшит, вишня, груша, можжевельник, дуб) с ребром b дм обтачили на токарном станке, придав им форму шариков одного оптимального размера. Сколько граммов стружки при этом выбросили?
15. Деталь представляет собой два конуса(изготовленных из корунда и никеля), склеенных общим основанием диаметра D и имеющих высоты H и h. Вычислить объем и массу детали

Образец выполнения для варианта 0

Задание:

Написать программу вычисления массы, объема и боковой поверхности медного цилиндра радиуса R см и высоты h см

Формулы:		Чертеж
Контрольный тест:	Блок-схема
R=>5 h=>10 Rezultat: V=785.40 S=314.16 m=6990.04 Блок-схема:			Текст программы: Program massa_cylindra; uses crt; const ro=8.9; var r,h,s,m,v:real;   begin writeln ('Vvedite radius i visoty cylindra v cm'); write('R=>');readln (r); write('H=>');readln (h); s:=2*pi*r*h+2*pi*sqr(r); v:=pi*sqr(r)*h; m:=ro*v; textcolor(11); writeln ('Rezultat:'); writeln ('Ploshad:'); writeln ('S=',s:5:2); writeln ('Objem:'); writeln ('V=',v:5:2); writeln ('Massa:'); writeln ('m=',m:5:2,'gr.':4); end.

Таблица соответствия переменных

Величины	Высота цилиндра	Радиус основания	Площадь поверхности	Объем	Масса	Плотность
Обозначения	H	R	S	V	m	ρ
Идентификаторы	h	r	s	v	m	ro

Результат выполнения программы:

Вывод:

Результат исполнения программы совпал с результатами контрольного теста, следовательно, программа применима для целого класса подобных задач с различными исходными данными.

Контрольные вопросы

1. Какой тип имеет результат деления двух чисел?
2. С какого служебного слова начинается процедура вывода данных?
3. Какую функцию используют для округления числа x
4. Какую функцию используют для вычисления квадрата числа x
5. Какую функцию используют для вычисления корня квадратного числа х
6. Какую функцию используют для вычисления 3- степени положительного числа х
7. Какую функцию используют для вычисления корня 3- степени отрицательного числа х