15  Private Sub Command1_Click()
Dim X(12) As Single, T(12) As Single
Dim A!, S!, P!
Dim i%, st1 As String, st2 As String
Randomize (Timer)
S = 0: P = 1: st1 = "": st2 = ""
For i = 1 To 12
X(i) = Int(Rnd * 10): st1 = st1 & X(i) & "  "
T(i) = Int(Rnd * 10): st2 = st2 & T(i) & "  "
If i < 8 Then S = S + (X(i) - T(i)) Else P = P * (X(i) - T(i))
Next i
MsgBox st1 & vbLf & _
        st2 & vbLf & _
        "A=" & S & " + " & P & "=" & S + P
End Sub

PureBasic

15  Private Sub Form_Load()
Dim C(1 To 5, 1 To 11), M1, T, R
For i = 1 To 5
    For j = 1 To 11
        C(i, j) = Int(100 * Rnd - 50)
    Next j
Next i
M1 = C(1, 1): T = 1: R = 1
For i = 1 To 5
    For j = 1 To 11
        If C(i, j) < M1 Then M1 = C(i, j): T = i: R = j
    Next j
Next i
MsgBox "M1 = " & M1 & Chr(13) & "T = " & T & Chr(13) & "C = " & R
End Sub

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Similar

Эксперт

41792 / 34177 / 6122

Регистрация: 12.04.2006

Сообщений: 57,940

05.05.2013, 15:31

Я подобрал для вас темы с готовыми решениями и ответами на вопрос Переписка с Бейсика в С++ (C++):

Помогите переписать с Бейсика на С/С++ - C++
CLS DO cl1 = 0 /* + */ cl2 = 0 /* + */ datPort$ = "" /* ?*/ strGps$ = "" /* ?*/ dat$ = "" /* ?*/ ...

Fread(), fseek(), fwrite() - Переписка байтов - C++
Всем привет. Такой вопрос. Есть задача пройтись по бинарному файлу с вещественными числами и как-то изменить его элементы, пусть будет,...

Задача переписка - Turbo Pascal
Недавно была перехвачена переписка Ильи с Илоной. Из нее были удалены все символы, кроме смайлов: • :( -1 • :) +1 • :-D ...

Внутренняя переписка на сайте - PHP БД
Начал делать скрипт на php внутренней переписки и застрял на первом этапе, вот такой вопрос, создавать одну таблицу для хранения писем и...

Переписка сектора памяти - Assembler
Ребят, помогите, пжлст! Нужно написать программу (лабораторная работа), а как обычно бывает в нашей стране, препода не было пол семестра и...

Из Бейсика на C - C++ WinAPI
Есть программа, написанная на Microsoft Quick Basic v.4.50, которая пингует сайт и при не получении ответа от сайта в течении 120 секунд...

MoreAnswers

Эксперт

37091 / 29110 / 5898

Регистрация: 17.06.2006

Сообщений: 43,301

05.05.2013, 15:31

Привет! Вот еще темы с ответами:

Где в Windows 7 сохраняется переписка ВК - Windows 7
Самые умненькие мальчики,расскажите пож-та где в виндоус 7 сохраняется переписка например контакта?????

Переписка файлов в несколько потоков - Windows
Переписываю файлы с компьютера (у нас 4 харда с большими файлами) на внутренний hdd, подключенный к компу через док.станцию по eSATA. ...

с бейсика на паскаль - Pascal ABC
у меня есть программа на бейсике,мне ее же нужно написать на паскале: 10 PRINT "день,месяц,год(12,08,1992)" 20 PRINT 21 PRINT 22...

Интерпретатор бейсика - C (СИ)
Вот исходник из какой-то книги по Си, точное название не помню http://rghost.ru/19458571 В ней рассматривается интерпретатор бейсика и...

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

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх