Автор работы: Пользователь скрыл имя, 14 Марта 2011 в 18:27, курсовая работа
Задача 1.
Составить программу, которая позволяет численно убедиться в справедливости равенства, приведенного ниже, с заданной точностью E:
Вычисления необходимо продолжать до тех пор, пока для очередного члена ряда А не будет выполнено условие: . Значение Е вводятся в диалоге по запросу пользователя (например, ). Вывести значения всех членов ряда и количество итераций, необходимых для достижения заданной точности.
Условие задач 2
Текст программы 3
Результаты работы программы 30
Список используемой литературы: 33
Panel1.Visible:=false; Panel6.Visible:=False;
Panel2.Visible:=false; Panel5.Visible:=False;
Panel3.Visible:=true; Panel4.Visible:=False;
Form1.Height:=484;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=False;
Panel2.Visible:=False; Panel5.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=False;
PageControl1.Visible:=True;
PageControl1.ActivePage:=
PageControl2.ActivePage:=
N8.Visible:=true;
N9.Visible:=true;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=false;
Panel2.Visible:=false; Panel5.Visible:=false;
Panel3.Visible:=true; Panel4.Visible:=false;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=False;
Panel2.Visible:=true; Panel5.Visible:=False;
Panel3.Visible:=false; Panel4.Visible:=False;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.N24Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=False;
Panel2.Visible:=False; Panel5.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=true;
PageControl1.Visible:=False;
Form1.Height:=484;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.N52Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=False;
Panel2.Visible:=False; Panel5.Visible:=true;
Panel3.Visible:=False; Panel4.Visible:=false;
PageControl1.Visible:=False;
Form1.Height:=484;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.N62Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=true;
Panel2.Visible:=False; Panel5.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=false;
PageControl1.Visible:=False;
Form1.Height:=484;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=false;
Panel2.Visible:=false; Panel5.Visible:=false;
Panel3.Visible:=false; Panel4.Visible:=true;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=false;
Panel2.Visible:=false; Panel5.Visible:=true;
Panel3.Visible:=false; Panel4.Visible:=false;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=true;
Panel2.Visible:=false; Panel5.Visible:=false;
Panel3.Visible:=false; Panel4.Visible:=false;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=False;
Panel2.Visible:=false; Panel5.Visible:=False;
Panel3.Visible:=true; Panel4.Visible:=False;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=False;
Panel2.Visible:=false; Panel5.Visible:=False;
Panel3.Visible:=false; Panel4.Visible:=true;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
PageControl1.Visible:=false;
Panel1.Visible:=false; Panel6.Visible:=False;
Panel2.Visible:=false; Panel5.Visible:=true;
Panel3.Visible:=false; Panel4.Visible:=False;
N8.Visible:=false;
N9.Visible:=false;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=False;
Panel2.Visible:=False; Panel5.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=False;
PageControl1.Visible:=True;
PageControl1.ActivePage:=
PageControl2.ActivePage:=
Memo1.SetFocus;
N8.Visible:=true;
N9.Visible:=true;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=False;
Panel2.Visible:=False; Panel5.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=False;
PageControl1.Visible:=True;
PageControl1.ActivePage:=
PageControl2.ActivePage:=
N8.Visible:=true;
N9.Visible:=true;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=False;
Panel2.Visible:=False; Panel5.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=False;
PageControl1.Visible:=True;
PageControl1.ActivePage:=
PageControl2.ActivePage:=
N8.Visible:=true;
N9.Visible:=true;
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel6.Visible:=False;
Panel2.Visible:=False; Panel5.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=true;
PageControl1.Visible:=False;
end;
procedure TForm1.Button21Click(Sender: TObject);
vari,j:integer;
begin
Button20.Caption:='
Button19.Enabled:=true;
Button21.Enabled:=false;
Memo2.Visible:=False;
Memo1.Visible:=True;
Memo1.Text:='';
Memo1.SetFocus;
Edit1.Text:=''; Edit6.Text:=''; Edit11.Text:=''; Edit18.Text:='';
Edit2.Text:=''; Edit7.Text:=''; Edit12.Text:=''; Edit17.Text:='';
Edit3.Text:=''; Edit8.Text:=''; Edit13.Text:=''; Edit10.Text:='';
Edit4.Text:=''; Edit9.Text:='';
Edit16.Text:=''; Edit5.Text:='';
Button20.Enabled:=False;
Edit1.Enabled:=False;
Label63.Enabled:=False;
for i:=1 to Ks do
for j:=1 to 91 do
Mas[i,j]:='';
KSim:=0;
Memo2.Text:='';
end;
procedure TForm1.Button19Click(Sender: TObject);
vari,j,iGlas:integer; // Переменные для циклов
Y:integer; // Переменная для кол-ва строк
LinesX:ShortString; // Переменная для собирания элементов строки массива
DLinX:integer; // Длина строки в переменной LinesX
S:ShortString; // Переменная для копирования в нее символа из текста
Glas:array [1..32] of ShortString; // Массив гласных
begin
Button20.Caption:='Показать текст с гласными';
Button20.Enabled:=true;
Button19.Enabled:=False;
Button21.Enabled:=True;
Button20.SetFocus;
Edit1.Enabled:=True;
Label63.Enabled:=True;
Button19.Enabled:=False;
Memo2.Visible:=True;
Memo1.Visible:=False;
{=== Заполнения
массива гласными буквами =====
Glas[1]:='A'; Glas[2]:='a'; Glas[3]:='E'; Glas[4]:='e'; Glas[5]:='I'; Glas[6]:='i'; Glas[7]:='Y'; Glas[8]:='y'; Glas[9]:='U'; Glas[10]:='u';
Glas[11]:='А'; Glas[12]:='Е'; Glas[13]:='е'; Glas[14]:='Ё'; Glas[15]:='ё'; Glas[16]:='И'; Glas[17]:='и'; Glas[18]:='О'; Glas[19]:='о'; Glas[20]:='У';
Glas[21]:='Ы'; Glas[22]:='ы'; Glas[23]:='Э'; Glas[24]:='э'; Glas[25]:='Ю'; Glas[26]:='ю'; Glas[27]:='Я'; Glas[28]:='я'; Glas[29]:='O'; Glas[30]:='o';
Glas[31]:='а'; Glas[32]:='у';
{-----------------------------
Edit2.Text:=inttostr(Memo1.
Y:=StrToInt(Edit2.Text);
Ks:=StrToInt(Edit2.Text);
{=== Заполнение массива буквами текста ============================}
for i:=1 to Y dobegin // Цикл по строкам
S:=Memo1.Lines[i-1]; // Копируем в переменную i-1 строку из текста
for j:=1 to 91 do // Цикл по символам строки
Mas[i,j]:=Copy(S,j,1); // Копируем в [i,j] из S j-ый элемент строки
end;
{=== Удаление
глассных из массива ==============================
for i:=1 to Y do // Цикл по строкам
for j:=1 to 91 do // Цикл по символам строки
foriGlas:=1 to 32 do // Цикл по проверке гласных
if (Mas[i,j]=Glas[iGlas]) then begin
Mas[i,j]:=' '; // Если символ гласный, то заменяем его пробелом
KSim:=KSim+1; // Если символ гласный, то накручиваем счетчик
end;
{=== Выводтестовойинформации
==============================
Edit5.Text:=Mas[1,1]; Edit9.Text:=Mas[2,1]; Edit13.Text:=Mas[3,1];
Edit6.Text:=Mas[1,2]; Edit10.Text:=Mas[2,2]; Edit16.Text:=Mas[3,2];
Edit7.Text:=Mas[1,3]; Edit11.Text:=Mas[2,3]; Edit17.Text:=Mas[3,3];
Edit8.Text:=Mas[1,4];
Edit12.Text:=Mas[2,4]; Edit18.Text:=Mas[3,4];
{=== Заполнение
текста из массива ==============================
DLinX:=0; // Обнуление длины строки из переменной LinesX
LinesX:='';
// Обнуление
строковой переменной
for i:=1 to Y dobegin // Цикл по строкам
LinesX:='';
// Обнуление
строковой переменной
for j:=1 to 91 dobegin // Цикл по символам строки
insert(Mas[i,j],LinesX,j); // Собираем Mas[1,j] встроку
end;
if i<>Y then// Если i<>Y то вводит в RichEdit строку и переводит переход на следующую строку
Memo2.Lines[i-1]:=LinesX+#13+#
Else // иначе вводит в RichEdit строку без перехода на следующую строку
Memo2.Lines[i-1]:=LinesX;
Edit4.Text:=LinesX; // Вывод собранной строки в тестовое окно
DLinX:=Length(S); // Подсчет длины готовой строки
Edit3.Text:=inttostr(DLinX); // Вывод длины собранной строки