Язык программирования: Visual Basic
10-11 класс
|
Задача: У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, чтобы обменять доллары на рубли наиболее выгодно.
Sub Z()
Dim a(10) As Currency
Dim i As Integer
Dim min As Currency
Dim s As String
s = "Курсы покупки в банках:" & Chr(13)
For i = 1 To 10
a(i) = Int(Rnd * 1000 + 3000) / 100
s = s & i & ": " & a(i) & " "
If i = 1 Then min = a(i)
If a(i) < min Then min = a(i)
Next i
s = s & Chr(13) & "Меняйте в банке номер: "
For i = 1 To 10
If a(i) = min Then s = s & i & "; "
Next i
s = s & Chr(13) & "По курсу: " & min
MsgBox (s)
End Sub
Другие вопросы из категории
на паскале
1.Найти сумму первых 10 натуральных нечетных чисел.
2.Найти произведение натуральных чисел прекратить подсчет при вводе 1.
Определите количество положительных групп в этом массиве.
(группа это последовательность состоящая из 2-х и более положительных чисел находящихся рядом.)
Читайте также
положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
1)Заменить значение любого элемента массива на а
2)Определить имеются ли четные числа в массиве
3)Заменить все элементы некоторой строки на заданное число
4)Вывести все элементы N столбца и M строки
1) -к одному из искусственных языков
2) -к алгоритмическому языку программирования СИ;
3) -к естественным языкам;
4) -к языку логического программирования;
5) -к графическому языку.