6. Лабораторные задания и методические указания по их выполнению
6.1. Постановка задачи
Написать программу вычисления суммы ряда согласно варианту задания из таблицы.
В программе использовать:
- операторы цикла: со счетчиком (For), с предусловием (While), с постусловием (Repeat);
- подпрограммы-процедуры (Procedure) для оформления процесса вычисления суммы с помощью каждого оператора;
- подпрограммы-функции (Function) для вычисления выражений;
- меню пользователя и выбор метода расчета или выхода из программы с помощью оператора варианта (Case);
- заданный цвет фона и текста.
Рекомендуется сначала отдельно написать и протестировать вычисление суммы ряда с помощью операторов цикла, а затем оформить их как процедуры и добавить меню пользователя.
6.2. Лабораторные задания
1. Варианты заданий приведены в таблице.
Варианты заданий
№ |
Задание |
№ |
Задание |
1 |
Цвет фона – синий Цвет текста – желтый |
6 |
Цвет фона – черный Цвет текста – малиновый |
2 |
Цвет фона – зеленый Цвет текста – белый |
7 |
Цвет фона – бирюзовый Цвет текста – черный |
3 |
Цвет фона – синий Цвет текста – белый |
8 |
Цвет фона – зеленый Цвет текста – желтый |
4 |
Цвет фона – черный Цвет текста – светло-зеленый |
9 |
Цвет фона – светло-серый Цвет текста – черный |
5 |
Цвет фона – синий Цвет текста – светло-голубой |
10 |
Цвет фона – малиновый Цвет текста – белый |
2. Пример:
Вычислить сумму ряда вида:
.
В программе использовать:
- оператор цикла с предусловием (While);
- подпрограмму-процедуру (Procedure) для оформления процесса вычисления суммы с помощью оператора;
- подпрограмму-функцию (Function) для вычисления выражений;
- меню пользователя и выбор метода расчета или выхода из программы с помощью оператора варианта (Case);
- цвет фона – черный, цвет текста – светло-голубой.
Текст программы приведен ниже.
Program lab_3;
uses crt;
Var
I, N, K: Integer;
S: real;
Function Fact (X:Integer):LongInt;
Begin
If X=0 Then Fact := 1
Else Fact:= X*Fact(X-1);
End;
Procedure Oper_while;
Begin
writeln ('Введите N');
readln(N);
S:=0;
I:=1;
While I<=N do
begin
S:=S+2/Fact(I);
I:=I+1;
end;
Writeln('Сумма ряда = ', S:3:3);
readkey;
end;
BEGIN
repeat
TextBackGround(0);
TextColor(11);
clrscr;
writeln('Выберите пункт меню:');
writeln('1 – Вычисление суммы с помощью оператора While');
writeln('2 - Выход');
readln(K);
case K of
1: Oper_while;
2: Exit;
end;
until K=2;
End.
7. СОДЕРЖАНИЕ ОТЧЕТА ПО ЛАБОРАТОРНОЙ РАБОТЕ
7.1. Результаты выполнения подготовительного задания: титульный лист, цель и задачи работы, краткие теоретические сведения.
7.2. Результаты выполнения лабораторных заданий, оформленные в виде листинга программы с указанием результата ее выполнения.
7.3. Выводы по результатам выполнения заданий и заключение по работе в целом.