Практическая работа №5
по дисциплине «Информатика».
Тема: Разветвляющиеся комбинированные алгоритмы.
Цель: Обучение студентов основным приёмам организации разветвляющихся алгоритмов на алгоритмическом языке.
Ход работы: Рассмотрение разветвляющихся комбинированных алгоритмов с использованием:
Команды ветвления;
Команды выбора.
Требования: 1) Студент должен решить задачу своего варианта с обязательным использованием обращений к базовым алгоритмам, как ко вспомогательным.
Методика выполнения работы:
ЗАДАНИЕ
Построить программу, реализующую составленный алгоритм в практической работе №3, согласно своего варианта (См. раздел « Задачи№7).
Вопросы при сдаче лабораторной работы:
Что такое разветвление?
Как переводится на Паскаль команда ветвления в полной форме?
Как переводиться на Паскаль команда ветвления в сокращённой форме?
Что такое составной оператор языка Паскаль?
Как переводится на Паскаль команда выбора?
Какой оператор Паскаля используется для досрочного завершения исполнения подпрограмм?
Для чего предназначен оператор варианта языка Паскаль?
Какие ограничения имеет оператор варианта по сравнению с командой выбора?
Охарактеризуйте разветвляющуюся структуру алгоритма. Приведите примеры задач, для реализации которых применимы разветвляющиеся алгоритмы.
Литература:
А.Н.Моргун “Решение задач средствами языка ТURBO PASCAL 7.0”.
О.Ф.Ускова “Программирование алгоритмов обработки данных”.
Русскоязычный Help Turbo Pascal.
Практическая работа №6-7
по
дисциплине «Информатика».
Тема: «ОПЕРАТОРЫ ЦИКЛА»
Целью работы является:
освоение использования операторов цикла с параметром (for..do), с предусловием (while..do), с постусловием (repeat..until);
изучение основных характеристик операторов цикла;
получение навыков программирования с простыми и вложенными циклами.
Задание на выполнение лабораторной работы
Разработать схему алгоритма и программу вычисления выражения в соответствии с вариантом задания.
Программа должна включать:
объявление переменных целых и вещественных типов;
ввод исходных данных;
вычисление значения выражений в соответствии с вариантом задания;
вывод результатов выполнения программы.
Средства и оборудование
Персональная ЭВМ, среда программирования Borland Pascal.
Теоретические основы
Оператор цикла задает многократное выполнение определенных операторов. Если число повторений заранее известно, то подходящей конструкций является оператор цикла с параметром (for). В противном случае следует использовать операторы цикла с предусловием (while) или постусловием (repeat).
Синтаксис оформления цикла с параметром следующий:
for параметр := first to last do оператор;
или
for параметр := first downto last do оператор;
Оператор for вызывает повторение оператора стоящего после do каждый раз, пока значение будет проходить диапазон от first до last. Управляющая переменная (параметр), начальное (last) и конечное (first) значения должны быть перечисляемого типа. При использовании to значение управляющей переменной увеличивается при каждом выполнении цикла, при использовании downto –уменьшается.
Примеры использования оператора цикла с параметром.
Вычислить
.
Вычисление проведем с использованием
простого
цикла.
Var
k, n: Integer;
S: Real; {сумма}
p:
Real; {результат
}
x: Real;
begin
x:= 5; n:= 10;
S:=
0; p:=1; {начальные значения суммы и
}
for k:= 1 to n do
begin
p:= p*x; {вычисляем }
S:= S+x;
end;
{вывод результата}
end.
Вычислить
.
Вычисление проведем с использованием
вложенного
цикла.
Var
i, j: Integer;
S: Real;
begin
S:= 0;
for i:= 1 to 100 do
for j:= 1 to 50 do
S:= S+1/(i+j);
{вывод результата}
end.
Синтаксис оформления цикла с предусловием следующий:
while expression do оператор
Оператор, стоящий после do, циклически выполняется до тех пор, пока логическое выражение (expression) имеет значение истина (true). Выражение (expression) вычисляется перед выполнением оператора, т.е. если оно примет значение ложь (false) в самом начале, оператор не будет выполнен ни одного раза.
Пример использования оператора цикла с предусловием.
Вычислить 10!
Var
factorial: Longint;{факториал}
n: Integer; {условие цикла}
begin
n:= 1; {начальное значение для условия цикла}
factorial:= 1; {начальное значение для факториала= 0!}
while n<=10 do
begin
factorial:= factorial*n; {вычисляем n!}
n:= n+1;
end; {while}
{вывод результата}
end.
Синтаксис оформления цикла с постусловием следующий:
repeat
оператор;
оператор;
...
оператор;
until expression;
Операторы между repeat и until последовательно выполняются пока логическое выражение (expression) имеет значение ложь в конце выполняемой последовательности. Последовательность выполняется как минимум один раз.
Пример использования оператора цикла с постусловием.
Даны
действительные числа
.
Последовательность
образована по следующему закону:
.
Найти первый член последовательности,
для которого выполнено условие
(ограничится рассмотрением
членами последовательности).
Var
Aold,
Anew: Real; {
соответственно}
n: Integer;
x,eps: Real;
begin
x:= 5; n:= 1; Anew:=x; {начальные значения}
eps:=1E-3;
repeat
n:=n+1;{переходим к следующему значению n}
Aold:=Anew;
{определяем
}
Anew:=sqrt(abs(4*sqr(Aold)-2*x));
{вычисляем
}
until (abs(Aold-Anew)<eps) or n>1E+4;
{вывод результата}
end.
Варианты заданий
Дано натуральное число n. Вычислить:
а)
;
б)
;
в)
; г)
.
Вычислить
а)
; б)
;
в)
; г)
.
Даны натуральное число n, действительное число x. Вычислить:
а)
; б)
;
в)
; г)
.
Даны действительные числа x, ε (x≠0, ε>0). Вычислить с точностью ε:
а)
;
б)
;
в)
;
г)
;
д)
; е)
;
ж)
;
з)
.
Даны действительные числа x, a, ε (
,
ε>0). Вычислить с точностью ε значение
.Даны целое число n, действительные числа x, ε (
,
ε>0). Вычислить с точностью ε значение
.Дано действительное число x. Вычислить с точностью 10-6:
а)
; б)
;
в)
; г)
;
д)
; е)
;
ж)
; з)
.
Даны натуральное число k, действительное число а (а > 0). Последовательность x0, x1,… образована по закону
,
i=1,
2,…
Найти
первое значение xn,
для которого
.
Дано действительное число x. Последовательность a1, a2, … образована по следующему закону:
а)
; б)
;
в)
; г)
.
Получить
a1+…+ak,
где k-наименьшее
целое число, удовлетворяющее двум
условиям: k>10
и
.
Дано действительное число ε (ε>0). Последовательность a1, a2, … образована по следующему закону:
а)
;
б)
;
в)
;
г)
;
Найти
первый член аn
(
),
для которого выполнено условие
.
Даны действительные числа x, ε (ε>0). Последовательность a1, a2, … образована по следующему закону: a1=x; далее для n=2, 3, … выполнено:
а)
; б)
;
в)
; г)
.
Найти первый член аn ( ), для которого выполнено условие (ограничиться рассмотрением первых 104 членов).
Контрольные вопросы
Поясните назначение операторов цикла ?
Поясните структуру и параметры операторов цикла ?
Какой тип должен иметь параметр в операторе for ?
При каком условии будут выполнятся операторы while, repeat ?
C какой целью могут быть использованы вложенные циклы ?