Учебное пособие 702

1.В программе использовать оператор цикла со счетчиком (For).

2.В программе использовать оператор цикла с предусловием

(While).

3.В программе использовать оператор цикла с постусловием

(Repeat .. Until).

Результаты вычислений должны совпадать для одного и того же варианта.

6.2.Лабораторные задания № 1

1.Варианты заданий приведены в табл. 3.

Запись выражений выполнять в соответствии с правилами языка Turbo Pascal 7.0 с использованием стандартных операций и функций.

Таблица 3

Варианты заданий

пользователем числа, используя оператор цикла со счетчиком: Program Summa_For;

Var

12

I, N: Integer;

S: Real;

Begin

Write('Введите N = ');

Readln(N);

S:=0;

For I:=1 To N Do

S:=S + I / 2;

Writeln ('Cумма = ', S:3:2);

Readln;

End.

пользователем числа, используя оператор цикла с предусловием: Program Summa_While;

Var

I, N: Integer; S: Real;

Begin

Write('Введите N = '); Readln(N);

S:=0;

I:=1;

While I<=N Do begin

S:=S + I / 2; I:=I+1;

end;

Writeln ('Cумма = ', S:3:2); Readln;

End.

пользователем числа, используя оператор с постусловием: Program Summa_Repeat;

Var

I, N: Integer;

13

S: Real;

Begin

Write('Введите N = ');

Readln(N);

S:=0;

I:=1;

Repeat

S:=S + I / 2;

I:=I+1;

Until I>N;

Writeln ('Cумма = ', S:3:2);

Readln;

End.

6.3. Постановка задачи по использованию процедур, функций и стандартных модулей Turbo Pascal 7.0

Написать программу вычисления суммы ряда согласно варианту задания из табл. 4.

В программе использовать:

–операторы цикла: со счетчиком (For), с предусловием (While), с постусловием (Repeat);

–подпрограммы-процедуры (Procedure) для оформления процесса вычисления суммы с помощью каждого оператора;

–подпрограммы-функции (Function) для вычисления выражений;

–меню пользователя и выбор метода расчета или выхода из программы с помощью оператора варианта (Case);

–заданный цвет фона и текста.

Рекомендуется сначала отдельно написать и протестировать вычисление суммы ряда с помощью операторов цикла, а затем оформить их как процедуры и добавить меню пользователя.

6.4. Лабораторные задания № 2

Варианты заданий приведены в табл. 4.

14

Таблица 4

Варианты заданий

n 2

Пример. Вычислить сумму ряда вида: .

i 1 i!

В программе использовать:

–оператор цикла с предусловием (While);

–подпрограмму-процедуру (Procedure) для оформления процесса вычисления суммы с помощью оператора;

15

–подпрограмму-функцию (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);

16

case K of

1:Oper_while;

2:Exit;

end;

until K=2; End.

7. СОДЕРЖАНИЕ ОТЧЕТА ПО ЛАБОРАТОРНОЙ РАБОТЕ

7.1. Результаты выполнения подготовительного задания: титульный лист, цель и задачи работы, краткие теоретические сведения.

7.2. Результаты выполнения лабораторных заданий, оформленные в виде листинга программы с указанием результата ее выполнения.

7.3. Выводы по результатам выполнения заданий и заключение по работе в целом.

8. КОНТРОЛЬНЫЕ ВОПРОСЫ

8.1.Что такое цикл? Дайте характеристику схемы цикла.

8.2.Какие виды циклов Вы знаете?

8.3.Дайте характеристику цикла со счетчиком.

8.4.Дайте характеристику цикла с предусловием.

8.5.Дайте характеристику цикла с постусловием.

8.6.Для каких целей в программах используются подпрограммы? Какие виды подпрограмм Вам известны?

8.7.Чем отличаются процедуры от функций?

8.8.Каким образом описываются подпрограммы? Для чего предусмотрен механизм предварительных описаний?

8.9.Какие параметры подпрограмм называют входными и выходными?

8.10.Чем отличаются формальные параметры от фактических?

8.11.Перечислите правила вызова процедур и функций.

8.12.Приведите формат описания процедуры.

8.13.Приведите формат описания функции.

8.14.Для чего используются формальные и фактические параметры функции?

8.15.Каким образом организуется вызов функции?

8.16.Какие функции называются рекурсивными?

17

8.17.Для чего в Turbo Pascal используются модули?

8.18.Какие виды модулей используются в Turbo Pascal?

8.19.Дайте характеристику процедур и функций модуля Crt.

18