СПРОСИ ПРОФИ
👍
0
👎 07

Visual BASIC

Пожалуйста, помогите решить задачу ((
Задание:
Задание для контрольной работы содержит задачу.

В задаче необходимо составить программу на алгоритмическом языке Visual BASIC.

Причем, программа должны быть записаны в двух вариантах: в первом варианте необходимо использовать оператор условного перехода
IF ...Go To, а во втором — оператор цикла For... To... Step, Next. Для облегчения решения задачи по ней даны Краткие методические указания.
Страницы Работы должны быть пронумерованы и на каждой из них оставлены поля для замечаний и предложений рецензента. В конце работы ставится дата выполнения.

сама задача на фото. http://content.foto.mail.ru/bk/dred-2/_answers/i-5.jpg
BASIC языки программирования программирование обучение     #1   17 июн 2013 17:22   Увидели: 3 клиента, 2 специалиста   Ответить
👍
0
👎 0
В чём Ваша сложность?
Объявите переменные и инициализируйте их значения: СКоб=12000, З=15000, КР=6000
В случае с IF, добавьте к КР 100 и рассчитайте коэффициент, после чего проверяйте условие, что КР не больше 7000, если это так — оператором GoTo переходите на строку, где вы добавляете 100.
В цикле For...To — почти то же самое, в теле цикла добавляете 100 к КР и рассчитываете ваш К.
👍
0
👎 0
Просто дело в том, что я не изучал этот язык программирования, я изучал только алгоритмический язык C++ и КуМИР((

Вы бы не могли проварить, правильно ли я решил данную задачу, я, вроде, прочитал дополнительную литературу, думаю, что все верно.
Вы бы могли это подтвердить?

_______________________________________
1 вариант:
Dim K As Double, CK As Integer, KP As Integer, Z As Integer
Private Sub Form_Load()
CK = 12000
Z = 18500
For KP = 6000 To 7000 Step 100
K = CK + KP
K = K / Z
Print K
Next KP
End Sub

__________________________________________________________

2 вариант:

Dim K As Double, CK As Integer, KP As Integer, Z As Integer
Private Sub Form_Load()
KP = 6000
jumplabel1:
CK = 12000
Z = 18500
K = CK + KP
K = K / Z
Print K
Do
KP = KP + 1
If KP Mod 100 = 0 Then GoTo jumplabel1
If KP > 7000 Then GoTo jumplabel2
Loop
jumplabel2:
End Sub
👍
0
👎 0
2 вариант
Будет проще, если к переменной KP прибавлять не по единичке, а сразу по 100.
Тогда не нужен будет цикл Do-Loop и не нужна будет метка jumplabel2.
👍
0
👎 0
Разве оператор DIM не должен стоять внутри процедуры?
👍
0
👎 0
Да Черт его знает, я же говорю, что не изучал этот язык программирования и все языковые нормы мне не все известны(

меня подруга просила помочь ей, а я согласился)

ну ладно, что есть, то есть) я уже все отослал)
👍
0
👎 0
В первом варианте, вроде, нормально.
Во втором — непонятное что-то... Вы зачем-то используете две метки (вторая не нужна, а первая стоит не там где нужно) и зачем-то используете loop (причём, условие выхода, которое должно быть по синтаксису или в while, или в untill, отсутствует).
Всё гораздо проще, чем вы это себе представили: метка нужна только перед добавлением 100 к KP (по единице добавлять и проверять на кратность 100 — не надо, это жутко неэффективно). После добавления идёт расчёт К, а затем, если KP <= 7000 — делается GoTO.
Loop здесь тоже никаким боком — вы уже пытаетесь имитировать цикл при помощи метки, зачем же ещё и loop?
Напишите 2 вариант заново :)
👍
0
👎 0
спасибо)

Задайте свой вопрос по программированию
профессионалам

Сейчас онлайн 75 репетиторов по программированию
Получите ответ профи быстро и бесплатно

Другие вопросы на эту тему:

👍
+1
👎 12

С++   2 ответа

Задача
z1=1/4-1/4*sin(5/2*pi-8*a)

Я написала код,но он работает не правильно,потому что вычисления на калькуляторе и те что делает компилятор(Visual Studio) не совпадают.Помогите пожалуйста разобраться почему??

#include<iostream>
#include<locale>
#include<cmath>

using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
float a, pi, z1;
pi=3.14;
cout<<"введите…
  09 май 2012 10:36  
👍
0
👎 08

Программа   8 ответов

Вывод результатов в виде таблицы. Запас картофеля на складе составляет Q т в начале октября. Ежеме­сячно для продажи изымается S т, а естественные ежемесячные потери полагаются равными р % текущего запаса. Найти, сколько картофеля остается на складе к концу октября, ноября, декабря, ..., июня.
Задание №2.
Модифицировать первую задачу, отразив в ней следующие измененные условия.
Естественная убыль в октябре составляет p %, а в каждый последующий месяц увеличивается по сравнению с предыдущим в 2 раза.
  26 сен 2013 00:04  
👍
0
👎 017

Программирование на Си: как отсортировать двунаправленный список?   17 ответов

Здравствуйте. Помогите, пожалуйста, с программированием.
В программе есть двунаправленный список:
struct l2
{
char*name;
char*ext;
l2*next;
l2*prev;
};
Его нужно отсортировать по полю name. Как это сделать?
Точнее, основной вопрос в том, как поменять местами два элемента списка. Если это получится, дальше справлюсь.
Заранее спасибо за помощь.
  16 июн 2012 19:50  
👍
−1
👎 -11

Pascal   1 ответ

составить блок-схему алгоритма и программу на языке Pascal для вычисления на ЭВМ значаний переменных.
  05 окт 2011 17:47  
ASK.PROFI.RU © 2020-2021