Безусловная передача управления

Для всех операторов цикла выход из цикла осуществляется как вследствие естественного окончания оператора цикла, так и с помощью операторов перехода и выхода.Для завершения работы программ, процедур и функций без предварительного перехода по меткам к закрывающему end в Паскаль введены процедуры Exit и Halt. Следует отметить, что в PascalABC.NET (в отличие от Borland Pascal и Borland Delphi, Turbo Pascal) break, continue и exit являются не процедурами, а именно операторами.Вызов Exit завершает работу своего программного блока и передает управление вызывающей программе. Если Exit выполняется в подпрограмме, то выполнение этой подпрограммы прекратится, и далее будет выполняться следующий за вызовом этой подпрограммы оператор. Если Exit выполняется в основной программе, выход из нее будет эквивалентен ее нормальному завершению.Вызов процедуры Halt в Паскаль, где бы она не находилась, завершает работу программы и передает управление операционной системе.Процедура Halt имеет структуру Halt (n), где n - код возврата, который может быть проанализирован операционной системой с помощью команды IF ERRORLEVEL. Значение n=0 соответствует нормальному завершению работы программы. Вызов процедуры Halt без параметра эквивалентен вызову Halt (0).В языке Паскаль определены стандартные процедуры Break и Continue. В PascalABC.NET оператор Break выполняет безусловный выход из цикла, оператор Continue обеспечивает переход к началу новой итерации цикла. Оператор перехода

Этот оператор позволяет передать управление непосредственно на нужный оператор программы. Перед этим оператором должна располагаться метка отделённая от него двоеточием. Все метки должны быть описаны в разделе объявления меток

Label <метка>, <метка>,..;

GOTO <метка>

<метка>:

Нижеследующая программа использует оператор перехода. Пример 6. Вычислить функцию у=1/х Program p_label; label div0, end_p; var answer, x, y: integer; begin write (‘Вы будете работать с программой (0 – Нет)?’); read (answer); if answer = 0 then {в случае отказа от работы} goto end_p; {перейти в конец программы} read (x); if x = 0 then {в случае деления на ноль} goto div0; {перейти на обработку деления на 0} y:= 1/x; write (‘Результат ’, y); goto end_p; div0: writeln (‘Деление на ноль!’); end_p; end.

Задания на лабораторную работу

1. Написать программу нахождения максимального числа из введенных пользователем чисел a,b,c.
2. Дано целое число в диапазоне 20-69, определяющее возраст в годах. Вывести строку - словесное описание указанного возраста, обеспечив правильное согласование числа со словом «год» (20 –«двадцать лет», 42 – «сорок два года»). (для выполнения данного задания можно воспользоваться операторами mod и div).
3. Написать программу определяющую значение на отрезке [a,b] с шагом h. Значения неизвестных возьмите из таблицы вариантов.

 

Таблица вариантов

Вариант	a	b	h	Вариант	a	b	h
	-5		0.5		-4		0.5
	-6		0.2		-10
	-3		0.1		-7		0.7
	-6		0.3		-5		0.6
	-6		0.4		-2		0.1
	-3		0.2		-2		0.2
	-5		0.1		-3		0.1
	-5		0.5		-6		0.4

 

 

Задание на самостоятельную работу

Разветвляющиеся алгоритмы. Выполнить задания 1-15, используя условный оператор.

1. Дано действительное число а. Вычислить f(a), если

2. Дано действительное число а. Вычислить f(a), если

3. Дано действительное число а. Вычислить f(a), если

 

 

4. Дано действительное число а. Вычислить f(a), если

5. Дано действительное число а. Вычислить f(a), если

6. Дано действительное число а. Вычислить f(a), если

 

7. Дано действительное число а. Вычислить f(a), если

8. Дано действительное число а. Вычислить f(a), если

9. Вычислить значение функции при заданных a, b.

10. Вычислить значение функции

при заданных a, b.

11. Вычислить значение функции

при заданных a, b.

12. Вычислить значение функции

при заданном значении х

13. Вычислить значение функции

при заданном значении х

14. Вычислить значение функции

при заданном значении х

15. Вычислить значение функции

при заданном значении х

Оператор выбора. Задания 16-31

16. По заданному номеру месяца m вывести на печать название времени года.

17. Составить программу для вывода дня недели по его номеру.

18. Составить программу, моделирующую работу калькулятора, выполняющего четыре операции: +, -, *, /.

19. Составить программу для вывода названия месяца по его номеру

20. Дано целое число в диапазоне 0-9. Вывести строку – название соответствующей цифры на русском языке (0 – «ноль», 1 – «один», 2 – «два», …).

21. Дано целое число в диапазоне 1-5. Вывести строку – словесное описание соответствующей оценки (1 – «плохо», 2 – «неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично»).

22. Единицы длины пронумерованы следующим образом: 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр. Дан номер единицы длины и длина отрезка L в этих единицах (вещественное число). Вывести длину данного отрезка в метрах.

23. По заданному номеру TV канала, вывести на печать его название.

24. По заданному порядковому номера студента, вывести его фамилию.

25. По фамилии студента вывести его порядковый номер по журналу.

26. По номеру блюда вывести на печать его название.

27. По номеру стола в столовой санатория вывести на печать перечень подаваемых блюд.

28. По номеру цветового настоя в фитобаре санатория вывести на печать состав сбора.

29. По измеренной температуре тела вывести состояние пациента.

30. Дано целое число в диапазоне 1-9. вывести соответствующее название экстренной службы города (2 – «полиция»,..).

31. Даны номера участков городской больницы. Вывести Ф.И.О. терапевта, прикреплённого к данному участку.

Используя циклические алгоритмы выполнить задания 32-47

32. Дано натуральное число n. Вычислить 2 .

33. Дано натуральное число n. Вычислить … .

34. Дано натуральное число n. Вычислить + + … + .

35. Дано натуральное число n. Вычислить *…* .

36. Дано натуральное число n. Вычислить

37. Даны действительное число a и натуральное число n. Вычислить .

38. Даны действительное число a и натуральное число n. Вычислить ... .

39. Даны действительное число a и натуральное число n. Вычислить + + .

40. Даны действительное число a и натуральное число n. Вычислить .

41. Даны действительное число a и натуральное число n. Вычислить .

42. Вычислить

43. Дано действительное число x. Вычислить

44. Даны действительные числа x,а, натуральное число n. Вычислить

45. Дано действительное число x. Вычислить

46. Даны натуральное n, действительное x. Вычислить .

47. Даны натуральное n, действительное x. Вычислить

Циклы с параметром. Задания 48-62

48. Вычислить произведение .

49. Вычислить произведение

50. Вычислить произведение .

51. Вычислить произведение

52. Дано натуральное число n, действительное число х. Вычислить .

53. Дано натуральное число n, действительное число х. Вычислить .

54. Вычислить .

55. Вычислить .

56. Вычислить .

57. Вычислить .

58. Вычислить .

59. Дано n=20. Вычислить

60. Дано n=30. Вычислить

61. Дано n=20. Вычислить

62. Дано n=30. Вычислить