Основы алгоритмизации и программирования.

Суммирование значений

В интегрированной среде программирования Free Pascal.

Цель работы

Получение навыков по суммированию значений в программе, составленной на языке Паскаль (составление сложных программ).

Теоретические положения

При необходимости суммирования каких-либо значений в программах, составленных на языке Паскаль, вводится переменная, значение которой в самом начале программы обнуляется (переменная содержит значение, равное 0). Если в дальнейшем к нулю прибавить требуемое значение, а потом к полученной сумме еще раз прибавить требуемое значение и так в цикле некоторое количество раз, то будет определена необходимая сумма.

Примечание: При необходимости вычисления произведения, вводится переменная, значение которой равно 1. Если 1 умножить на значение в цикле некоторое количество раз, то будет определено требуемое произведение.

Примеры для составления схем и программ

Пример 6: Составить программу вычисляющую сумму значений функции

,

при  с шагом h. Значения a, b, h ввести с клавиатуры.

Текст программы для примера 6 представлен на рисунке 18.

Рисунок 18 – Текст программы для примера 6

Схема работы программы для примера 6 представлена на рисунке 19.

Рисунок 19 – Схема работы программы для примера 6

Здесь переменная, которая накапливает сумму, обозначена Sum. Значение, содержащееся в этой переменной, подается на вывод после окончания работы программы.

Примечание: Необходимо изучить вышеизложенную теорию и проделать вышеизложенные работы.

Оборудование и программное обеспечение

1. ПЭВМ IBM PC.

2. Операционная система Windows.

3. Интегрированная среда FreePascal.

Задание на работу

1. Изучить теоретические положения лабораторной работы.

2. Набрать и отладить вариант программы в соответствии с примером 6.

3. Показать результаты работы программы преподавателю.

4. Ответить на контрольные вопросы.

5. Оформить отчет.

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

1. Как в программе получить сумму некоторых значений?

2. Как в программе получить произведение некоторых значений?

6.7. Правила оформления отчета

Отчет должен содержать:

1. Номер работы, цель и название.

2. Сформулированные примеры, для которых составляются программы.

3. Схемы работы программ, изображенные в соответствии с ГОСТ 19.701-90.

4. Тексты введенных и отлаженных программ (фото текстов программ).

5. Результаты работы программ (фото результатов работы программ).

6. Описание выполненных в лабораторной работе действий (коротко как набирались и отлаживались программы).

7. Вывод по работе.

 

 

Лабораторная работа №7

Разработка программы на языке высокого уровня Паскаль

(в среде Free Pascal)

Цель работы

Освоить основные приемы алгоритмизации и самостоятельного составления программ на языке высокого уровня Паскаль.

Теоретические положения

Необходимо изучить вышеизложенную теорию и проделать вышеизложенные работы.

Примечание: задания сформулированы таким образом, что схема работы составляемой программы будет содержать только ветвление (выбор).

Примеры для составления схем и программ

Вариант 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, то у=х²+3х-4. Если 5<х≤ 10, то у=ln х. Если х> 10, то у= .

Вариант 8

Заданы радиус шара R и высота шарового сегмента n. Вычислить кривую поверхность шарового сегмента S_{шар сег} и его объем V. Если V<20, то вычислить отношение радиуса шара к высоте шарового сегмента .

Вариант 9

Заданы массы некоторых двух тела m₁, m₂. Тела движутся и проходят за время t следующие расстояния S₁ и S₂ соответственно. Вычислить импульсы тел Р₁ и Р₂. Если Р₁< Р₂, вычислить разность этих импульсов. Если Р₁ > Р₂, вычислить сумму этих импульсов. Если Р₁ = Р₂, вычислить произведение импульсов.

Вариант 10

Заданы поверхность шарового сегмента S_{шар сег} и поверхность конуса S_кон, вместе образующие шаровый сектор. Заданы радиус шара R и высота шарового сегмента n, принадлежащая шаровому сектору. Вычислить поверхность шарового сектора S_{шар сект} и его объем V. Если V<50, то вычислить отношение поверхностей шарового сегмента к поверхности конуса .

Вариант 11

Заданы первый член арифметической прогрессии а, разность прогрессии d и количество членов прогрессии k. Вычислить k-1 и к-ые члены арифметической прогрессии и сумму первых n членов S_n. Если S_n≤25, то вычислить процентное отношение первого и последнего членов арифметической прогрессии .

Вариант 12

Заданы радиусы внутренней и наружной поверхностей полого шара R_вн, R_нар. Вычислить объем полого шара V и его полную поверхность S_{полн пов}. Если S_{полн пов}<40, то вычислить толщину стенки шара t.

Вариант 13

Задан ежедневный доход индивидуального предпринимателя в течение месяца (двадцать шесть рабочих дней) d₁,d₂,d₃…d₂₅,d₂₆. Рассчитать месячный доход индивидуального предпринимателя . Если D≥15 000 000, то выдать сообщение о том, что «необходимо перейти к полной системе налогообложения». Если D<15 000 000, то заданы базовая доходность индивидуального предпринимателя БД=1800, арендуемая индивидуальным предпринимателем площадь помещения F, корректирующий коэффициент К₁ =1,096, поправочные коэффициенты К₂=1; К₃=0,7; К₄=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 и величины двух углов треугольника , . Если >50⁰, то вычислить площадь треугольника. Если <50⁰, то вычислить сумму длин его сторон.

Вариант 25

Задан вид квадратного уравнения , коэффициенты a,b,c. Найти корни уравнения x₁,x₂.

Вариант 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, радиусы оснований шарового слоя r₁ , r₂. Вычислить кривую поверхность шарового слоя S_{шар сл} и его объем V. Если S_{шар сл} >60, то вычислить разность между радиусами оснований шарового слоя r₁ - r₂.

Вариант 30

Заданы первый член а, знаменатель q, количество членов к геометрической прогрессии. Вычислить k-1 и к-ые члены геометрической прогрессии и сумму первых n членов S_n. Если S_n≥10, то вычислить процентное отношение первого и последнего членов геометрической прогрессии .