2360

Разработка алгоритмов циклической структуры

8.

Э

5. Вычислить

Контрольные

Г

1.

Какой алгоритм является алгоритмом циклической структуры? НИ

2.

Как можно рассчитать число шагов в операторе цикла?

А

3.

Поясните отличия в циклах с предусловием и постусловием.

4.

В чем отличие циклов с заранее известным и с з р нее неизвестным

числом повторений?

е

ка

Задания

о

т

Составьте

1.

Вычислить

2.

Дано

3. Определить чему равно "А"

в чис овом ряду: С=1/1+1/2+1/3+.......+1/А,

при С=10.

и

л

4.

Даны натуральные числа а в (а>в), не пользуясь никакими операциями

кроме сложения и вычитания, проверить, делится ли число а на в без

остатка.

ронная3

5.

т

чисел, используя свойство:

Найти квадраты первых ста натуральныхб

е

к

а +

...

л

123

а + 124

11

Разработка алгоритмов с вложенными циклами

Лабораторная работа

Разработка алгоритмов с вложенными циклами

Цель работы.

Приобретение навыков составления алгоритмов с вложенными цикламиНИ.

Теоретическая часть.

Г

Алгоритмы решения задач циклической структуры могут быть такими, что

при

однократном

проходе цикла

некоторые

участки

А

проходятся

лгоритма

неоднократно, т.е. внутри цикла существуют другие циклические структуры.

Алгоритмы такой структуры называют алгоритмами с вложенными циклами.

Цикл, охватывающий другие циклы,

называется вн шним,

а остальные –

ка

внутренними. При одном значении параметра вн шн го цикла параметр

внутреннего цикла принимает по очереди все свои значенияе .

Пример 1.

Пример 2.

Вычислить множество значений

т

Вычислить функцию r=3x-12y, если х

функции y=х2+z для всех х от -10 до 10

зменяетсяо

от -12 до 43 с шагом hx=1,

с шагом 0,5; Z от 5 до 15 с шагом 5.

а y изменяется от 10 до 21 с шагом

и

Н

hy=0,5.

и

б

л

Н

Z=5

б

hx=1

X= -10

hy=0.5

Y=X2+Z

Вывод Y

x = -12, 43, hx

X=X+0,5

y = 10, 21, hy

+

-

X<=10

r=3x-12y

Z=Z+5

+

ронная-

r, x, y

Z<=15

е

к

т

л

Э

к

К

12

Разработка алгоритмов с вложенными циклами

Задания к лабораторной работе.								НИ
Составьте алгоритм решения задачи:
1. Вычислить: 1+21+32+43+…+АА-1, где А - натуральное число.
2.						Г
	Среди всех четырёхзначных чисел определить "счастливые" числа, т.е. те,
	у которых сумма первых двух цифр равна сумме вторых двух цифр.
3.	Вычислить: у=х+2z, где х изменяется от 1 до 3 с шагом 0,1; z изменяется
	от -2 до 1 с шагом 0,2.					ка
4.	Найти кубы первых ста натуральных чисел, используя свойствоА						:
	13=1				е
	23=3+5			т
	33=7+9+11
	…………..	и	о
Контрольные вопросы:
	1. Какие циклы называются вложенными?

би б

1.Вычислитьроннаяу=2х+3z, где х изменяется от -1 до 0 с шагом 0,1; z изменяется от 2 до 4 с шагом 0,4.

2.Определить количество 5-ти, 10-ти и 50-ти копеечных монет, необходимое

для набора суммы 10 рублей. При условии, что общее количество монет должно быть е более 40.т2. Какие циклы называют внутреннимил?

		к
		е
	л	sin x+sin x2+…+sin xn для х = -1, 2, 5, 8, …, 46.
Э
		13

Простейшие конструкции языка Pascal

Лабораторная работа	НИ

Простейшие конструкции языка Pascal. Константы,

переменные, функции. Составление фрагментов программы,
			Г
содержащих арифметические выражения на языке Pascal
Цель работы.		А
Приобретение навыков работы с основными элементами языка Pascal:
	ка
константами, переменными, функциями. Составление арифметических
выражений.

Теоретическая часть.

Константа – величина, которая не мож т изменяться в процессе

вычислений.		о		со знаком (знак +
Целые константы записываются в виде целых чиселе
	и
можно опускать), например: - 10, +105, 15, 0, 876, - 342,т			13578.

