Практическая работа № 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. Составить программу предусматривающую:
- Ввод данных
- Выполнение вычислений
- Вывод полученных результатов в окно (Все данные выводить с именами)
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% требующегося железа?
|
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 |
Результат выполнения программы:
Вывод:
Результат исполнения программы совпал с результатами контрольного теста, следовательно, программа применима для целого класса подобных задач с различными исходными данными.
Контрольные вопросы
- Какой тип имеет результат деления двух чисел?
- С какого служебного слова начинается процедура вывода данных?
- Какую функцию используют для округления числа x
- Какую функцию используют для вычисления квадрата числа x
- Какую функцию используют для вычисления корня квадратного числа х
- Какую функцию используют для вычисления 3- степени положительного числа х
- Какую функцию используют для вычисления корня 3- степени отрицательного числа х