QuickBASIC. Программы, содержащие одномерные и двумерные массивы, подпрограммы

Главная цель настоящего занятия – обзор всего изученного материала и подготовка к предстоящей обязательной контрольной работе. Это подведение итогов по узловым вопросам элементов программирования: ветвления, циклы, массивы, подпрограммы.

Вместе с тем преподавателям очень бы хотелось максимально заинтересовать сильных студентов, обеспечить их “достойными” задачами. Лучшая форма этого занятия – индивидуальное программирование и индивидуальные консультации, комментирование готовых программ.

Вам прелагается для индивидуальной разработки ряд разнообразных текстовых задач. Вы можете консультироваться друг с другом, с преподавателем, использовать свои наработки, сделанные Вами на предыдущих занятиях

Задачи для подготовки к контрольной работе. Проанализируйте каждую из этих задач, составьте алгоритм, запишите программу на бумаге, отладьте на ПК, удостоверившись в ее правильной работе.

Эти задачи, возможно, чуть более сложны. Если уверены в своих силах, приложите свои программистские способности к их программной реализации, считайте, что Вы готовитесь к олимпиаде.

1.1.Заданы два случайных целых числа из отрезка [2;30]. Вывести на печать их общие делители или напечатать сообщение, что общих делителей эти числа не имеют.

1.2.Пользователь задает координаты центров и радиусы двух окружностей. Выяснить взаимное положение этих окружностей.

2.1.Задана функция f(x) на отрезке [a;b]. Напечатать n ее значений на этом отрезке.

2.2 Числовая последовательность задана формулой общего члена a_n = t/(i² + 1), где t – константа, i изменяется от 1 до n. Найти сумму n слагаемых. Значения t и n задает пользователь.

3.1.Задан одномерный целочисленный массив a(n), содержащий положительные и отрицательные элементы. Вывести индексы и значения противоположных элементов, если таковых нет, вывести соответствующее сообщение.

3.2.Заполнить одномерный массив a(12) следующим образом: элементам, стоящим на четных местах присвоить значение 2, элементам, индекс которых кратен трем, присвоить значение 0, второе условие приоритетно. Распечатать массив.

1.Предложить популярную занимательную задачу. Известно, что число дней, прошедших после 1 марта 1700 года вычисляется по формулам:

для января и февраля n = [ 365,25(g – 1)] + [ 30,6(m + 13)] + d - 612049

для всех остальных месяцев n = [ 365,25g] + [ 30,6(m + 1)] + d – 612049,

где d, m, g – соответственно день, месяц, год. Легко определяется и день недели:

w = n MOD 7, день n будет воскресенье при w = 0, понедельник -1, вторник – 2, среда – 3, четверг – 4, пятница – 5, суббота – 6.

Предложить организовать защиту от неправильного ввода дней и месяцев, например, чтобы программа не принимала 31,04,2008 или 29,02,2007 и т.д. Организовать три подпрограммы: вычисление количества дней для января и февраля и для остальных месяцев, в которые входим с d, m, g, а выходим с n, а также подпрограмму определения дня недели. И поставить ряд задач: в какой день Вы родились, сколько дней прожили, в какой день недели Ю. Гагарин полетел в космос и т.д.

2.Стенные часы отбивают удар каждые полчаса и количество часов от 1 до 12. Составить программу подсчета количества ударов за сутки.

3.В пределах от 1 до 1000 напечатать все пары простых чисел отличающихся на два.

4.Задан двумерный массив, содержащий целочисленные положительные, отрицательные и нулевые элементы. Переставить все нулевые элементы в конец двумерного массива.

5.Есть ли в пределах первых 1000 натуральных чисел числа, сумма делителей которых, включая единицу, но исключая само число, равна этому числу?

6.Натуральные простые нечетные числа, отличающиеся на 2, называются близнецами, например, 17 и 19, 29 и 31 и т.д. Напечатать пары близнецов в пределах 1000.

7. Когда-то в СССР молодые люди играли в спортлото: в карточке – натуральные числа от 1 до 49. Играющий вычеркивал 6 чисел направлял в тиражную комиссию. Пусть 6 (естественно, разных) из 49 вычеркнет Ваша программа.

8.Помогите преподавателям математики! Преподаватель вводит 4 числа, являющихся решением системы 4-х линейных уравнений с 4-мя неизвестными. Пусть Ваша программа распечатает расширенную матрицу системы, состоящую из коэффициентов при неизвестных и столбца свободных членов (который напечатать другим цветом). Значения целых коэффициентов при неизвестных берите из отрезка (-8;10). Например, преподаватель ввел: x₁ = -2, x₂ = 3; x₃ = -1; x₄ = 1.

Ваша программа должна напечатать, например:

10 -1 0 1 -22 Преподаватель легко напишет систему уравнений (уже зная ее

9.Фигура в системе координат ограничена осью ох, y = Cosx при

. Используя метод случайных чисел найти ее площадь, выдавая промежуточные результаты для n кратных 1000. Вычисление значений функции организуйте в подпрограмме.

10.Объем жидкости, налитой в шарообразный резервуар диаметром d, вычисляется по формуле: v =

, где h – высота налива жидкости, приняв, например, d = 1метр, составить калибровочную таблицу определения объема жидкости в этом резервуаре с шагом, например, 5 см. Объем выражать в литрах.

11.И еще одна занимательная задача. Еще пифагорейцы назвали два натуральных числа дружественными (или содружественными), если сумма делителей каждого из них (включая единицу, но исключая само число) равна другому числу. Легко проверить, что число 6 “дружит” само с собой, к таким числам относится число 28. возникает вопрос: существуют ли различные числа, обладающие таким свойством? Древние пифагорейцы нашли без ЭВМ. Сможете ли вы отыскать пары таких чисел (в пределах 1000), составив оригинальную программу?

Вот мой вариант такой программы. Но очень “медленный” алгоритм. Придумайте другой, чтобы программа работала быстро.

SCREEN 9: COLOR 14, 1

t = 0

PRINT TAB(10); : INPUT "На каком промежутке ищем дружественные числа"; a, b FOR i = a TO b

FOR j = a TO b si = 0: sj = 0 

FOR k = 1 TO j / 2:

IF j / k = j \ k THEN sj = sj + k

NEXT k

FOR k = 1 TO i / 2

IF i / k = i \ k THEN si = si + k

NEXT k

IF sj = i AND si = j THEN PRINT j, i: t = 1: i = j + 1 NEXT j, i

IF t = 0 THEN PRINT "На промежутке "; a; b; "таковых нет"

12.А возможно ли в одной программе обрабатывать символьные и числовые массивы? Рассмотрим занимательную задачу. Пусть в мясном киоске реализуются мясопродукты, расфасованные по 1 кг. Указана цена 1 кг. У покупателя – пользователя d рублей. Составим программу, определяющую, какое максимальное количество килограммов каждого вида продуктов он может приобрести на свои d рублей и какую сдачу он получит при этом.

Обратите внимание на то, как в одном цикле присваиваются значения элементам символьного и числового массивов.

Знаете ли Вы, что абстракция через спецификацию - это прием программирования, позволяющий абстрагироваться от процесса вычислений описанных в теле процедуры, до уровня знания того, что данная процедура делает. Это достигается путем задания спецификации, описывающей эффект ее работы, после чего смысл обращения к данной процедуре становится ясным через анализ этой спецификации, а не самого тела процедуры. Мы пользуемся абстракцией через спецификацию всякий раз, когда связываем с процедурой некий комментарий, достаточно информативный для того, чтобы иметь возможность работать без анализа тела процедуры. Абстракция через спецификацию позволяет абстрагироваться от процесса вычислений описанных в теле процедуры, до уровня знания того, что данная процедура делает. Это достигается путем задания спецификации, описывающей эффект ее работы, после чего смысл обращения к данной процедуре становится ясным через анализ этой спецификации, а не самого тела процедуры. Мы пользуемся абстракцией через спецификацию всякий раз, когда связываем с процедурой некий комментарий, достаточно информативный для того, чтобы иметь возможность работать без анализа тела процедуры.