Вещественные константы записываются в виде чисел, содержащих десятичную точку (-2.75, 45.7, 78.9087) или мант ссу (4.2E+01, -1.7801E-03).

			Переменная – величина, которая может принимать различные значения в
	процессе выполнения программы.					и	б
			Переменная		обозначается	идентификаторомл		(именем). Имя может
	содержать в своем названии лат нск е буквы, цифры и знак подчеркивания.
	При этом начинаться имя должно обязательно с буквы:
			А, В23, R_3, Summa, Alfa_12			и др.
			Арифметическое выражение образуется из операндов и операций.
				ронная
	Операндами являются константыб, переменные, обращения к функциям,
	выражения, заключенные в скобки.
			Значения всех переменных, входящих в выражение, должны быть
	определены до вычисления этого выражения.
			Порядок выпол е ия выражений:
		1. В первую очередь вычисляются выражения, заключенные в круглые
			скобки. Если есть вложенные друг в друга пары круглых скобок, то
			вычисляется сначала выражение во внутренних круглых скобках, а затем
			во внешних;
			т
		2. Вто ыми вычисляются значения входящих в выражение функций;
		3. Тре ьими вычисляются операции типа умножения:
			*, / , div, mod, and;
		4. Четвертыми вычисляются операции типа сложения:
		л	+к, –.
	Э		Оп рации		одного порядка выполняются			всегда последовательно
	с ева направое .
						14

Простейшие конструкции языка Pascal

Примеры записи арифметических выражений:

НИ

Математическая запись

Запись на языке Pascal

a + b

(a+b)/(c-d)

Г

4 2

c - d

a3+3xy

3

a*a*a+3*x*y

А

1

(1 + 3 / ( 4 - 2)) / ( 5 * 3 – 2*( 2 * 7+8 / (3 + 2)))

ка

5.3

8

1. Запишите имена, которые можно присвои ь следующиме

переменным:

a) α; b) α4.

и

т

2. Перечислите правильно записанные

мена:о

a)

б

и

б

л

4.

алгебраические

выражения

y

x3

+ cos2

(x + 3)

æ

1

ö

2

3

g) a = (x +

роннаяy)×

;

- 33sin x, b = (1+ z ) ;

d) tg

(x - 4) + sin( x -5) ;

a) x ;

b)

3

5

c)

(a - z)çd +

÷ ;

z

+ x

+12

è

a + x(1+ d)

ø

e) a =

3

x −1

+

y

,

b = x(sin z + e−(3x+ y) );

1+

x2

+ y4

2

5 + e3y−3

3x

y + 2

f ) a =

, b = 4 + e

−

+

3xz − 5y

;

2

+ y4

x −

7

5

к

т

2 +

3x - 5

y

2

+1

2 5

е

23x2 + 4

Э

л

15

Простейшие конструкции языка Pascal

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

НИ

1. Что такое идентификатор?

2. Какие требования предъявляются к написанию идентификаторов?

3. Каковы способы описания констант и переменных в алгоритмическом

языке Pascal?

А

Г

4. Какие типы переменных существуют в Pascal?

5. Какой символ являются разделителем операторов Pascal?

ка

6. В каких случаях после оператора в Pascal не ставятся точка с запятой?

7. Назовите известные Вам арифметические операции и функции?

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

т

1.

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

выражение: a = ln

æ

x ö

y

о

2x

-еy + z

(y - 3

x

ç z +

÷, b

= x +

+

.

и

è

3 ø

3

12

2.

Перечислите правильно записанные

мена:

л

a) X12Y; b) 66RL; c) GER; d) RUSSIA; e) F_12.

3.

б

Проставьте порядок выполнения операций в выражениях:

a) sin(2*5+5*x)-12*(a*b/c)+d*a; b) (x+y)/(2*x-(y*x/(x+3))).

ронная

б

и

е

к

т

л

Э

16

Программирование прикладных задач линейной и ветвящейся структуры

Лабораторная работа

Программирование прикладных задач линейной и
ветвящейся структуры. Операторы условия IF и Case.
Цель работы.							НИ
Приобретение навыков работы в интегрированной среде Turbo							Pascal и
составления программ линейной и ветвящейся структуры.					А	Г
Теоретическая часть.
Для запуска интегрированной среды Turbo Pascal необходимо из папки BIN
на диске C запустить файл turbo.exe.			ка
Для входа в главное меню необходимо нажать клавишу F10. При этом одна
из его опций становится активной. Перемещение		еуказателя				по	опциям
главного меню осуществляется клавишами перемещеният				курсора. Выбранная
опция становится активной после нажат я клав ши Enter.					Это	действие в
и	о

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

							и
производится аналогично. Для выхода из лменю любого уровня используется
клавиша Esc.						б		б
	Опции меню File:
	Open – открывает новое окно редактора и помещает в него указанный
				ронная
дисковый файл.
	New – открывает новое окно редактора для нового файла и присваивает
ему имя NONAME00.PAS.
	Save – записывает содержимое активного окна редактора в дисковый файл.
Если файл имел имя NONAME00.PAS, среда запросит новое имя файла (см.
ниже опцию Save as).
	Save as - записывает содержимое активного окна редактора в дисковый
			т
