Очень срочно нужна помощь с блок-схемой - Бесплатно сделаю блок-схему

Меню сайта
Главная страница Примеры блок-схем Скачать Купить Контакты Что нового История создания Сделаю для вас блок-схему FAQ (вопрос/ответ) Блог

Форма входа

Друзья сайта
Программа Ростовщик 1.04 Программа расчета кредита Курсовые по информатике Старый, но живой ГОСТ для Блок-Схем Сервис заполнения бланков аттестатов Библиотека VBA для сервиса AntiGate.com

Статистика

Приветствую Вас, Гость · RSS

03.05.2024, 02:35

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: diamFC

Бесплатно сделаю блок-схему » Блок-схемы по просьбам » Главное - ВЕРИТЬ (© Didme) » Очень срочно нужна помощь с блок-схемой

Очень срочно нужна помощь с блок-схемой

Hiviru

Дата: Понедельник, 29.12.2014, 22:02 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 1

Репутация: 0

Статус: Offline

Здравствуйте, с наступающим вас :3
очень нужна помощь в составлении блок-схемы для
Sub fui()
Dim x(10) As Integer
Dim y(10), summ1, summ2, summ3 As Single
summ1 = 0
summ3 = 0
For i = 2 To 2
x(i) = Cells(4, i)
c = x(i)
Next
For i = 1 To 10
x(i) = Cells(4, i)
summ3 = summ3 + (x(i) - 2)
Next
Cells(6, 13) = summ3
For i = 1 To 10
x(i) = Cells(4, i)
summ2 = x(i)
summ1 = summ1 + x(i)
Next
Cells(6, 12) = summa1
For i = 1 To 10
x(i) = Cells(4, i)
y(i) = (summ2 / summ1) - (c / summ3)
Cells(7, i) = y(i)
Next i
End Sub

Заранее огромное спасибо!)

diamFC

Дата: Вторник, 30.12.2014, 04:57 | Сообщение # 2

Полковник

Группа: Администраторы

Сообщений: 207

Репутация: 11

Статус: Offline

Здравствуйте, Блок=схемы для бейсика не делаю.

Страница 1 из 1
1