|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
End Sub
Пример_Л1. Составить ГСА и текст программы для вычисления функции: где x = a∙t2 + 0.2, a = 18, t – произвольное. ГСА Текст программы: Option Explicit ‘Запрет использования необъявленных переменных Sub Лин_процесс1() ‘Начало процедуры Лин_процесс1 Const a = 18 ‘Объявление константы a Dim t As Single ‘Объявление вещественной переменной t Dim x As Single ‘Объявление вещественной переменной x Dim y As Single ‘Объявление вещественной переменной y t = Val(InputBox("Введите t")) ‘Ввод значения t x = a * t ^2 + 0.2 ‘Расчет x y = (x ^ 2 + Log(x) - (x + 1) ^ 2) / (x * Sin(x)) ‘Расчет y MsgBox "Результат y=" & y ‘Вывод y в диалоговое окно End Sub ‘Конец процедуры
Ниже приведено решение того же примера с использованием других способов ввода и вывода данных. Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.) |