Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
//Pascal ABC.NET v3.1 сборка 1172
var
NA, NB, NC: integer;
function minim(ar: array of real; n: integer): real;
var
i: integer;
min: real;
begin
min := MaxReal;
for i := 0 to n - 1 do //динамические массивы индексируются с 0
if min > ar[i] then min := ar[i];
minim := min;
end;
begin
randomize;
write('NA:');readln(NA); //ввод размерностей
write('NB:');readln(NB);
write('NC:');readln(NC);
var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов
var b := ArrRandomReal(NB, 1, NB);
var c := ArrRandomReal(NC, 1, NC);
a.println(' ');
writeln('Min:', minim(a, NA));
b.println(' ');
writeln('Min:', minim(b, NB));
c.println(' ');
writeln('Min:', minim(c, NC));
end.
Пример ввода:
NA:3
NB:4
NC:5
Пример вывода:
2.45183664907321 2.12786289357015 2.8286734511278
Min:2.12786289357015
3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996
Min:1.03827733129183
3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051
Min:3.57791954771519
Д) 7 - расскрась например зелёным;
г) 6 - синим
в) 14 - красным;
б) 17 или 8 - оранжевым
а) 11 - жёлтым
<h2>Задание 1</h2>
Так как в записи числа может присутствовать цифра 7, то система счисления называется 7 + 1 = восьмеричной (3)
<h2>Задание 2</h2>
Так как в записи числа присутствует число 5, то данное число существует во всех системах счисления, больших 5, то есть 6, 7, 8, 9, 10 и так далее (1, 3 (какая там система счисления? - речная), 4)
<h2>Задание 3</h2>
101₂ = 100 + 1 = 11 + 1 + 1 = 10 + 1 + 1 + 1 = 1 + 1 + 1 + 1 + 1. Так как единица в двоичной системе равна единице в десятичной системе, то складываем и получаем ответ 5 (2)
<h2>Задание 4</h2>
Только над целыми (1)
<h2>Задание 5</h2>
a = 8;
b = 6 + 3 · a = 6 + 3 · 8 = 30
Так как нам нужно определить именно значение b, то вычислять значение переменной a не имеет смысла.
<h2>Задание 6</h2>
begin - оператор открытия основного блока, read - чтение значения переменных, wrircln - бред, а print - вывод (4)