Программирование на BASIC / Visual Basic / Лабораторные работы6 / 12 вариант

Лабораторная работа 3

Заданы стороны прямоугольника. Определить его периметр, площадь и длину диагонали.

Лабораторная работа 4

По заданной формуле члена последовательности с номером k составить две программы:

         программу вычисления суммы первых n членов последовательности (k=1,2,3..,n);

         программу вычисления суммы всех членов последовательности, не меньших заданного числа e

Найти сумму всех четных натуральных чисел от 1 до 100.

Лабораторная работа 5

1.      Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20]. Найти произведение четных элементов, значения которых по модулю меньше 5.

2.      Найти количество тех элементов, значения которых нечетны и по модулю превосходят заданное число А.

3.      Найти номер последней пары соседних элементов, сумма которых больше заданного числа.

Дан двумерный массив размером n*m, заполненный случайными числами. Найти среднее арифметическое элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу.

2. Заполнить массив n*n по правилу:

Лабораторная работа 6

Определить, сколько раз в строке встречается заданное слово.

Дана строка символов, среди которых есть двоеточие (;). Определить, сколько символов ему предшествует.

Лабораторная работа 7

Построить эллипс с большой и малой полуосями, равными R1=10 и R2=30 и расположенными параллельно осям координат по заданному параметрическому представлению X=R1*Cos(t); Y=R2*Sin(t); 0 <= t <= 2*Pi

Лабораторная работа 8

Отображать в виде индикатора (ProgressBar) время, оставшееся до звукового сигнала;