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

@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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 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, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .