Задачи для самостоятельного выполнения

 

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

Вариант 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.

QBasic	VBA
IF x< 1 THEN y=x+1 ELSEIF x< 2 THEN y=x+3 ELSEIF x< 4 THEN y=x^2 ELSE y=x-2 END IF z=2*y PRINT " x="; x, " y="; y, " z="; z	If x< 1 Then y=x+1 Elseif x< 2 Then y=x+3 Elseifx< 4 Then y=x^2 Else y=x-2 End If z=2*y MsgBox " X=" & x & " " & _ " Y=" & y & " " & " Z=" & z

 

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. Файлы протестированных и отлаженных программ на электронном носителе.