Задачи для самостоятельного выполнения. Разработать алгоритм и составить программу решения следующих задач

Разработать алгоритм и составить программу решения следующих задач. Произвести ввод, редактирование, тестирование, отладку и анализ результатов решения задач на компьютере.

Вариант 1. Определить: принадлежит ли целое число Х, вводимое с клавиатуры, интервалу (0, 70)

Вариант 2. Даны три целых числа. Определить, можно ли построить треугольник с такими сторонами.

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

Вариант 4. Определить, является ли точка с координатами X,Y точкой пересечения диагоналей квадрата со стороной А (X, Y, А вводятся). Левая нижняя вершина квадрата расположена в начале координат.

Вариант 5. Фирма приобрела ткань двух наименований. Для каждого наименования ткани известно количество закупленной ткани (м) и сумма уплаченных за неё денег (руб.). Определите, для какой ткани цена за 1 м меньше.

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

Вариант 7. Известны число, месяц и год рождения двух человек. Определить, кто из них старше.

Вариант 8. Даны три числа Х₁, Х₂ и Х₃. Определить наибольшее число.

Вариант 9. Для определения текущей успеваемости студентов в условиях рейтинговой системы принят следующий порядок формирования итоговой семестровой оценки.

,

где Р – суммарный рейтинг по дисциплине.

Определите, какую оценку получит студент при каждом из суммарных рейтингов. Рейтинг вводится с клавиатуры.

Вариант 10. Дветочки плоскости заданы своими координатами. Определить, лежат ли они в одной или разных координатных четвертях.

Вариант 11. Определить, попадает ли точка с координатами Х, Y в круг радиуса R (X, Y, R вводятся). Центр круга находится в начале координат. Вывести признак N=1, если точка находится внутри круга, и признак N=0, если точка находится вне круга.

Вариант 12. Определить, попадает ли точка с координатами Х,Y в первый квадрант (X, Y вводятся). Вывести признак N=1, если точка попадает в первый квадрант, и признак N=0, если точка не попадает в первый квадрант.

Вариант 13. Точка задана своими координатами X, Y на плоскости XOY. Определите, где она расположена: на пересечении осей координат, на какой оси, или в какой координатной четверти.

Вариант 14. Вычислите значение функции, представленной графиком:

Вариант 15. Даныдва числа: А и B. Сравните эти два числа. Большее число уменьшите в 2 раза, а меньшее число уменьшите на 3.

Контрольные вопросы

1. Назовите базовую управляющую структуру, реализующую разветвляющийся вычислительный процесс.

2. Назовите основные варианты структуры «ВЕТВЛЕНИЕ».

3. Назовите операторы языка QBasic или VBA, с помощью которых организуется разветвляющийся вычислительный процесс, назначение каждого из них и как они выполняются.

4. Укажите ответ, который получится в результате работы фрагмента программы в каждом из следующих случаев: 1) x=0.5; 2) x=1.5; 3) x=3; 4) x=5.

5. Укажите ответ, который получится в результате работы следующего фрагмента программы в каждом из следующих случаев: если 1) x=0.5 и y=0.8; 2) x=2.5 и y=1.5; 3)х=-0.7 и y=1; 4)x=-0.7 и y=1.

QBasic

INPUT x,y

PRINT "точка (";x;",";y;") — ";

IF x+y<2 and x>0 and y>0 THEN

PRINT "в треугольнике"

ELSEIF (x+1)^2+(y+1)^2<1 THEN

PRINT "внутри круга"

ELSE

PRINT "вне областей"

END IF

VBA

x = val(InputBox("Введите координату x”))

y = val(InputBox("Введите координату y"))

strRezultat = "точка (" & x & ", " & y & ") находится"

If x+y<2 and x>0 and y>0 Then

MsgBox strRezultat & "в треугольнике"

Elseif (x+1)^2+(y+1)^2<1 Then

MsgBox strRezultat & "внутри круга"

Else

MsgBox strRezultat & "вне областей"

End If

6. Укажите метку оператора, которому будет передано управление в результате работы фрагмента программы, если 1) А=1; 2) А=2

On A Goto M1,M2

7. Укажите приоритет выполнения операций в следующих логических выражениях. Определите, какие значения принимают логические выражения:

a) X+Y<4 AND X^2 + Y^2>=4,

если: 1 случай — X=0. Y=1.5, 2 случай — X=2.5 Y=0.5

b) ABS(X) + ABS(Y)<=1,

если: 1 случай — X=0.5 Y=0.5, 2 случай — X=1.5 Y=0.5

c) (ABS(X)>=1 OR ABS(Y)>=1) AND X^2+Y^2<9,

если 1 случай — X=0.5 Y=0.5 2 случай — X=1.5 Y=1.5

Содержание отчета

1. Тема работы.

2. Цель работы.

3. Задание к работе.

4. Визуальное представление алгоритмов.

5. Экранная форма (при программировании на VBA).

6. Программный код.

7. Результаты выполнения программ.

8. Файлы протестированных и отлаженных программ на электронном носителе.

Поиск по сайту: