Лабораторная работа с Delphi. Первое высшее техническое заведение россии министерство образования и науки российской федерации

• Название: Первое высшее техническое заведение россии министерство образования и науки российской федерации
• Анкор: Лабораторная работа с Delphi
• Дата: 05.04.2022
• Размер: 1.02 Mb.
• Имя файла: Zabolotskiy_Delphi.docx
• Тип: Лабораторная работа; #444820

ПЕРВОЕ ВЫСШЕЕ ТЕХНИЧЕСКОЕ ЗАВЕДЕНИЕ РОССИИ



МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

федеральное государственное бюджетное образовательное учреждение высшего образования

«САНКТ-ПЕТЕРБУРГСКИЙ ГОРНЫЙ УНИВЕРСИТЕТ»

Кафедра информатики и компьютерных технологий

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

По дисциплине Информационные технологии

(наименование учебной дисциплины согласно учебному плану)
Тема: Лабораторная работа с Delphi

Вариант №1

Автор: студент гр. НГШ-20 Заболотский Д.В.

(подпись) (Ф.И.О.)

ОЦЕНКА:

Дата:

ПРОВЕРИЛ ассистент /Кочнева А.А. /

(должность) (подпись) (Ф.И.О)

Санкт-Петербург

2020 год

Оглавление

Введение 3

Линейно-вычислительный процесс 4

Разветвляющийся вычислительный процесс 7

Циклы суммирования 13

Цикл табулирования 16

Запись результата в файл 18

Одномерные массивы 21

Вектора 26

Матрицы 28

Построение графиков и поверхностей 31

Max,min 35

СЛАУ 36

Заключение. 38

Введение

С помощью данной лабораторной работы можно понять, как решать различные задачи в Mathcad. Благодаря данной лабораторной работе можно рассмотреть, как реализуются и работают функции и команды в данном приложении. При реализации данной лабораторной работы было изучено много нового и необходимого для дальнейшего изучения приложения Mathcad. Также был получен опыт реализации серьезных задач.

Информатика. Лабораторные работы Вариант 1

Задания к курсу “Информатика” I и II семестры¹

Линейно-вычислительный процесс

Задача 1.Вычислить площадь прямоугольного треугольника по формуле , где a, b – катеты треугольника. Получить ответ для a=0,83, b=1.2,298.2

Дано: a=0,83, b=1.2,298.2

Найти: s



Рисунок 1- Задача 1


Y Начало





a, b





S=(a+b)/2





S



Конец


Блок-схема 1- Задача 1

Задача 2. Задан круг радиуса r. В круг вписывается правильный 12-тиугольник, длина стороны которого a определяется по формуле . Площадь правильного вписанного многоугольника вычисляется по формуле , где p – полупериметр, h – высота 12-тиугольника, связанная с радиусом соотношением . Вычислить площадь правильного вписанного 12-угольника и величину ее отношения к площади круга. Получить ответ для r=1,92

Дано: r=1,92

Найти:S



Р
Начало
исунок 2- Задача 2




r





S=h*p

l=S/(pi*r^2)



s, l



Конец


Блок-схема 2 – Задача 2

Задача 3. Задан круг радиусом r. Вокруг круга описывается правильный шестидесятичетырехугольник, длина стороны a которого связана с радиусом вписанного круга формулой .

Найти периметр шестидесятичетырехугольника и разность между периметром и длиной заданной окружности.

Получить ответ для r=0,59.3.

Дано: r=0,59.3.

Найти: Pи P-L



Р
Начало
исунок 3- Задача 3




r





a=0.0981*r

p=64*a

l=p-2*pi*r





p, l





Конец


Блок-схема 3 – Задача 3

Разветвляющийся вычислительный процесс

Задача 4. Сравнить объемы куба со стороной a=1,2.77 и октаэдра со стороной a=2,12 и указать, который из них больше.

Примечание. Объем куба вычисляется по формуле ³, объем октаэдра – по формуле ³

Дано: a_k=1,2.77, a_o=2,12

Найти |V_k-V_o| и указать больший объем



Р
Начало
исунок 8 – Задача 4


a1, a2





V1=a³

V2=0.4714*a³



V1>V2


+ -


V1>V2

V1




Конец


Блок-схема 4 – задача 4

Задача 5. Задан выпуклый четырехугольник ABCD со сторонами a, b, c, d. Сделать вывод о возможности вписать в него окружность при a=1,6, b=7,3, c=3,6, d=1,3.

Указание: необходимым и достаточным условием возможности вписать окружность в четырехугольник является условие a+c=b+d

Дано: a=1,6, b=7,3, c=3,6, d=1,3.

Можно ли вписать окружность?



Рисунок 9 – Задача 5
Начало

a, b, c, d

a+c

b+d

a+c=b+d

можно

нельзя

Конец


+ -

Блок-схема 5 – задача 5

Задача 6.В декартовых координатах задан круг .x² + y² 16. Определить, попала ли точка с заданными координатами в круг.

Получить ответ для x=1.0,4 y=2,72



Рисунок 10 – Задача 6


Начало



x,y



x²+y²





x²+y²≤16
+ -




попала

Не попала



Конец


Блок-схема 6 – задание 6

Задача 45. Проверить справедливость утверждения для матриц и



Рисунок 11 – Задача 45

Задача 46. Сделать вывод о наличии единственного решения системы линейных алгебраических уравнений

Указание: система имеет единственное решение, если ее определитель отличен от нуля.



Рисунок 12 – Задача 46

Radiobutton, checkbox

Задача 72. Задан правильный треугольник со стороной а. Радиус вписанной окружности определяется по формуле r =0,2887 a, радиус описанной - R=0,5774a.

А) Создать программу, вычисляющую либо площадь вписанной, либо площадь описанной окружности. Ответ получить для случая а=3.86.



Рисунок 7 – Задача 72a

Б) Создать программу, вычисляющую либо площадь вписанной, либо площадь описанной окружности, либо обе площади. Ответ получить для случая а=3.86.



Рисунок 8 – Задача 72б

Задача 73. Имеется прямоугольный параллелепипед со сторонами а, b, c (рис. 2). Создать программу, вычисляющую либо объем (V), либо площадь боковой поверхности (М), либо полную поверхность (S) параллелепипеда, либо все эти величины. Объем параллелепипеда определяется по формуле V=abc, площадь боковой поверхности М=2(ab+bc), площадь полной поверхности – по формуле S=2(ab+bc+ac). Ответ получить для случая а=3.86, b=1.7, c=0,56 .



Рисунок 9 – Задача 73

Циклы суммирования

Задача 11. Вычислить суммы

1. 
   
   

Р
начало
исунок 10 – Задача 11а


p=0

s=0





p=p+8

s=s+1/p



p<96

Да



s

нет



конец


Блок-схема 7 – Задача 11а

б) ;



Рисунок 11 – Задача 11б


начало

p=0

s=0

p=p+8

s=s+1/p

p<96

s

конец

Да

нет


Блок-схема 8 – Задача 11б

в) при x=1.75



Рисунок 12 – Задача 11в


начало

p=0

s=0

p=p+8

s=s+1/p

p<96

s

конец

Да

нет


Блок-схема 8 – Задача 11в

Цикл табулирования

Задача 8. Вычислить функцию y=2x+1.37 для следующих наборов значений аргумента:

а) 1, 1.7, 2.4, 3.1 … 7.3



Р
Начало
исунок 13 – Задача 8а




x=1





y=2*x+1,37





x, y



x=x+0,7



Да



x<=7,3



нет



Конец


Блок-схема 9 – Задача 8а

б) 16, 4, 1, 1/4, 1/16, 1/64, 1/256

Рисунок 14 – Задача 8б


Начало

x=16

y=2*x+1,37

x, y

x=x/4

x<=1/512

Конец

Да

нет


Блок-схема 10 – Задача 8б

Запись результата в файл

Задача 8. Вычислить функцию y=2x+1.37 для следующих наборов значений аргумента:

в) 0.35, 0.3, 0.74, 1.3, 1.8, 2.05



Р
Начало
исунок 15 – Задача 8в


x_i



i=1



нет



i<=6

Конец



Да



y=2*x_i+1,37


‘


x_i, y





i=i+1


Блок-схема 11 – Задача 8в

Задача 9. Вычислить значения функции для следующих значений аргумента x: -0,5; -0,4; -0,3;…1.1.



Р
Начало

x=-0,5
исунок 16 – Задача 9




x<0,73

Да

нет





w=

w=x+1



x, w

x=x+0,1

x<=1,1

Да

нет



Конец


Блок-схема 12 – Задача 9

Задача 10. Вычислить значения функции на промежутке [0.1, 2.5] в 10 точках.



Р
Начало

x=0,1

x<1

Да

нет
исунок 17 – Задача 10


нет



z=x²

x<1,39

Да



z=cos(|x|)

z=3



x, z

x=x+0,24

x<=2,5





нет



Конец


Блок-схема 13 – Задача 10

Одномерные массивы

Задача 15. Задан вектор P={0.84, 6.5, -2, 5.17, 8.95, 9.4, -1.3}. Вычислить сумму его компонентов



Рисунок 18 – Задача 15


Начало

s:=s+x_i

i<=7

Да

нет

x_i



i=1

s=0



x_i, y





Конец





i=i+1


Блок-схема 14 – Задача 15