файл под д угим именем.
		к
	Exit – завершает работу с системой Turbo Pascal.
л	Меню		опции Run –		из многих				опций нам	для	первого знакомства
потр бу тся только одна:
Э	Runе	–	осуществляет		компиляцию,				компоновку	и	исполнение (прогон)
программы из активного окна редактора.
							17

Программирование прикладных задач линейной и ветвящейся структуры

Меню опции Window. Рассмотрим только одну опцию, необходимую для первого знакомства:

User screen "экран пользователя" – делает активным окно пользователя

(для того, чтобы посмотреть результат работы программы).

НИ

Структуру программы языка Pascal можно представить в следующем

виде:

Заголовок программы;

А

Г

1.

ка

2.

Блок описания меток;

3.

Блок описания констант;

е

4.

Блок описания переменных;

5.

Блок описания процедур;

т

6.

Блок описания функций;

7.

Блок описания типов пользователя;

8.

Блок операторов.

и

о

Машина считывает текст

программы, написанной на алгоритмическом

л

языке ПАСКАЛЬ, слева направо, сверху вниз. В связи с этим, программу можно

б

писать, отступая на любое количество ко онок от левого края. В одной строке

и

можно располагать любое количество операторов.

Программы линейной структуры кроме заголовка и описательных блоков

могут содержать операторы:

б

var a: integer;

var a, b, c, k: real;ронная

- ввода (read, readln),

- вывода (write, writeln),

- присваивания (A:=B).

Пример 1.

Пример 2.

Даны

действитель ые числа

а, в, с.

Дано число а. Не используя никаких

Найти среднее арифметическое этих

функций и никаких операций кроме

чисел.

умножения, получить: а8 за три

операции.

Program SrARIFM;

Program stepen;

begin

к

т

begin read(a);

read (a, b, c );

a:=a*a;

k:= (a+b+c)/3 ;

a:=a*a;

write(k)е

a:=a*a;

Э

write(a)

end.

л

end.

18

Программирование прикладных задач линейной и ветвящейся структуры

					НИ
Разветвление в программах на Pascal можно осуществить двумя
способами.
Первый способ:
- используя условный оператор:				Г
if условие then	оператор1 else	оператор2; {полный оператор условия}
Здесь if (если),	then (то), else (в противном случае) – ключевые слова,
смысл которых соответствует переводу, указанному в скобках.			А
if условие then	оператор1; {сокращенный оператор условия}
При выполнении оператора		ка
		if вначале проверяется условие и, в

зависимости от полученного значения – истина или ложь, управление передается либо оператору1, либо оператору2. После этого управление

передается следующему оператору, стоящему после if.
									т
		Условный оператор if является сложным оп ратором, т.к. в его состав
входят другие операторы.							и	о		е
		Второй способ:				л
		- используя оператор выбора:
		CASE выражение OF
			список_значений1: оператор1;
			список_значений2: оператор2;
			………………………….;		и
				б
			список_значенийN: операторN;б
			[ ELSE альтернативный оператор; ]
		END;
		Здесь выражение – любое выражение целого типа.
		Список_значений1, список_значений2, … список_значенийN могут быть:
		- числом;
		- объявленной конста той;
		- целочисленным выражением;
		- диапазоном целых чисел.
		Примечание:
		Каждый список значений должен быть уникальным. Диапазоны не
должны пе ек ываться.
			к
		Если выражениероннаясовпадает с одним из значений список_значений1,
		е
список значенийт				2, … список_значенийN, то выполняется соответствующий
оп ратор. В противном случае выполняется оператор, стоящий после else.
Э	л
					19

Программирование прикладных задач линейной и ветвящейся структуры

Пример 3.

Пример 4.

Даны действительные числа х и у.

Даны X,Y,Z. Если X³Y³Z, то числа

Если x меньше y, то эти числа

увеличить в 2 раза, в остальных

увеличить вдвое, в остальных случаях

случаях оставить без изменения.

к этим числам добавить по единице.

Г

НИ

Program L5;

Program T;

А

var x, y: real ;

var x, y, z: real;

begin

begin read(x, y, z);

read (x , y) ;

if (x>=y) and (y>=z) then

if x < y then begin x:= x*2; y:=y*2 end

begin x:=2*x; y:=2*y; z:=2*z end;

else begin x:= x+1; y:= y+1 end;

write(x, y, z)

е

ка

write(x,y)

end.

т

end.

Пример 5.

Дано число. Приписать к нему «рубль», «рубля» или «рублей» в соответствии с

правилами русского языка.

л

и

о

Program Rubl;

б

var m:integer; d:string;

и

begin

read(m);

б

case m of

1: d:=’рубль’;

2..4: d:=’рубля’;

5..20: d:=’рублей’;

end;

ронная

write(m,d)

end.

е

к

т

л

Э

20