2.8 Содержание заданий

1. Набрать текст на двух страницах. Первая страница представлена на рис. 2.1, вторая − на рис. 2.2.

Текст должен иметь шрифт Times New Roman, размер 14, выравнивание по ширине, абзацный отступ 1,25, междустрочный интервал – одинарный. Установить следующие параметры страницы: верхнее поле – 2 см, левое – 3 см, нижнее – 2 см, правое – 1 см. Описание схемы алгоритма программы расположить в надписи.

Введение

В инженерной деятельности компьютер используется достаточно широко. Грамотный специалист должен:

• уметь работать с приложениями Microsoft Office;

• понимать основы алгоритмизации прикладных задач.

1. Циклические программы

В циклических программах повторяются операторы, с помощью которых производятся вычисления. При этом меняется содержимое переменной, называемой параметром цикла.

1.1. Постановка задачи

Формула	Исходные данные
Y=cos(x)	x=3(0,1)4

Здесь запись x=3(0,1)4 означает, что х меняется от 3 до 4 с шагом 0,1.

1.2. Схема алгоритма программы

На рис. 2.1 представлена схема алгоритма циклической программы.

Первоначально значение переменной хравно3. Вычисляется значение у прих=3и полученный результат выводится. Затем значениехувеличивается на0,1. Еслихменьше или равно4, то вновь вычисляетсяу, в противном случае – вычисления прекращаются.

Таким образом, вычисляется одиннадцать значений у. Параметром цикла в данной задаче является переменнаях.

Рис. 2.2 – Вид второй страницы задания

Рис. 2.1 – Вид первой страницы задания

Формулу со знаком суммы нужно создать с помощью Microsoft Equation 3.0. Фигурные скобки вставить с использованием команды Вставка/Символ. В таблице с контрольным просчетом для оформления использовать объединение ячеек, а для подсчета суммы – команду Формула из пункта меню Таблица.

1.3. Текст программы

Private Sub CommandButton1_Click()

Dim x As Single, y As Single

For x = 3 To 4 Step 0.1

y = Cos(x)

MsgBox y

Next

End Sub

1.4. Вычисление суммы

Пусть надо вычислить , где а={2;1;-4;5,7;-3;11;0,2;8;-6;21}

Текст программы	Контрольный просчет
Private Sub CommandButton1_Click() Dim a(10) As Single, s As Single Dim i As Integer s = 0 For i = 1 To 10 a(i) = Cells(i, 1) s = s + a(i) Next MsgBox s End Sub	Значения массива а	2
		0.1
		-4
		5.7
		-3
		11
		0.2
		8
		-6
		21
	Результат	44

Заключение

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

Оглавление

Введение ………………………………………………..1

1. Циклические программы…… …….…………….1

1.1. Постановка задачи …………………………..….. 1

1.2. Схема программы…………… ………………..… 1

1.3. Текст программы…… ……………………………2

1.4. Вычисление суммы……………………………..... 2

Заключение ……………………………………………. 2

Рис. 2.2 – Вид второй страницы задания