Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 28.02.2020
Сообщений: 11

Нужна блок-схема

25.03.2020, 17:35. Показов 455. Ответов 0

Студворк — интернет-сервис помощи студентам
Добрый вечер! Помогите пожалуйста с блок-схемой к коду. Заранее премного благодарен:

Visual Basic
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
Sub lab2()
Open "C:\Users\ПК\Desktop\data1.txt" For Output As #1
Dim xmin As Double, X As Double, xmax As Double, h As Double
    h = 0
    X = -0.5
    xmin = -0.5
    xmax = 4
    h = (xmax - xmin) / 8
1  X = X + h
    Print #1, Format(X, "00.000")
    If X < xmax Then GoTo 1
    Close #1
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub lab21()
Open "C:\Users\ПК\Desktop\data1.txt" For Input As #1
Open "C:\Users\ПК\Desktop\res2.txt" For Output As #2
Const pi As Single = 3.14
Dim X, Y As Double
Print #2, Tab(10); "Получено:"
2 Input #1, X
Y = 2 * X - pi * X ^ (2 / 3)
If EOF(1) Then GoTo 3
Print #2, Tab(10); "Для данной функции Y("; Format(X, "00.000"); ")"; Tab(30); "="; Format(Y, "000.0")
GoTo 2
3 Print #2, Tab(15); "Выполнил..."
Close #2
Close #1
End Sub
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.03.2020, 17:35
Ответы с готовыми решениями:

Нужна блок схема по коду VBA
Sub Посчитать() Dim i, i1, sum, sum1 As Integer sum = 0 For i = 2 To 10 If Cells(i, 6) = 0 Then sum = sum + 1 Next i Cells(6,...

Блок-схема (схема нуждается в проверке)
Блок-схемы чертить никогда не умел, поэтому прошу помощи у знатоков. Нашёл в инэте прогу, которая схемы строит автоматически, по коду, но...

Нужна блок-схема
Вот программка, к ней нужна блок-схема. Помогите пожалуйста. uses crt; var a:array of integer; i,n,j,m,s:integer; ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.03.2020, 17:35
Помогаю со студенческими работами здесь

Нужна блок схема
Program m3; uses crt; var n,k:integer; a,b,h,r,p,l,s:real; begin clrscr; write('Кезектиликти енгизу ушин Enter пернесин...

Блок схема нужна
#include &lt;stdio.h&gt; #include&lt;math.h&gt; int main(void) { int C, D; for (int i=0; i&lt;50; ++i) { scanf(&quot;%d&quot;,&amp;C); } for (int...

Нужна блок схема
Можно ли с помощью Worda написать блок схему если да то помогите написать блок схемы для этих 2 программок и что означает &quot;обасновать...

Нужна блок-схема
program m1; var a:array of integer; i,j,max,min,s,n,m,i1,j1:integer; begin randomize; writeln('Vvedite kolichestvo srok',n); ...

Нужна блок схема
Нужна блок схема к трём задачям! 1: program cyb_52; uses Crt; var R1, R2, x, y: real; begin ClrScr; write('Vneshnii...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru