7 программок на языке qBasic.

IF i MOD 2 = 1 THEN'если число нечетное, то коэф. В сумме = -1, иначе 1
c = -1
ELSE c = 1
END IF
s = s + i * i * c 'В сумму добавляется текущий член
NEXT
PRINT "Сумма знакочередующегося ряда квадратов до 10 равна = ", sВывод на экран

Задание 1.7
Исходные данные:
Вычислить значение функции
Задание 1.17
Исходные данные:
Даны длины сторон прямоугольника. Найти его периметр и длину диагонали.
Задание 4.7
Исходные данные:
Дана матрица A(N,M). Поменять местами ее наибольший и наименьший элементы.
Задание 6.7
Исходные данные:
Дан треугольник, заданный координатами своих вершин. Построить этот треугольник и вписанную в него окружность.
Задание 5.7
Исходные данные:
Удвоить каждую букву в заданном тексте.

1. Информатика. Базовый курс. / Под ред. С.В. Симоновича. СПб: Питер. 2006.- 640с.
2. Томас Уорт. Программирование на языке БЕЙСИК. Самоучитель. Машиностроение. 2005.-220 с.
3. Острейковский В.А. Информатика: Учебник для ВУЗов. М.: Высшая школа. 2005.- 511с.
4. Чернов Б.И. Программирование на алгоритмических языках Бейсик, Фортран, Паскаль М.: Просвещение. 2005.-320 с.
5. Visual Basic / Михаэль Харведсон. М.: Пресс, 2008. 575с.