Практическая работа №21 Тема : Составление программ линейной структуры с использованием стандартных функций. Ввод-вывод данных в Delphi

Практическая работа № 21 Тема: Составление программ линейной структуры с использованием стандартных функций. Ввод-вывод данных в Delphi. Цель: Научиться составлять простейшие программы в среде Delphi, организовывать ввод-вывод данных, использовать меню и владки. ^ Время: 160 мин. Задание: Решить задачу согласно варианта, организовав ввод данных и вывод результата. Литература: Содержание отчёта: Ответы на вопросы, поставленные в пунктах описания последовательности выполнения работы. Блок-схема алгоритма и текст программы. Выводы по работе (что изучили, чему научились). ^ Задание № 1 Даны x, y, z . Вычислить a, b, если: 1.       2.       3.       4.       5.       6.       7.       8.       9.       10.       11.       12.       13.       14.       15.       Варианты задания № 2: Зависимость пройденного телом пути S от времени t описывается формулой: S = at + bt2 + ct3 . Найти пройденный телом путь при a = 10,6 м/c, b = 3,04 м/c2, с = 0,047 м/c3, t = 1,28 c. Вывести на экран: «Путь S = <результат> м» Найти натяжение Т каната, перекинутого через блок, если на концах каната подвешены грузы с массами m1 и m2. Зависимость T от m1 и m2 представлена в виде: Т = 2 m1 m2 g / (m1 + m2), где g – ускорение силы тяжести. Задачу решить при m1 = 100 кг, m2 = 55,5 кг, g = 9,81 м/с2. Вывести на экран результат вычисления с пояснительной надписью «Натяжение каната». Фактический объём выполненных строительно-монтажных работ составил 5432,8 тыс. грн., при этом плановое задание оказалось перевыполненным на 1,5 %. Вычислите объём планового задания. Цена товара - 850 грн. В неё входит НДС – 20 % от стоимости товара. Определите стоимость товара без НДС. Определить момент инерции J однородного цилиндра с радиусом R и массой m относительно оси вращения, если m = 5,23 кг, R = 0,2 м. Момент инерции однородного цилиндра относительно оси вращения выражается зависимостью: J = 5 m R2. Исходные данные и результат вычисления вывести на печать. Определить радиус однородного шара, если его масса m = 5,23 кг, а момент инерции J = 1,4 10-2 кгм2. Момент инерции J однородного шара радиусом R относительно оси вращения выражается зависимостью: J = 2/5 m R2. Исходные данные и результат вычисления вывести на печать. Определить внутренний и внешний радиусы полого цилиндра, если его масса m = 5,23 кг, а момент инерции J = 1,4 10-2 кгм2. Момент инерции J для полого цилиндра с радиусами R1 и R2 относительно оси вращения выражается зависимостью: J = 1/2 m (R12 + R22), считать R2 = 2R1. Исходные данные и результат вычисления вывести на печать. Найти x = lg y, если y = at2 + bt + c; a = 1,04 ; b = 3,785; c = 12,76; t = 100,21. Исходные данные и результат вычисления вывести на печать. Пористость грунта определяют по формуле: где об – объёмная масса грунта, уд – плотность грунта, W – влажность грунта в процентах. Найти пористость грунта при следующих данных лабораторного анализа: об = 1,95 кг/м3; уд = 2,64 кг/м3; W = 22 %. Высота фундамента определяется по формуле h = (b – b0)/2·tg, где b, b0 – параметры ширины фундамента,  - угол, зависящий от соотношения h, b, b0. Решить задачу при b = 180 см, b0 = 64 см,  = 30. Результат вычисления вывести на печать, указав размерность. При настилке пола из керамических квадратных плиток, укладываемых по диагонали, число треугольных плиток, укладываемых у фризового ряда, определяется по формуле n = L /(1,41a+2b), где L – длина стороны фриза; a – длина стороны квадратной плитки; b – ширина шва между плитками. Решить задачу при L = 5230 мм, a = 50 мм, b = 1,5 мм. Учесть, что n – целое число. Используя теорему синусов (стороны треугольника пропорциональны синусам противоположных углов), найти стороны треугольника a, b, c, если два его угла соответственно равны 300 и 400, а радиус окружности, описанной около этого треугольника, равен 5 см. Учесть, что в теореме синусов каждое из отношений равно диаметру описанной около треугольника окружности : Найти радиус окружности, описанной около треугольника, если его стороны равны 5, 6 и 7 см. Примечание: использовать формулу , формулу Герона , где a, b, c - стороны треугольника, р – полупериметр: Найти площадь треугольника, стороны которого равны 3, 4 и 5 см. Примечание: использовать формулу Герона , где a, b, c - стороны треугольника, р – полупериметр: Найти гипотенузу прямоугольного треугольника, если его катеты равны 3 и 5 см. (Использовать теорему Пифагора). В прямоугольном треугольнике катет равен другому катету, умноженному на тангенс угла, противолежащего первому катету: a = b tg. Найти стороны прямоугольного треугольника, если один из катетов равен 6 см, а угол, ему противолежащий, равен 400. На плоскости находятся две точки А и В с координатами А(х1; у1) и В(х2; у2). Найти расстояние d между ними, если d2=(x2-x1)2+(y2-y1)2. Задачу решить для х1=5 см; у1=3 см; х2=9 см; у2=6 см. Уравнение окружности с центром в точке А0(a,b) и радиусом R имеет вид (х-а)2+(у-b)2=R2. Найти координату y точки В, если а=3; b=2,5; R=2,8; x=5 и y Объём усеченной пирамиды вычисляется по формуле : где h - высота усечённой пирамиды, Q1 и Q2 – площади оснований. Найти объём усечённой пирамиды, укоторой h=5 см; Q1=18 см2; Q2=7 см2. Объем конуса вычисляется по формуле : , где R - радиус основания конуса, H - высота. Найти длину окружности, лежащей в основании конуса, если его объем V=25 см3, а высота H=7 см. Объём шара равен , где R - радиус шара. Найти радиус шара, если его объём равен V=30 см3. Боковое ребро правильной треугольной пирамиды равно а и составляет с плоскостью основания угол . В эту пирамиду вписан цилиндр с квадратным осевым сечением. (Основание цилиндра лежит в плоскости основания пирамиды). Объём этого цилиндра можно найти по формуле : Определить боковое ребро а пирамиды, если угол =1,2 радиана, V=40 см3. Даны две точки А(-1; 2; 5) и В(7; -4; 8). Найти расстояние между А и В по формуле: Результат округлить до 0,1. Начало Ввод исх. данных Y=… (вычисления) Вывод результата Конец Пример блок-схемы алгоритма: Рисунок .

Похожие:

	Практическая работа №2 7 Тема : Составление программ линейной структуры... Тема: Составление программ линейной структуры с использованием стандартных функций. Ввод-вывод данных в Delphi		Практическая работа №21 Тема : Составление программ линейной структуры... Тема: Составление программ линейной структуры с использованием стандартных функций. Ввод-вывод данных в Delphi
	Практическая работа №20 Тема : Составление программ линейной структуры... Тема: Составление программ линейной структуры с использованием стандартных функций		Практическая работа №13. Тема: Решение задач в Excel с помощью vba.... Цель: Научиться выполнять вычисления с использованием функций и операторов vba, организовывать ввод и вывод данных, научиться выполнять...
	Лабораторная работа №14 Тема Цель работы: Закрепление знаний о множественных типах данных; о принципах работы с множествами; составление, ввод и выполнение программ...		Лабораторная работа №3 Тема Цель работы: Закрепление знаний об интегрированной среде; составление, ввод и выполнение простейшей линейной программы с использованием...
	Лабораторная работа №13 Тема Цель работы: Закрепление знаний о структурированных типах данных; о принципах работы с полями записей; составление, ввод и выполнение...		Практическая работа №22 Тема : Составление программ разветвляющейся... Тема: Составление программ разветвляющейся структуры. Использование управляющей структуры if…Then
	Практическая работа №2 8 Тема : Составление программ разветвляющейся... Тема: Составление программ разветвляющейся структуры. Использование управляющей структуры if…Then		Практическая работа №25 Тема : Типы данных в Delphi Тема: Типы данных в Delphi. Организация ввода-вывода данных, использование нескольких форм