1 / 1 / 0
Регистрация: 05.12.2012
Сообщений: 21
1

Создание блок схемы по коду

07.12.2012, 16:20. Показов 2544. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Собственно имеется код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ket()
Dim a ()
n=Cells (4,2).Vallue
Redim a(n)
For i=1 To n
a(i)=Cells (i+6,1).Vallue
Next i
k=0
For i=1 To n
If a(i) Mod 2=0 then k=k+2
Next i
Cells (9,2).Vallue=k
End Sub
По нему прошу "накалякать" блок схемку простую, как вам удобно хоть на листике или в паите

От меня спасибо и как всегда + к карме

Заранее благодарен!

Контактные данные удалены
 Комментарий модератора 
Все вопросы по теме решаем здесь!


Добавлено через 1 час 41 минуту
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ket()
Dim a ()
n=Cells (4,2).Vallue
Redim a(n)
For i=1 To n
a(i)=Cells (i+6,1).Vallue
Next i
k=0
For i=1 To n
If a(i) Mod 2=0 then k=k+1
Next i
Cells (9,2).Vallue=k
End Sub
*поправил код*
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2012, 16:20
Ответы с готовыми решениями:

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

Построение блок-схемы по готовому коду
Dim a As String, i As Integer, j As Integer Private Sub Form_Load() a = InputBox("введите...

Создание блок-схемы по коду VBA
Ребят, подскажите, как переделать блок-схему, чтоб она была правильной. код VBA Private Sub...

Составить блок-схемы по программному коду
CLS REM 04 INPUT "x1="; x1 INPUT "x2="; x2 INPUT "E="; E DO y(x1) = TAN(x1) - x1 ...

4
1 / 1 / 0
Регистрация: 05.12.2012
Сообщений: 21
08.12.2012, 00:31  [ТС] 2
так же ответ найден благодаря товарищу "gaw"
Миниатюры
Создание блок схемы по коду  
0
11506 / 3793 / 681
Регистрация: 13.02.2009
Сообщений: 11,197
08.12.2012, 09:35 3
Visual Basic
1
a(i)=Cells (i+6,1).Vallue
Вот здесь вопрос спорный: не вычисление а считывание - должен быть паралелограмм?

Добавлено через 11 минут
Ну и ещё целый набор нарушений п 4.2.4 ГОСТ 19.701-90
(введен в действие с 01.01.1992г.)
Соответствует международному стандарту
ИСО 5807-85 и ОКСТУ 5004
4.2.4 Линии в схемах должны подходить к символу слева либо сверху, а исходить либо справа, либо снизу. Линии должны быть направлены к центру символа.
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.12.2012, 17:11 4
Цитата Сообщение от Alex77755 Посмотреть сообщение
Вот здесь вопрос спорный: не вычисление а считывание - должен быть паралелограмм?
а может присваивание (блин, еле написал ) , не буду спорить
а со стрелками сейчас это нарушают в пользу компакиности
0
11506 / 3793 / 681
Регистрация: 13.02.2009
Сообщений: 11,197
08.12.2012, 19:18 5

Не по теме:

Вот тут все зависит от принципиальности препода..
Но если всё сделано по ГОСТ проще доказать правоту.


Кликните здесь для просмотра всего текста
Кликните здесь для просмотра всего текста
Хотя, конечно, бухгалтерский подход имеет место: сколько будет 2*2?
3 - неправильно! 5 - неправильно. Даже 4 неправильно.
Правильный ответ: А сколько вам надо?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2012, 19:18
Помогаю со студенческими работами здесь

Создание блок-схемы FreeBasic - Basic
cls dim as single n,i input n screen 12 window (-200,-200)-(200,200) x1=-190 y1=-190 ...

Создание блок-схемы по коду
Здравствуйте, срочно нужна ваша помощь!!! Завтра сдавать весь материал по диплому, а осталась у...

создание блок схемы по коду
Program mass2; {раздел описаний} var b, c, n, m: integer; a: array of real; d: real; {начало...

Блок-схемы по коду
помогите сделать блок-схемы по коду в Делфи var Form1: TForm1; a, i, x, d, r, o, s :...

Блок-схемы к коду
Нужны блоксхемы к следующим задачам: 1) using System; using System.Collections.Generic; using...

Составить блок-схемы по коду
Помогите составить 2 блок-схемы к программам. На всякий случай прикрепил задания. 1) var k :...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru