Порядок выполнения работы. С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-4) для размещения файлов проекта

С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-4) для размещения файлов проекта.

Создать проект консольного приложения Delphi.

Командой меню «Пуск / Borland Delphi 7 / Delphi 7» (или аналогичной командой) запустите интегрированную среду программирования Delphi.

В появившемся основном окне Delphi выберите команду меню «File / New / Other…»

В окне «New Items» выберите пиктограмму мастера создания консольного приложения «Console Application» и нажмите кнопку «ОК». Появится окно редактора консольного приложения.

Сохраните файлы проекта в раннее созданную папку Ivanov-4 с помощью команды основного меню «File / Save Project As…».

В окне «Save Project As» с помощью списка «Папка» перейти в папку проекта Ivanov-4 нажать кнопку «Сохранить».

В результате файлы проекта Project2 будут сохранены в папку Ivanov-4 и Вы в дальнейшем сможете легко отыскать проект на жестком диске для продолжения работы с ним, скопировать папку на дискету для переноса проекта на другой компьютер и т.д.

Вывод коэффициента рекуррентности q.

до цикла

цикл ®

.

Проверка правильности вычисления q.

До цикла: предыдущее слагаемое ;

значение переменной .

Цикл начинается при значении переменной и заканчивается при .

		–
		–
		–
: :	: :	: :	: :	: :
n		–

Редактирование текста главной программы для задачи 1.

PROGRAM Ivanov4;

{$APPTYPE CONSOLE}

USES

SysUtils;

CONST

n=9; // количество элементов суммы

x=0.6; // для этого Х вычислить сумму

VAR

s:real; // искомая сумма

q:real; // коэффициент рекуррентности

a1,a2:real; // предыдущий и следующий элементы суммы

i:integer; // счетчик элементов суммы

BEGIN

s:=1; // значение суммы до начала цикла

a1:=1; // слагаемое перед началом цикла

for i:=1 to n do begin

q:=-x/i; // i-й коэффициент рекуррентности

a2:=a1*q; // следующий элемент суммы

s:=s+a2; // суммирование

a1:=a2 // подготовка к следующему такту цикла

end;

WriteLn (' x=',x:5:1,' s=',s:9:6);

WriteLn('***** Press <ENTER> to finish *****');

readln;

END.

Командой меню «Run / Run» (горячая клавиша F9) запустите приложение на выполнение. Консольное окно с результатами расчета для задачи 1 выглядит так:

Редактирование текста главной программы для задачи 2.

program Ivanov4_2;

{$APPTYPE CONSOLE}

uses

SysUtils;

CONST

xn=0.1; { начальное значение Х }

xk=1.0; { конечное значение Х }

hx=0.1; { шаг по Х }

eps=1e-6; { точность вычисления суммы }

VAR

S:real; { сумма }

q:real; { коэффициент рекуррентности }

a1,a2:real; { предыдущий и следующий элементы суммы }

x:real; { текущее значение Х }

i:integer; { счетчик элементов суммы }

k:integer; { счетчик количества точек Х }

begin

WriteLn('Task # 2');

x:=xn; {начальная точка Х }

k:=1; { номер точки X }

WHILE x<=xk+eps DO BEGIN { начало цикла по Х }

s:=1; { значение суммы до цикла в К-й точке Х }

a1:=1; { слагаемое непосредственно перед началом цикла}

i:=1; { начальное значение счетчика i }

REPEAT {цикл REPEAT для вычисления суммы в К-й точке Х}

q:=-x/i;

a2:=a1*q;

s:=s+a2;

i:=i+1;

a1:=a2

UNTIL abs(a2)<eps; { закончился оператор REPEAT }

WriteLn (k:2,'. ',' x=',x:3:1,' s=',s:9:6);

k:=k+1;

x:=x+hx; { переход на следующий Х }

END; { закончился оператор WHILE }

WriteLn('Press <ENTER> to finish');

ReadLn;

end.

Консольное окно с результатами расчета для задачи 1 выглядит так:

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

1. ;

1) n = 6, x = 0.1; 2) x = 0.1…1.0,

2. ;

1) n = 8, x = 1.2; 2) x = 1…2,

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.