Visual BASIC

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

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

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

сама задача на фото. http://content.foto.mail.ru/bk/dred-2/_answers/i-5.jpg

В чём Ваша сложность?
Объявите переменные и инициализируйте их значения: СКоб=12000, З=15000, КР=6000
В случае с IF, добавьте к КР 100 и рассчитайте коэффициент, после чего проверяйте условие, что КР не больше 7000, если это так — оператором GoTo переходите на строку, где вы добавляете 100.
В цикле For...To — почти то же самое, в теле цикла добавляете 100 к КР и рассчитываете ваш К.

Просто дело в том, что я не изучал этот язык программирования, я изучал только алгоритмический язык 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

2 вариант
Будет проще, если к переменной KP прибавлять не по единичке, а сразу по 100.
Тогда не нужен будет цикл Do-Loop и не нужна будет метка jumplabel2.

Разве оператор DIM не должен стоять внутри процедуры?

Да Черт его знает, я же говорю, что не изучал этот язык программирования и все языковые нормы мне не все известны(

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

ну ладно, что есть, то есть) я уже все отослал)

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

спасибо)

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

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

составить блок-схему алгоритма и программу на языке Pascal для вычисления на ЭВМ значаний переменных.