Алгоритмы разветвленной cтруктуры. Условный оператор.

Задания по теме:

Алгоритмы разветвленной cтруктуры. Условный оператор.

Примеры решения задач:

1. Переменные X,Y,Z имеют положительные значения. Определить можно ли построить треугольник с длинами сторон X,Y,Z.

Замечание Треугольник можно построить если сумма длин двух любых его сторон больше длины третьей стороны.

Система тестов:

№	Значение a	Значение b	Значение c	Результаты
				Построить нельзя
				Построить нельзя
				Построить можно
				Построить можно

Решение задачи:

Program Treugoln_suchestvuet;

var

a,b,c:real;

begin

Writeln(‘Введите стороны треугольника a,b,c?’);

Readln(a,b,c);

if (a+b>c) and (c+b>a) and (a+c>b) then

writeln(‘Построить можно’)

else

writeln(‘Построить нельзя’)’

readln;

end.

2. Даны координаты точки (x,y). Определить, в какой четверти координатной плоскости находится точка, и напечатать номер четверти.

Система тестов:

№	Значение x	Значение y	Результаты
			Точка в центре
			Точка на оси Ox
			Точка на оси Oy
			Первая
	-2		Вторая
	-2	-2	Третья
		-1	Четвертая

Решение задачи:

Program Points;

var

x,y:real;

begin

Writeln(‘Введите координаты’);

Readln(x,y);

if (x=0) and(y=0) then

writeln(’Точка в центре’);

if (x<>0) and(y=0) then

writeln(’Точка на оси Ox’);

if (x=0) and(y<>0) then

writeln(’Точка на оси Oy’);

if (x>0) and(y>0) then

writeln(’Первая’);

if (x<0) and(y>0) then

writeln(’Вторая’);

if (x<0) and(y<0) then

writeln(’Третья’);

if (x>0) and(y<0) then

writeln(’Четвертая’);

readln;

end.

3. Решить квадратное уравнение ах²+Ьх+с=0.

Система тестов:

Номер теста	Проверяемый случай	Коэффициенты	Результаты
а	b	с
	d>0		-5		xl = 3, х2 = 2
	d=0				Корни равны: xl = -1, х2= -1
	d<0				Действительных корней нет
	а=0, b=0, c=0				Все коэффициенты равны нулю, х - любое число.
	а=0, b=0, c≠0				Неправильное уравнение
	а=0, b≠0				Линейное уравнение. Один корень: х = -0,25
	а≠0,b≠0,с=0				xl = 0, х2 = -0,25

Решение задачи:

Program Kvadratnoe_uravnenie;

Var a, b, с: Real;

D: Real;

x1, x2: Real;

begin

Writeln(‘Введите коэффициенты уравнения a,b,c!’);

Readln(a,b,c);

if (a=0) and (b=0) and (c=0) then

Writeln(‘Bce коэффициенты равны нулю.

x — любое число. ');

if (a=0) and (b<>0) then

Writeln(‘Линейное уравнение.

Один корень: х= ‘, (-с/b):6:2)

if (a=0) and (b=0) and (c<>0) then

WriteLn('Heпpaвильнoe уравнение.')

if (a<>0) then

begin

D:= b*b - 4*a*c;

if D > 0 then

begin

x1:=(-b+Sqrt(D)) / (2*a);

x2:=(-b- Sqrt(D)) / (2*a);

WriteLn('x1=',x1:6;2,' x2=',x2:6:2)

End;

if D = 0 then

Writeln(‘Kopни равны: x1=x2=-b/(2*a):6:2);

if D < 0 then

WriteLn('Дeйcтвитeльныx корней нет.');

end;

ReadLn

end.

Варианты заданий для самостоятельной работы

3. Определить, являются ли значения целочисленных перемен­ных N и М кратными 3. Если оба значения кратны 3, то вычислить их сумму, в противном случае - разность.

4. Даны целые числа x,y. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то единицей.

5. Выяснить, принадлежит ли точка с координатами (x,y) квадрату со стороной A и с центром в начале координат.

6. Даны два целых числа x и y. Если x четное число и Y не четное число то оба эти числа заменить мх модулями. Если x положительное нечетное число и Y положительное четное число то оба эти числа увеличить на 2. Во всех остальных случаях числа оставить без изменения.

7. Выяснить, принадлежит ли точка с координатами (x,y) области, ограниченной окружностью x +y =10 и параболой

y=x .

8. Даны значения a,b и c. Удвоить эти числа, если a>b>c, и заменить их абсолютными значениями, если это не так.

9. Отсортировать значения переменных a,b,c по возрастанию.

10. Даны действительные числа a, b, c и x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное от­верстие со сторонами x и y.

11. Дано целое трехзначное число. Определить, все ли цифры этого числа различны.

12. Выяснить поместится ли квадрат со стороной А внутрь окружности радиусом R и если он не помещается, то выяснить поместится ли окружность внутрь квадрата.

13. Переменные X,Y,Z имеют положительные значения. Определить можно ли построить треугольник с длинами сторон X,Y,Z. И если можно, токаой он получится: прямоугольный, остроугольный или тупоугольный.

14. Даны числа а1,в1,с1,а2,в2,с2. Напечатать координаты точки пересечения прямых, описываемых уравнениями а1х+в1y=c1 и а2х+в2y=с2, либо сообщить, что эти прямые совпадают, или не пересекаются.

15. Для заданных чисел a,b,c определить, имеет ли уравнение a*x*x+b*x+c=0 решение, и если имеет, то какое.

16. Выяснить, принадлежит ли точка с координатами (x,y) области, ограниченной окружностью x^2+y^2=r и параболой

y=1/x.

17. Выяснить, принадлежит ли точка с координатами (x,y) области, ограниченной кривой y=sqrt(x) и x=3.

19. Выяснить поместится ли прямоугольник со сторонми А и В внутрь окружности радиусом R и если он не помещается, то выяснить поместится ли окружность внутрь квадрата.

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

21. Определить есть ли среди цифр заданного четырехзначного числа одинаковые.

22. Выяснить можно ли построить параллелограмм из отрезков с длинами a,b,c,d.

23. Выбрать наибольшее из трех заданных чисел.

24. Два прямоугольника заданы длинами их сторон. Выяснить можно ли первый прямоугольник целиком поместить во втором.Стороны прямоугольников параллельны.

25. Заданы три точки их координатами (x1,y1),(x2,y2),(x3,y3).

Определить минимальный радиус круга внутрь которого попадают все три точки.

Л И Т Е Р А Т У Р А

1. Абрамов С.А., Зима Е.В.-Начала программирования на языке Паскаль.-М.:Наука. 1987. -112 с.

2. Прайс Д.-Программирование на языке Паскаль: Практическое рукоаодство. Пер. с англ. -М.: Мир, 1987.-232 с.

3. Васюкова Н.Д., Тюляев В.В. -Практикум по основам программирования. Язык Паскаль. -М.: Высш. Шк.,

1991. 160 с.

4. Пильщиков В.Н.- Сборник упражнений по языку Паскаль:

Учеб. пособие для вузов. - М.: Наука.1989.-160 с.

5. Белецкий Я. ТУРБО ПАСКАЛЬ с графикой для персональных компьютеров. - М.:Машиностроение, 1991.

6. Абрамов Г. Задачи по программированию - М.:

Наука, 1988.

7. Хершель Р. ТУРБО ПАСКАЛЬ 4.0/5.0 - Издание МП Мик,

1991.

Дата добавления: 2015-08-29