Задача 16. Задан вектор C=(7.2, -3.3, 4.1, 5.7, 0.2, 1.7, -0.2, 8.4). Вычислить сумму его компонентов, удовлетворяющих условию 1i<4





Р
Начало
исунок 19 – Задача 16


s:=s+c_i

Да

нет

s=0





c_i







1i<4



i:=i+1



Да



i<=8



нет



x, w





Конец


Блок-схема 15 – Задача 16

Задача 18. Найти макcимальное значение элементов вектора E. Ответ получить для случая E=( 3.68, -7.98, -0.82, 4.73, 3.75, -2.38, -25.3, 7.98).



Рисунок 20 – Задача 18


начало



X



m=x



I=2





X_i>m

нет



да



m=x_i





i=i+1



i
да



нет



m



конец


Блок-схема 16 – Задача 18

Задача 21. Подсчитать количество отрицательных элементов вектора. Ответ получить для случая E=(3.68, -7.98, -3.82, 4.73, 13.75, -2.38, -5.3, 7.98).



Рисунок 21 – Задача 21


Начало

k:=k+1

k

i:-i+1

i<=8

Конец

Да

нет

Да

нет

x_i<0

x_i

k=0










г) при x=3;



<sub>Рисунок 6 – Задача 11г

Задача 63. Вычислить приближенное значение интеграла



Рисунок 7 – Задача 63</sub>

Вектора

Задача 14. Вычислить вектор, получающийся при делении вектора F=(10.04, -6.3, -16.7, 28.4, -1.8) на число 4,5.



Рисунок 13 – Задача 14

Задача 15. Задан вектор . Вычислить сумму его компонентов.



Рисунок 14 – Задача 15

Задача 23. Вычислить скалярное произведение векторов и . Ответ получить для случая N=(-1.7, 8.2, 0.3, 0.75, 0.16, 0.72) и M=(4.2, 0.95, 7.2, 4.6, -0.3, 2.6).



Рисунок 15 – Задача 23

Матрицы

Задача 35. Вычислить сумму элементов матрицы Y. Ответ получить для .



Рисунок 16 – Задача 35

Задача 38. Траспонировать матрицу



<sub>Рисунок 17 – Задача 38

Задача 39. Вычислить матрицу, являющуюся матрицей, умноженной на число 0.5. Ответ получить для матрицы



Рисунок 18 – Задача 39</sub>

Задача 40. Вычислить матрицу, являющуюся произведением двух матриц. Ответ получить для и



Рисунок 19 – Задача 40

Задача 42. Вычислить матрицу, являющуюся матрицей V в третьей степени. Ответ получить для



Рисунок 20 – Задача 42

Задача 44. Вычислить значение матричного выражения при

Рисунок 21 – Задача 44

Построение графиков и поверхностей

Задача 52. Построить график функции y=x²+3x-1 на промежутке x[-5,5]. Определить, есть ли у функции максимум на этом промежутке, и в какой точке.



Рисунок 22 – задача 52

Задача 53. Построить график функции в полярной системе координат на промежутке φ[0,2π].



Рисунок 23- задача 53

Задача 54. Построить график функции, заданной параметрическими соотношениями при изменении t на промежутке t[-0.5, 4.5].



Рисунок 24- задание 54

Задача 56. Вычислить приближенные значения корней уравнения на промежутке x [-3, 4].

Указание: построить график левой части уравнения и по количеству пересечений графиком оси абсцисс сделать вывод о количестве и промежутках нахождения корней уравнения. Для вычисления значений корней, выполняя задание в табличном процессоре Microsoft Excel, использовать команду «Подбор параметра», выполняя задание в пакете MathCAD, использовать функцию нахождения корней уравнения root.



Рисунок 25 –задание 56

Задача 61. Построить поверхность, заданную зависимостью для диапазонов изменения переменных x[1, 4] и y[0, 5].



Рисунок 26-задание 61

Задача 62. Определить, имеют ли общие точки поверхности и при х[-5, 5] и y[-4, 8].



Рисунок 28 – задание 62

Max,min

Задача 7. Вычислить значение функции при a=1, b=2, c=4



Рисунок 29 – Задача 7

Задача 18. Найти максимальное значение элементов вектора E. Ответ получить для случая



Рисунок 30- Задача 18

Задача 30. Определить максимальный элемент матрицы X. Ответ получить для



Задача 31- Задача 30

СЛАУ

Задача 47. Найти решение системы линейных алгебраических уравнений

• 
  Методом обратной матрицы;
  

Рисунок 32 –Задание 47

• 
  Методом Крамера;
  

Рисунок 33- Задание 47

• 
  Методом Гаусса.
  

Рисунок 34 –Задание 47

Заключение.

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

• 
  Программа Mathcad и ее компонентов (панель инструментов и др. функции)