Цель работы

Изучение и программирование алгоритмов циклической структуры.

Порядок работы:

• Запустить программу.
• В порядке, описанном в методических указаниях, изучить правила организации ввода-вывода данных.
• Выполнить задания, приведенные в учебном модуле.
• Проверить полученные знания на основе интерактивного тестирования.

1Задание 1

Табулирование функции

1.1Код программы

procedure TForm2.Button1Click(Sender: TObject);

var

x,y:real;

begin

x:=0;

while x<=0.801 do begin

y:=tan(x)-(1/3)*power(tan(x),3)+(1/5)*power(tan(x),5)-1/3;

memo1.Lines.add(floattostrf(x,fffixed,1,2)+' ' + floattostrf(y,fffixed,1,3));

x:=x+0.05;

end;

end;

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

Рисунок 1.1

1.3Входные и выходные данные

Рисунок 1.2

2Задание 2

По заданной формуле члена последовательности с номером k составить две программы:

- программу вычисления суммы первых nчленов последовательности (k=1,2,3..,n);

2.1Код программы

procedure TForm2.Button2Click(Sender: TObject);

var

n,k:integer;

s:real;

begin

n:=strtoint(edit1.text);

s:=0;

for k:=1 to n do

s:=s+1/(sqrt(k)+15);

edit2.text:=floattostrf(s,fffixed,2,5)

end;

2.2Схема алгоритма

Рисунок 2.1

2.3Входные и выходные данные

Рисунок 2.2

3Задание 3

По заданной формуле члена последовательности с номером k составить две программы:

- программу вычисления суммы всех членов последовательности, не меньших заданного числа e.

3.1Код программы

procedure TForm2.Button3Click(Sender: TObject);

var

e,s,y:real;

k:integer;

begin

s:=0;

e:=strtofloat(edit3.text);

k:=1;

repeat

y:=1/(sqrt(k)+15);

s:=s+y;

k:=k+1;

until y<=e;

edit4.text:=floattostrf(s,fffixed,2,5);

end;

3.2Схема алгоритма

Рисунок 3.1

3.3Входные и выходные данные

Рисунок 3.2

4Задание 4

4.1Код программы

procedure TForm3.Button1Click(Sender: TObject);

var

x,y:real;

begin

x:=2;

while x<=5 do begin

if x>3.5 then y:=sin(x)*log10(x) else y:=sqr(cos(x));

memo1.Lines.add(floattostrf(x,fffixed,1,2)+' ' + floattostrf(y,fffixed,1,3));

x:=x+0.25;

end;

end;

4.2Схема алгоритма

Рисунок 4.1

4.3Входные и выходные данные

Рисунок 4.2

5Задание 5

Составить программу:

- программу вычисления суммы первых n членов последовательности (k=1,2,3..,n);

5.1Код программы

procedure TForm3.Button2Click(Sender: TObject);

var

n,k:integer;

S: real;

begin

n:=strtoint(edit1.text);

S:=0;

For k:=0 To n Do

Begin

S:=S+1/fakt(2*k);

End;

Edit2.Text:=floattostrf(s,fffixed,2,5);

end;

5.2Схема алгоритма

Рисунок 5.1

5.3Входные и выходные данные

Рисунок 5.2

6Задание 6

Составить программу:

- программу вычисления суммы всех членов последовательности, не меньших заданного числа e.

6.1Код программы

procedure TForm3.Button3Click(Sender: TObject);

var

k:integer;

S,e,y: real;

begin

s:=0;

e:=strtofloat(edit3.text);

k:=0;

repeat

y:=1/fakt(2*k);

s:=s+y;

k:=k+1;

until y<=e;

edit4.text:=floattostrf(s,fffixed,2,5);

end;

6.2Схема алгоритма

Рисунок 6.1

6.3Входные и выходные данные

Рисунок 6.2

Заключение

Мы изучили и запрограммировали алгоритмы циклической структуры.