5 заданий на Visual Basic - VB

Формулировка задачи:

1.3. Написать программу для решения следующей задачи: вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов 2.5. Программа. Дано 100 или более вещественных чисел. Вычислить разность между максимальным и минимальным из них. 2.32. Программа. Определить, является ли заданное натуральное число совершенным, т.е. равным сумме всех своих (положительных) делителей, кроме самого этого числа.(например, число 6 совершенно: 6=1+2+3 ). 3.21. Программа. Даны вещественные числа a0,a1,...,a15. Найти коэффициенты многочлена (x-a0)(x-a1)...(x-a15). 4.1. Программа. Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной относительно главной диагонали.

Решение задачи: «5 заданий на Visual Basic»

textual
                            Листинг программы 
                        

                            dim mas(99) as double
dim min as double
dim max as double
dim i as integer
dim razn as double
min=mas(0)
max=mas(0)
for i = 0 to 99
mas(i)=rnd()*1000
next i
for i = 0 to 99
if mas(i)>max then max=mas9(i)
if mas(i)<min then min=mas9(i)
next i
razn=max-min
msgbox "разность ="+cstr(razn)
                        