Составление программы

@Glova · Регистрация: 11.11.2011

Студворк — интернет-сервис помощи студентам

Привет)
Посидел-подумал над вторым заданием и вроде его решил, может кто скажет, верно ли?
А вот первое задание никак не могу дойти. Может кто подскажет, как его делать? Ну или сразу напишет

Задание 1:
1. Часть 1:
1.1. Для первой части задания выбрать вариант из таблицы 4.2-1 по усмотрению преподавателя.
1.2. Для выбранного варианта разработать три процедуры пользователя для вычисления заданного арифметического выражения: процедуру-функцию с формальными параметрами, процедуру-подпрограмму с формальными параметрами и процедуру без параметров (передача данных через глобальные объекты).
1.3. Разработать алгоритмы решения заданной задачи и представить их в виде схем алгоритмов.
1.4. Создать решение, содержащее три проекта, каждый из которых использует модуль формы, одну из разработанных в п.2 процедур пользователя, вычисляющую заданное арифметическое выражение, и событийную процедуру, в которой осуществляется ввод исходных данных, вызов процедуры п.2 и вывод результатов.
1.5. Выполнить созданные проекты и получить

Задание 2:
2. Часть 2:
2.1. Выбрать вариант задания из таблицы 4.3-1 по усмотрению преподавателя.
2.2. Записать заданные или полученные в процессе формализации математические формулы в виде арифметических выражений.
2.3. Разработать алгоритм решения заданной задачи и представить его в виде схем алгоритмов.
Тема 4.3. ЛР «Структура VB-программ и процедуры» Страница 34
2.4. Создать проект, использующий модуль формы, процедуры пользователя, решающие предписанные задачи, процедуры ввода исходных данных и процедуру вывода результата. Обмен данными между процедурами должен осуществляться через параметры, без использования глобальных переменных. Событийная процедура должна содержать только операторы вызова пользовательских (общих) процедур.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Strict On
Option Explicit On
Imports System.Math
 
Public Class Form1
 
    'Функция ввода координаты точки в TextBox
    Function vvod(ByVal T As TextBox) As Single
        Return CSng(Val(T.Text))
    End Function
 
    'Процедура вывода результата в TextBox
    Sub vivod(ByVal Z As Single, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    'Функция вычисления длины отрезка по координатам двух  точек
    Public Function ДлинаОтрезка(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single) As Single
        Return CSng(Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2))
    End Function
    'Процедура вычисления площади треугольника
    Sub S(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single, ByVal x3 As Single, ByVal y3 As Single, ByRef S As Single)
        Dim A, B, C As Single
        A = ДлинаОтрезка(x1, y1, x2, y2) 'Вызов функции вычисления длины отрезка          
        B = ДлинаОтрезка(x2, y2, x3, y3)
        C = ДлинаОтрезка(x3, y3, x1, y1)
        S = CSng(1 / 2) * Abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1))
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x1, x2, x3, y1, y2, y3, Пло As Single
        x1 = vvod(TextBox1) : x2 = vvod(TextBox3) : x3 = vvod(TextBox5)
        y1 = vvod(TextBox2) : y2 = vvod(TextBox4) : y3 = vvod(TextBox6)
        S(x1, y1, x2, y2, x3, y3, Пло)
        vivod(Пло, TextBox7)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Новые блоги и статьи Все статьи Все блоги /
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .

Опции темы