Программирование

Автор работы: Пользователь скрыл имя, 14 Марта 2011 в 18:27, курсовая работа

Описание работы

Задача 1.

Составить программу, которая позволяет численно убедиться в справедливости равенства, приведенного ниже, с заданной точностью E:

Вычисления необходимо продолжать до тех пор, пока для очередного члена ряда А не будет выполнено условие: . Значение Е вводятся в диалоге по запросу пользователя (например, ). Вывести значения всех членов ряда и количество итераций, необходимых для достижения заданной точности.

Содержание работы

Условие задач 2

Текст программы 3

Результаты работы программы 30

Список используемой литературы: 33

Скачать архив (102.86 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Медведев Н.А - 2 курс, Курсовая.docx

— 411.44 Кб (Скачать файл)

end;

{=====================================================================}

Edit1.Text:=inttostr(KSim); // Вывод кол-ва гласных

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form1.Height:=690;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form1.Height:=484;

end;

procedure TForm1.Button22Click(Sender: TObject);

begin

Edit2.Text:=inttostr(Memo1.Lines.Count); // Считает количество строк в поле Memo1

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

if Button20.Caption='Показатьтекстсгласными' then begin

Memo1.Visible:=True;

Memo2.Visible:=False;

Button20.Caption:='Показать текст без гласных';

end

else begin

Memo1.Visible:=False;

Memo2.Visible:=True;

Button20.Caption:='Показатьтекстсгласными';

end;

procedure TForm1.Button23Click(Sender: TObject);

begin

Panel1.Visible:=False; Panel6.Visible:=False;

Panel2.Visible:=true; Panel5.Visible:=False;

Panel3.Visible:=False; Panel4.Visible:=false;

PageControl1.Visible:=False;

end;

procedure TForm1.Button24Click(Sender: TObject);

VarN,A,B:integer;

Code,Si:integer;

Ss:string;

begin

if (Edit14.Text='') or (Edit15.Text='') or (Edit19.Text='') then begin

Label75.Font.Color:=clRed;

Timer1.Enabled:=true;

end;

{== Проверка ввода значений ==========================================}

Val(Edit14.Text,N,code);

if (code<>0) then begin

Edit14.Text:='';

Timer2.Enabled:=true;

Label77.Visible:=true;

end

else begin

N:=strtoint(Edit14.Text);

Edit20.Text:=inttostr(N);

end;

Val(Edit15.Text,A,code);

if (code<>0) then begin

Edit15.Text:='';

Timer2.Enabled:=true;

Label77.Visible:=true;

end

else begin

A:=strtoint(Edit15.Text);

Edit21.Text:=inttostr(A);

end;

Val(Edit19.Text,B,code);

if (code<>0) then begin

Edit19.Text:='';

Timer2.Enabled:=true;

Label77.Visible:=true;

end

else begin

B:=strtoint(Edit19.Text);

Edit22.Text:=inttostr(B);

end;

{=====================================================================}

if (Edit20.Text<>'') and (Edit21.Text<>'') and (Edit22.Text<>'') and (B>A) and (StrToInt(Edit14.Text)>0) then

Button27.Click;

end;

procedure TForm1.Button25Click(Sender: TObject);

VarN,A,B:integer;

begin

Randomize;

N:=Random(9998)+1;

A:=Random(9999)-9999;

B:=Random(9999);

Edit14.Text:=IntToStr(N); Edit20.Text:=inttostr(N);

Edit15.Text:=IntToStr(A); Edit21.Text:=inttostr(A);

Edit19.Text:=IntToStr(B); Edit22.Text:=inttostr(B);

Button27.Click;

Button24.Enabled:=False;

Button25.Enabled:=False;

end;

procedure TForm1.Button26Click(Sender: TObject);

var i:integer;

begin

Edit14.Text:=''; Edit20.Text:=''; Edit23.Text:=''; Edit26.Text:='';

Edit15.Text:=''; Edit21.Text:=''; Edit24.Text:=''; Edit27.Text:='';

Edit19.Text:=''; Edit22.Text:=''; Edit25.Text:=''; Edit28.Text:='';

Edit29.Text:='';

Label86.Caption:='';

Button24.Enabled:=True; ScrollBar1.Position:=0;

Button25.Enabled:=True; ScrollBar1.Max:=100;

for i:=1 to 9999 do

MasEx2[i]:=0;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:=false;

Label75.Font.Color:=clBlack;

Label83.Font.Color:=clBlack;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Label77.Visible:=false;

Label102.Visible:=false;

Timer2.Enabled:=false;

end;

procedure TForm1.Button27Click(Sender: TObject);

var i:integer;

A,B,N:integer;

EvenNumber:longint; // Четноечисло

OddNumber: longint; // Нечетноечисло

begin

Randomize;

N:=StrToInt(Edit20.Text);

A:=StrToInt(Edit21.Text);

B:=StrToInt(Edit22.Text);

Button24.Enabled:=False;

Button25.Enabled:=False;

{== Заполнение массива случайными числами из заданного диапазона ====}

for i:=1 to N do begin

MasEx2[i]:=A+Random((B+1)-A);

Edit23.Text:=IntToStr(MasEx2[i]);

end;

{=== Собирание массива в строку и вывод этой строки =================}

for i:=1 to N do

Edit25.Text:=Edit25.Text+IntToStr(MasEx2[i])+' ';

{=== Определение длины прокрутки для полосы прокрутки ===============}

Edit24.Text:=IntToStr(Length(Edit25.Text));

ScrollBar1.Max:=StrToInt(Edit24.Text);

{====================================================================}

EvenNumber:=0;

for i:=1 to N do

if (MasEx2[i] mod 2 = 0) then

EvenNumber:=EvenNumber+sqr(MasEx2[i]);

Edit28.Text:=IntToStr(EvenNumber);

OddNumber:=0;

for i:=1 to N do

if (MasEx2[i] mod 2 <> 0) then

OddNumber:=OddNumber+MasEx2[i];

OddNumber:=sqr(OddNumber);

Edit29.Text:=IntToStr(OddNumber);

Label86.Caption:=IntToStr(EvenNumber-OddNumber);

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

{=== Связывание полосы прокрутки и окна с массивом ==================}

Edit25.SelStart:=ScrollBar1.Position;

end;

procedure TForm1.Button28Click(Sender: TObject);

varNi,i:integer;

Code:integer;

begin

{== Проверка ввода значений окна выбора элемента массива =============}

if (Edit26.Text='') then begin

Label83.Font.Color:=clRed;

Timer1.Enabled:=true;

end;

{== Проверка ввода истинности значений ==========================================}

Val(Edit26.Text,Ni,code);

if (code<>0) or (StrToInt(Edit26.Text)<1) or (Edit20.Text='') or

(StrToInt(Edit26.Text)>9999) or (StrToInt(Edit26.Text)<-9999) then begin

Edit26.Text:='';

Edit27.Text:='';

Label83.Font.Color:=clRed;

Timer1.Enabled:=true;

end

else begin

Ni:=strtoint(Edit26.Text);

Edit27.Text:=inttostr(MasEx2[Ni]);

end;

procedure TForm1.Button29Click(Sender: TObject);

begin

Panel1.Visible:=False; Panel6.Visible:=False;

Panel2.Visible:=False; Panel5.Visible:=False;

Panel3.Visible:=True; Panel4.Visible:=false;

PageControl1.Visible:=False;

end;

procedure TForm1.Button30Click(Sender: TObject);

vari,j:integer;

begin

Edit30.Text:=''; Edit56.Text:=''; Edit37.Text:='';

Edit31.Text:=''; Edit54.Text:=''; Edit36.Text:='';

Edit32.Text:=''; Edit55.Text:=''; Edit35.Text:='';

Edit33.Text:=''; Edit34.Text:='';

Button31.Enabled:=True;

Button32.Enabled:=True;

for i:=1 to 999 do // Обнуление двумерного массива

for j:=1 to 999 do

M2[i,j]:=0;

{=== Очистка таблицы ================================================}

with StringGRid1 do

for i:=1 to 4 do

for j:=1 to ColCount do

Cells[j, i-1]:='';

with StringGRid1 do

for i:=5 to RowCount do

for j:=1 to ColCount do

Cells[j, i]:='';

{=== Задание таблице начального вида =================================}

StringGrid1.Font.Size:=8;

StringGrid1.Cells[0,0]:='Сумма "-"';

StringGrid1.Cells[0,1]:='Кол-во. "-"';

StringGrid1.Cells[0,2]:='Сумма "+"';

StringGrid1.Cells[0,3]:='Кол-во. "+"';

StringGrid1.Cells[0,4]:=' №';

StringGrid1.ColWidths[0]:=65;

StringGrid1.RowCount:=11;

StringGrid1.ColCount:=11;

for i:=1 to 11 do StringGrid1.Cells[i,4]:=IntToStr(i);

for i:=1 to 11 do StringGrid1.Cells[0,i+4]:=' '+IntToStr(i);

{====================================================================}

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

vari,j,n,m:integer;

sum:longint;

begin

if (button32.Enabled=False) then begin

n:=StrToInt(Edit34.Text);

m:=StrToInt(Edit35.Text);

{=== Нахождение суммы отрицательных элементов столбцов ===========}

for j:=1 to m do begin

sum:=0;

for i:=1 to n do begin

if (M2[i,j]<0) then sum:=sum+M2[i,j];

end;

{================================================================}

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

vari,j,n,m:integer;

sum:longint;

begin

if (button32.Enabled=False) then begin

n:=StrToInt(Edit34.Text);

m:=StrToInt(Edit35.Text);

{=== Нахождение количества отрицательных элементов столбцов =======}

for j:=1 to m do begin

sum:=0;

for i:=1 to n do begin

if (M2[i,j]<0) then sum:=sum+1;

end;

{===================================================================}

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

vari,j,n,m:integer;

sum:longint;

begin

if (button32.Enabled=False) then begin

n:=StrToInt(Edit34.Text);

m:=StrToInt(Edit35.Text);

{=== Нахождение суммы положительных элементов столбцов ============}

for j:=1 to m do begin

sum:=0;

for i:=1 to n do begin

if (M2[i,j]>0) then sum:=sum+M2[i,j];

end;

{===================================================================}

end;

procedure TForm1.BitBtn8Click(Sender: TObject);

vari,j,n,m:integer;

sum:longint;

begin

if (button32.Enabled=False) then begin

n:=StrToInt(Edit34.Text);

m:=StrToInt(Edit35.Text);

{=== Нахождение количества положительных элементов столбцов =======}

for j:=1 to m do begin

sum:=0;

for i:=1 to n do begin

if (M2[i,j]>0) then sum:=sum+1;

end;

{==================================================================}

end;

procedure TForm1.Button32Click(Sender: TObject);

Информация о работе Программирование