Методические указания
К ЛАБОРАТОРНОЙ РАБОТЕ № 16
Разработка программы на языке высокого уровня Паскаль
по дисциплине
ИНФОРМАТИКА
Направление подготовки: 080100 Экономика
080200 Менеджмент
Профиль подготовки: Мировая экономика
Экономика и управление на предприятии
(в машиностроении)
Квалификация выпускника: бакалавр
Форма обучения заочная
Тула, 2013 г.
Лабораторная работа №16
Разработка программы на языке высокого уровня Паскаль
16.1. Цель и задачи работы
Освоить основные приемы алгоритмизации и составления программ на языке высокого уровня Паскаль.
16.2. Теоретические положения
Основные управляющие структуры и операторы языка Паскаль, соответствующие этим структурам изложен в конспекте лекций по курсу, а также в методических указаниях – Князева М.А. Информатика. Методические указания к лабораторным работам (часть 2) – Тула: ТулГУ, 2005 (или предыдущая лабораторная работа)
16.3. Оборудование
ПЭВМ IBMPC, операционная системаWindows,FreePascal.
Задание на работу
Разработать схему алгоритма программы по заданию преподавателя.
Составить программу на языке Паскаль по разработанному алгоритму.
Разработать контрольные примеры.
Отладить разработанную программу.
Порядок работы
Получить вариант задания у преподавателя.
Используя основные структуры изображения алгоритма разработать схему алгоритма. Показать разработанную схему преподавателю.
Разработать 2-3 контрольных примера, позволяющих проверить работу алгоритма, в том числе и при критических значениях входных данных. Показать разработанные контрольные примеры преподавателю.
Ввести текст программы в компьютер, сохранив на личном диске.
Провести компиляцию программы. Выявить все синтаксические ошибки и исправить их.
Выполнить программу при исходных данных из контрольных примеров. Выявить логические ошибки и исправить их. Внести необходимые исправления в алгоритм.
Ответить на контрольные вопросы.
Оформить отчет.
Контрольные вопросы
Для чего служит оператор READ
Чем отличаются операторы WRITEиWRITELN
С помощью каких операторов можно менять последовательность выполнения операторов.
Чем заканчивается программа.
Что такое операторные скобки.
Что обозначает запись STRING(15)
Оформление отчета
Отчет должен содержать название лабораторной работы, цель ее выполнения, вариант задания, схему алгоритма, описание контрольного примера, текст программы.
16. 8. Варианты заданий
Вариант 1
Задана цена товара C, количество проданного товараKв день, номинал заработной платы продавца в деньN.Рассчитать заработную плату продавца в деньZ. ЕслиK≤10, то заработная плата равна номиналуZ=N. Если10<K≤50, то к номиналу заработной платы прибавляется двадцать процентов от суммы дневной выручки. ЕслиK>50, то к номиналу заработной платы прибавляется тридцать процентов от суммы дневной выручки.
Вариант 2
Заданы длины четырех сторон аоснования правильной четырехугольной пирамиды, апофемаf, высота пирамидыh. Вычислить боковую поверхность пирамидыSбок и ее объемV. ЕслиSбок>40, то вычислить площадь одной боковой грани пирамидыSбок гр.
Вариант 3
Заданы значения
расстояния Sи времениtскорости движения
транспортного средства. Вычислить
значения скорости движения транспортного
средстваVи расход
бензинаR. ЕслиV≤90иV≥120км/ч, то
.Если90<V<120,
то
.
Вариант 4
Заданы размеры сторон большего aи меньшегоbоснований правильной усеченной пирамиды, ее апофемаf и высота h. Вычислить боковую поверхностьSбокправильной усеченной пирамиды и е объемV. ЕслиV<40, то вычислить сумму площадей оснований пирамидыS осн.
Вариант 5
Заданы размеры
сторон a, b,
cнекоторой детали
в виде параллелепипеда, количество
штук деталейK,
размеры сторон тары для упаковки
деталей, имеющей также форму параллелепипедаA, B,
C. Вычислить объем
деталиv, объем тарыV, необходимое количество
тарыNдля упаковки
деталей количествомKштук. ЕслиN>10, то
вычислить отношение объема детали к
объему тары
.
Вариант 6
Заданы радиус основания круглого конуса r, и длина ее образующейlи высота конусаh. Вычислить боковую поверхность круглого конусаSбок и его объемV. ЕслиV<20, то вычислить длину окружности основания конусаCосн.
Вариант 7
Вычислить значение
функции y=f(x).
Если х≤5, то у=х2+3х-4. Если 5<х≤
10, то у=lnх. Если х> 10, то
у=
.
Вариант 8
Заданы радиус шара
R и высота шарового
сегментаn. Вычислить
кривую поверхность шарового сегментаSшар сеги его объемV. ЕслиV<20,
то вычислить отношение радиуса шара
к высоте шарового сегмента
.
Вариант 9
Заданы массы некоторых двух тела m1, m2. Тела движутся и проходят за времяt следующие расстоянияS1 и S2 соответственно. Вычислить импульсы телР1 и Р2. ЕслиР1< Р2, вычислить разность этих импульсов. ЕслиР1 > Р2, вычислить сумму этих импульсов. ЕслиР1 = Р2, вычислить произведение импульсов.
Вариант 10
Заданы поверхность
шарового сегмента Sшар
сеги поверхность конусаSкон,
вместе образующие шаровый сектор.
Заданы радиус шараRи высота шарового сегментаn,
принадлежащая шаровому сектору. Вычислить
поверхность шарового сектораSшар
секти его объемV.
ЕслиV<50, то вычислить
отношение поверхностей шарового сегмента
к поверхности конуса
.
Вариант 11
Заданы первый член
арифметической прогрессии а, разность
прогрессииdи количество
членов прогрессииk.
Вычислитьk-1 и к-ые
члены арифметической прогрессии и
сумму первыхnчленовSn.
ЕслиSn≤25,
то вычислить процентное отношение
первого и последнего членов арифметической
прогрессии
.
Вариант 12
Заданы радиусы внутренней и наружной поверхностей полого шара Rвн, Rнар. Вычислить объем полого шараVи его полную поверхностьSполн пов. ЕслиSполн пов<40, то вычислить толщину стенки шараt.
Вариант 13
Задан ежедневный
доход индивидуального предпринимателя
в течение месяца (двадцать шесть рабочих
дней) d1,d2,d3…d25,d26.
Рассчитать месячный доход индивидуального
предпринимателя
.
ЕслиD≥15 000 000,
то выдать сообщение о том, что «необходимо
перейти к полной системе налогообложения».
ЕслиD<15 000 000,
то заданы базовая доходность индивидуального
предпринимателяБД=1800, арендуемая
индивидуальным предпринимателем площадь
помещенияF,корректирующий коэффициентК1
=1,096,поправочные коэффициентыК2=1;К3=0,7;К4=0,97, процент налогообложения
для индивидуального предпринимателяn=15%. Рассчитать суммуS, с которой будет
заплачен налог
.
Рассчитать сумму единого вмененного
налога
.
Вариант 14
Задано значение
синуса угла альфа sin
.
Вычислить значение косинусаcos
,
тангенсаtg
и котангенсаctg
,
значениеsin2
.Если угол
острый, то вычислитьcos
2
.
Вариант 15
Заданы при производстве некоторого изделия затраты на материалы M, электроэнергиюЭ, инструментI, заработную плату рабочихZ. Вычислить себестоимость изделияЦс. Заданы затраты на транспортировку изделияT. Вычислить стоимость изделия в магазинеЦм. ЕслиT≤1000, то цена изделия в магазине возрастает на 30% по сравнению с себестоимостью. Если 1000<T≤1500, то цена в магазине возрастает на 40% по сравнению с себестоимостью. ЕслиT>1500, то цена в магазине возрастает на 50% по сравнению с себестоимостью изделия.
Вариант 16
Задан тангенс
половины угла альфа
.
Если
0,5
рад, то вычислить значения синуса и
косинуса полного угла
.
Если
>0,5
рад, то вычислить значение тангенса
полного угла
.
Вариант 17
Заданы значения
расстояния Sи времениtскорости движения
транспортного средства. Вычислить
значения скорости движения транспортного
средстваVи расход
бензинаR. ЕслиV≤90иV≥120км/ч, то
.Если90<V<120,
то
.
Вариант 18
Заданы поверхность
Sпов цил и объемVцилцилиндра, описанного вокруг шара.
Вычислить поверхностьSпов
шара и объем шараVшара.
ЕслиSпов шара≥120,
то вычислить отношение объема шара к
нго поверхности
.
Вариант 19
Заданы размеры
сторон a, b,
cнекоторой детали
в виде параллелепипеда, количество
штук деталейK,
размеры сторон тары для упаковки
деталей, имеющей также форму параллелепипедаA, B,
C. Вычислить объем
деталиv, объем тарыV, необходимое количество
тарыNдля упаковки
деталей количествомKштук. ЕслиN>10, то
вычислить отношение объема детали к
объему тары
.
Вариант 20
Задано значение
тангенса угла бета tg
.
Вычислить значение котангенсаctg
,
косинусаcos
и синусаsin
,значение cos2
.Если угол
тупой, то вычислить sin2
.
Вариант 21
Задан объем партии изделий N, количество бракованных изделий в этой партииB, допустимое количество бракованных изделий в партии, выраженное в процентахDпр.Вычислить проценты бракованныхBпр и годныхGпризделий в партии. ЕслиBпр≤ Dпр, то вычислить количество годных изделий в партииG.
Вариант 22
Заданы длины трех
сторон треугольника a,
b, c.
Вычислить периметрpи площадь треугольникаS.
Если 10≤S≤100, вычислить
отношение квадрата площади треугольника
к его периметру
.
Вариант 23
Задана масса mгруза, лежащего на плоскости. Сечение груза, параллельное плоскости, имеет форму прямоугольника. Заданы размеры сеченияa, b. Определить давление груза на плоскостьP. Задано допустимое давление на плоскостьPдоп. ЕслиP≤Pдоп, выдать сообщение о том, что«плоскость выдержит груз».ЕслиP>Pдоп, выдать сообщение о том, что«плоскость груза не выдержит». ЕслиP>Pдоп, определить разницу между фактическимP и допустимымPдопдавлениями.
Вариант 24
Заданы длины двух
катетов прямоугольного треугольника
a,b.
Вычислить длину гипотенузыcи величины двух углов треугольника
,
.
Если
>500,
то вычислить площадь треугольника. Если
<500,
то вычислить сумму длин его сторон.
Вариант 25
Задан вид квадратного
уравнения
,
коэффициентыa,b,c.
Найти корни уравненияx1,x2.
Вариант 26
Задана масса груза,
подвешенного на канате m
и предельная сила натяжения канатаFпр. Определить
силу тяжести груза, подвешенного на
канатеF. ЕслиF≤
Fпр, то
выдать сообщение о том, что«канат
выдержит груз». ЕслиF>Fпр, выдть сообщение,
что«канат оборвется».Подсчитать
запас прочности каната как отношение
предельной силы каната к силе его
натяжения
.
Вариант 27
Задан диаметр шара D. Вычислить объемV, площадь основанияSосн, боковую поверхностьSбоки полную поверхность полушарияSполн пов. Если 20<Sосн<100, то вычислить радиус шараR.
Вариант 28
Заданы масса тела
m, имеющего форму
шара, и его диаметрD.
Вычислить плотность материала телаPт.
Задана плотность жидкостиPж,
куда будет опущено тело. ЕслиPт
<Pж,
вывести сообщение «тело будет плавать».
ЕслиPт >
Pж,
вывести сообщение «тело утонет». ЕслиPт <Pж,
вычислить процентное отношение плотностей
тела и жидкости
.
Вариант 29
Заданы радиус шара R и высота шарового слояm, радиусы оснований шарового слоя r1 , r2. Вычислить кривую поверхность шарового слояSшар сли его объемV. ЕслиSшар сл >60, то вычислить разность между радиусами оснований шарового слояr1 - r2.
Вариант 30
Заданы первый член
а, знаменательq,
количество членовк геометрической
прогрессии. Вычислитьk-1
и к-ые члены геометрической прогрессии
и сумму первыхnчленовSn.
ЕслиSn≥10,
то вычислить процентное отношение
первого и последнего членов геометрической
прогрессии
.
1В дальнейшем знаком «+» будем обозначать одновременное нажатие клавиш