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

КУРСОВАЯ РАБОТА

По программированию

Вариант 4

Выполнил:

Студент заочного отделения

Группы ИТ-21z

Медведев Николай Александрович

Руководитель:

Емельянов Д.А

Оглавление

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

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

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

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

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

Задача 1.

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

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

Задача 2.

Задан одномерный массив из N целых чисел. Заполнить массив случайными числами из интервала [A, B]. Предусмотреть ввод в массив как положительных, так и отрицательных чисел. Значения N, A, B задаются в диалоге с компьютером по желанию пользователя. Составить программу, которая находит разность между суммой квадратов всех четных элементов массива и квадратом суммы всех нечетных элементов. Исходный массив и результаты работы вывести на экран.

Задача 3.

Задан двумерный массив M2[n, m] целых чисел. Заполнить массив случайными числами из интервала [A, B]. Предусмотреть ввод в массив как положительных, так и отрицательных чисел. Значения n, m, A, B задаются в диалоге с компьютером по желанию пользователя. Составить программу, которая вычисляет сумму и количество отрицательных и сумму и количество положительных элементов для каждого столбца этого массива. Исходный массив и все необходимые для проверки результаты работы вывести на экран.

Задача 4.

Составить программу, которая позволяет ввести с клавиатуры произвольный текст, удаляет все гласные буквы в этом тексте и считает количество сделанных удалений. Полученный текст вывести на экран.

Задача 5.

Составить программу табулирования функции «спираль», заданной параметрически:

Где: , a>0,

На интервале изменения параметра с заданным шагом h.

Все необходимые значения (t0, tk, h, A) задаются в диалоге с компьютером по желанию пользователя. На экран выводится таблица значений t, x, y на заданном интервале изменения параметра t с заданным шагом. Привести графическую иллюстрацию задачи: построить график заданной функции на заданном интервале с необходимыми комментариями (подписи осей координат, формула графика). Параметры функции подобрать так, чтобы ее график был «фотогеничен».

Задача 6.

Написать программу создания/чтения файла, содержащего сведения по теме «служба знакомств». Каждая запись файла должна содержать 4-5 полей (названия придумать самостоятельно). Файл должен содержать не менее 8-10 записей.

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ComCtrls, XPMan, StdCtrls, ExtCtrls, Buttons, Grids;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

PageControl1: TPageControl;

PageControl2: TPageControl;

TabSheet1: TTabSheet; TabSheet8: TTabSheet; TabSheet7: TTabSheet; TabSheet12: TTabSheet;

TabSheet2: TTabSheet; TabSheet9: TTabSheet; TabSheet6: TTabSheet; TabSheet5: TTabSheet;

TabSheet3: TTabSheet; TabSheet10: TTabSheet; TabSheet13: TTabSheet; TabSheet11: TTabSheet;

TabSheet4: TTabSheet;

Button1: TButton; Button7: TButton; Button13: TButton; Button49: TButton;

Button2: TButton; Button8: TButton; Button14: TButton; Button47: TButton;

Button3: TButton; Button9: TButton; Button15: TButton; Button50: TButton;

Button4: TButton; Button10: TButton; Button16: TButton; Button48: TButton;

Button5: TButton; Button11: TButton; Button17: TButton; Button46: TButton;

Button6: TButton; Button12: TButton; Button18: TButton; Button45: TButton;

Button19: TButton; Button22: TButton; Button25: TButton; Button42: TButton;

Button20: TButton; Button23: TButton; Button26: TButton; Button39: TButton;

Button21: TButton; Button24: TButton; Button27: TButton; Button44: TButton;

Button28: TButton; Button29: TButton; Button37: TButton; Button41: TButton;

Button30: TButton; Button33: TButton; Button32: TButton; Button38: TButton;

Button31: TButton; Button34: TButton; Button35: TButton; Button43: TButton;

Button36: TButton; Button40: TButton;

N2: TMenuItem; N11: TMenuItem; N51: TMenuItem; N22: TMenuItem; N7: TMenuItem;

N3: TMenuItem; N21: TMenuItem; N61: TMenuItem; N23: TMenuItem; N8: TMenuItem;

N4: TMenuItem; N31: TMenuItem; N6: TMenuItem; N24: TMenuItem; N9: TMenuItem;

N5: TMenuItem; N41: TMenuItem; N12: TMenuItem; N52: TMenuItem; N1: TMenuItem;

N62: TMenuItem;

Panel1: TPanel; Panel4: TPanel; Panel7: TPanel; Panel6: TPanel;

Panel2: TPanel; Panel5: TPanel; Panel8: TPanel; Panel3: TPanel;

Label8: TLabel; Label12: TLabel; Label16: TLabel; Label20: TLabel; Label121: TLabel;

Label9: TLabel; Label13: TLabel; Label17: TLabel; Label21: TLabel; Label2: TLabel;

Label10: TLabel; Label14: TLabel; Label18: TLabel; Label22: TLabel; Label120: TLabel;

Label11: TLabel; Label15: TLabel; Label19: TLabel; Label23: TLabel; Label116: TLabel;

Label24: TLabel; Label28: TLabel; Label32: TLabel; Label36: TLabel; Label112: TLabel;

Label25: TLabel; Label29: TLabel; Label33: TLabel; Label37: TLabel; Label108: TLabel;

Label26: TLabel; Label30: TLabel; Label34: TLabel; Label38: TLabel; Label119: TLabel;

Label27: TLabel; Label31: TLabel; Label35: TLabel; Label39: TLabel; Label115: TLabel;

Label1: TLabel; Label4: TLabel; Label7: TLabel; Label42: TLabel; Label111: TLabel;

Label5: TLabel; Label40: TLabel; Label43: TLabel; Label107: TLabel; Label118: TLabel;

Label3: TLabel; Label6: TLabel; Label41: TLabel; Label44: TLabel; Label114: TLabel;

Label45: TLabel; Label48: TLabel; Label51: TLabel; Label54: TLabel; Label110: TLabel;

Label46: TLabel; Label49: TLabel; Label52: TLabel; Label55: TLabel; Label106: TLabel;

Label47: TLabel; Label50: TLabel; Label53: TLabel; Label56: TLabel; Label117: TLabel;

Label57: TLabel; Label59: TLabel; Label61: TLabel; Label63: TLabel; Label113: TLabel;

Label58: TLabel; Label60: TLabel; Label62: TLabel; Label64: TLabel; Label109: TLabel;

Label65: TLabel; Label70: TLabel; Label71: TLabel; Label72: TLabel; Label105: TLabel;

Label73: TLabel; Label66: TLabel; Label67: TLabel; Label75: TLabel; Label104: TLabel;

Label68: TLabel; Label76: TLabel; Label79: TLabel; Label82: TLabel; Label99: TLabel;

Label69: TLabel; Label77: TLabel; Label80: TLabel; Label83: TLabel; Label94: TLabel;

Label74: TLabel; Label78: TLabel; Label81: TLabel; Label89: TLabel; Label88: TLabel;

Label84: TLabel; Label90: TLabel; Label95: TLabel; Label100: TLabel; Label103: TLabel;

Label85: TLabel; Label91: TLabel; Label96: TLabel; Label101: TLabel; Label98: TLabel;

Label86: TLabel; Label92: TLabel; Label97: TLabel; Label102: TLabel; Label93: TLabel;

Label87: TLabel;

Image1: TImage; Image6: TImage; Image5: TImage; Image10: TImage;

Image2: TImage; Image7: TImage; Image9: TImage; Image12: TImage;

Image3: TImage; Image8: TImage; Image4: TImage; Image11: TImage;

Memo1: TMemo; Memo3: TMemo;

Memo2: TMemo; Memo5: TMemo;

Edit1: TEdit; Edit16: TEdit; Edit23: TEdit; Edit34: TEdit; Edit49: TEdit;

Edit2: TEdit; Edit17: TEdit; Edit24: TEdit; Edit35: TEdit; Edit48: TEdit;

Edit5: TEdit; Edit18: TEdit; Edit25: TEdit; Edit36: TEdit; Edit47: TEdit;

Edit6: TEdit; Edit4: TEdit; Edit26: TEdit; Edit37: TEdit; Edit46: TEdit;

Edit7: TEdit; Edit3: TEdit; Edit27: TEdit; Edit38: TEdit; Edit45: TEdit;

Edit8: TEdit; Edit14: TEdit; Edit28: TEdit; Edit39: TEdit; Edit44: TEdit;

Edit9: TEdit; Edit15: TEdit; Edit29: TEdit; Edit40: TEdit; Edit54: TEdit;

Edit10: TEdit; Edit19: TEdit; Edit30: TEdit; Edit41: TEdit; Edit56: TEdit;

Edit11: TEdit; Edit20: TEdit; Edit31: TEdit; Edit42: TEdit; Edit55: TEdit;

Edit12: TEdit; Edit21: TEdit; Edit32: TEdit; Edit43: TEdit; Edit33: TEdit;

Edit13: TEdit; Edit22: TEdit;

Timer1: TTimer; Bevel1: TBevel;

Timer2: TTimer; Bevel2: TBevel;

ScrollBar1: TScrollBar; PaintBox1: TPaintBox;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

StringGrid3: TStringGrid;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

procedureFormCreate(Sender: TObject); procedure Button51Click(Sender: TObject);

procedure N5Click(Sender: TObject); procedure PageControl2Change(Sender: TObject);

procedure N6Click(Sender: TObject); procedure PageControl1Change(Sender: TObject);

procedure N11Click(Sender: TObject); procedure Button49Click(Sender: TObject);

procedure N31Click(Sender: TObject); procedure Button48Click(Sender: TObject);

procedure N41Click(Sender: TObject); procedure FormActivate(Sender: TObject);

procedure N51Click(Sender: TObject); procedure Button47Click(Sender: TObject);

procedure N61Click(Sender: TObject); procedure Button46Click(Sender: TObject);

procedure N21Click(Sender: TObject); procedure Button45Click(Sender: TObject);

procedure Button1Click(Sender: TObject); procedure Button44Click(Sender: TObject);

procedure N12Click(Sender: TObject); procedure Button41Click(Sender: TObject);

procedure Button2Click(Sender: TObject); procedure StringGrid2Click(Sender: TObject);

procedure N22Click(Sender: TObject); procedure Button43Click(Sender: TObject);

procedure Button3Click(Sender: TObject); procedure Button42Click(Sender: TObject);

procedure Button6Click(Sender: TObject); procedure Button40Click(Sender: TObject);

procedure Button4Click(Sender: TObject); procedure Button39Click(Sender: TObject);

procedure N23Click(Sender: TObject); procedure Button38Click(Sender: TObject);

procedure Button7Click(Sender: TObject); procedure Button36Click(Sender: TObject);

procedure Button5Click(Sender: TObject); procedure Button35Click(Sender: TObject);

procedure Button9Click(Sender: TObject); procedure Button34Click(Sender: TObject);

procedure N24Click(Sender: TObject); procedure Button37Click(Sender: TObject);

procedure N52Click(Sender: TObject); procedure Button31Click(Sender: TObject);

procedure N62Click(Sender: TObject); procedure Button33Click(Sender: TObject);

procedure Button8Click(Sender: TObject); procedure Button32Click(Sender: TObject);

procedure Button16Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject);

procedure Button14Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject);

procedure Button17Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject);

procedure Button13Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject);

procedure Button11Click(Sender: TObject); procedure Button30Click(Sender: TObject);

procedure Button15Click(Sender: TObject); procedure Button29Click(Sender: TObject);

procedure Button12Click(Sender: TObject); procedure Button28Click(Sender: TObject);

procedure Button10Click(Sender: TObject); procedure ScrollBar1Change(Sender: TObject);

procedure Button18Click(Sender: TObject); procedure Button27Click(Sender: TObject);

procedure Button21Click(Sender: TObject); procedure Timer2Timer(Sender: TObject);

procedure Button19Click(Sender: TObject); procedure Timer1Timer(Sender: TObject);

procedure N8Click(Sender: TObject); procedure Button26Click(Sender: TObject);

procedure N9Click(Sender: TObject); procedure Button25Click(Sender: TObject);

procedure Button22Click(Sender: TObject); procedure Button24Click(Sender: TObject);

procedure Button20Click(Sender: TObject); procedure Button23Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

{ описаниеглобальныхпеременных }

VarKs,KSim:integer; // Ks-кол-вослов KSim-кол-восимволов

Mas:array [1..1000000,1..91] of string; // Массив 5-гозадания

MasEx2:array [1..9999] of integer; // Massive Exercise 2 - Массивупражнения 2

M2:array [1..999, 1..999] of integer; // Массив 3-гозадания

PBA,PBB,PBDx,PBmx,PBmy,PBx,PBy:real;

PBx0,PBy0,PBH:integer;

xmin, xmax, ymin, ymax : real; // математические (декартовы) координаты

RazX,RazY:integer; // переменные для размеров PaintBox’a

Implementation

{$R *.dfm}

{=== Функции перевода координат из декартовой системы в экранную =====}

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

FUNCTION Xs( x : real ) : integer;

BEGIN

Xs := round( RazX * (x-xmin)/(xmax-xmin) );

END;

FUNCTION Ys( y : real ) : integer;

BEGIN

Ys := round( RazY * (1-(y-ymin)/(ymax-ymin)) );

END;

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

{=== Процедура перевода фокуса на выбранную ячейку ==================}

procedureSetGridFocus(SGrid: TStringGrid; r, c: integer);

var

SRect: TGridRect;

begin

withSGrid do

begin

SetFocus;

Row := r;

Col := c;

SRect.Top := r;

SRect.Left := c;

SRect.Bottom := r;

SRect.Right := c;

Selection :=SRect;

end;

{=== Процедура сохранения данных в текстовый фаил ===================}

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

procedureSaveStringGrid(StringGrid: TStringGrid; constFileName: TFileName);

var f:TextFile;

i, k:Integer;

begin

AssignFile(f, FileName);

Rewrite(f);

withStringGriddo

begin

// Читаем номер колонки и столбца

Writeln(f, ColCount);

Writeln(f, RowCount);

// цикл по ячейкам

for i := 0 to ColCount - 1 do

for k := 0 to RowCount - 1 do

Writeln(F, Cells[i, k]);

end;

CloseFile(F);

end;

{=== Процедура загрузки данных из текстового фаила =====================}

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

procedureLoadStringGrid(StringGrid: TStringGrid; constFileName: TFileName);

var f:TextFile;

iTmp, i, k:Integer;

strTemp:String;

begin

AssignFile(f, FileName);

Reset(f);

withStringGrid do

begin

// Получаемколичествоколонок

Readln(f, iTmp);

ColCount:= iTmp;

// Получаем количество колонок строк

Readln(f, iTmp);

RowCount:=iTmp;

// Цикл по ячейкам и заполнению значений

for i := 0 to ColCount - 1 do

for k := 0 to RowCount - 1 do

begin

Readln(f, strTemp);

Cells[i, k] := strTemp;

end;

CloseFile(f);

end;

{=== Процедура отрисовки осей и фона =================================}

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

procedure OSI;

begin

with form1.PaintBox1,canvas do

begin

PBx0:=width div 2;

PBy0:=height div 2;

brush.Color:=clwhite;

rectangle(0,0,width,height);

pen.Color:=clblack;

pen.style:=pssolid;

moveto(PBx0,0); lineto(PBx0,height);

moveto(0,PBy0); lineto(width,PBy0);

end;

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

procedure TForm1.FormCreate(Sender: TObject);

vari,j:integer;

begin

PageControl1.ActivePage:=TabSheet1;

StringGrid2.Cells[0,0]:='Фамилия';

StringGrid2.Cells[1,0]:='Имя';

StringGrid2.Cells[2,0]:='Отчество';

StringGrid2.Cells[3,0]:='Пол';

StringGrid2.Cells[4,0]:='Возраст';

StringGrid2.Cells[5,0]:='Ищет (пол)';

StringGrid2.Cells[6,0]:='Сколькилет';

StringGrid2.Cells[7,0]:='Сцелью';

StringGrid3.Cells[0,0]:=' t';

StringGrid3.Cells[1,0]:=' X=R*Cos(t)';

StringGrid3.Cells[2,0]:=' Y=R*Sin(t)';

KSim:=0;

Form1.Width:=598; Form1.Height:=484;

PageControl1.Top:=0; PageControl1.Height:=409;

PageControl1.Left:=0; PageControl1.Width:=595;

Panel1.Visible:=False; Panel4.Visible:=False;

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

Panel3.Visible:=False; Panel6.Visible:=False;

Panel1.Top:=0; Panel2.Top:=0; Panel3.Top:=0;

Panel1.Left:=0; Panel2.Left:=0; Panel3.Left:=0;

Panel1.Height:=409; Panel2.Height:=409; Panel3.Height:=409;

Panel1.Width:=595; Panel2.Width:=595; Panel3.Width:=595;

Panel4.Top:=0; Panel5.Top:=0; Panel6.Top:=0;

Panel4.Left:=0; Panel5.Left:=0; Panel6.Left:=0;

Panel4.Height:=409; Panel5.Height:=409; Panel6.Height:=409;

Panel4.Width:=595; Panel5.Width:=595; Panel6.Width:=595;

{=== Созданиетаблицы ===============================================}

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 begin

StringGrid1.Cells[0,i+4]:=' '+IntToStr(i);

// StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[5,5);

end;

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

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet1;

PageControl1.Visible:=True;

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

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

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

Form1.Height:=484;

N8.Visible:=False;

N9.Visible:=False;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

PageControl1.Visible:=true;

PageControl1.ActivePage:=TabSheet2;

PageControl2.ActivePage:=TabSheet8;

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

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

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

N8.Visible:=True;

N9.Visible:=True;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

PageControl1.Visible:=true;

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

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

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

PageControl1.ActivePage:=TabSheet4;

PageControl2.ActivePage:=TabSheet10;

N8.Visible:=True;

N9.Visible:=True;

end;

procedure TForm1.N41Click(Sender: TObject);

begin

PageControl1.Visible:=true;

Panel1.Visible:=false;

Panel2.Visible:=False;

Panel3.Visible:=False;

PageControl1.ActivePage:=TabSheet5;

PageControl2.ActivePage:=TabSheet11;

N8.Visible:=True;

N9.Visible:=True;

end;

procedure TForm1.N51Click(Sender: TObject);

begin

PageControl1.Visible:=true;

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

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

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

PageControl1.ActivePage:=TabSheet6;

PageControl2.ActivePage:=TabSheet12;

N8.Visible:=True;

N9.Visible:=True;

end;

procedure TForm1.N61Click(Sender: TObject);

begin

PageControl1.Visible:=true;

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

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

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

PageControl1.ActivePage:=TabSheet7;

PageControl2.ActivePage:=TabSheet13;

N8.Visible:=True;

N9.Visible:=True;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

PageControl1.Visible:=true;

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

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

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

PageControl1.ActivePage:=TabSheet3;

PageControl2.ActivePage:=TabSheet9;

N8.Visible:=True;

N9.Visible:=True;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Panel1.Visible:=true;

PageControl1.Visible:=false;

N8.Visible:=false;

N9.Visible:=false;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

PageControl1.Visible:=False;

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

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

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

Form1.Height:=484;

N8.Visible:=false;

N9.Visible:=false;

end;

procedure TForm1.Button2Click(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:=TabSheet2;

PageControl2.ActivePage:=TabSheet8;

N8.Visible:=true;

N9.Visible:=true;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

PageControl1.Visible:=False;

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

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

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

Form1.Height:=484;

N8.Visible:=false;

N9.Visible:=false;

end;

procedure TForm1.Button3Click(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.Button6Click(Sender: TObject);

begin

PageControl1.Visible:=false;

Panel1.Visible:=true; Panel4.Visible:=False;

Panel2.Visible:=false; Panel6.Visible:=False;

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

N8.Visible:=false;

N9.Visible:=false;

end;

procedure TForm1.Button4Click(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:=TabSheet3;

PageControl2.ActivePage:=TabSheet9;

N8.Visible:=true;

N9.Visible:=true;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

PageControl1.Visible:=False;

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:=TabSheet4;

PageControl2.ActivePage:=TabSheet10;

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:=TabSheet5;

PageControl2.ActivePage:=TabSheet11;

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:=TabSheet6;

PageControl2.ActivePage:=TabSheet12;

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:=TabSheet7;

PageControl2.ActivePage:=TabSheet13;

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.Lines.Count); // Выводкол-вастроквтексте

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+#10// Вводит в RichEdit готовую строку и переводит курсор ниже

Else // иначе вводит в RichEdit строку без перехода на следующую строку

Memo2.Lines[i-1]:=LinesX; // Вводит в RichEdit готовую строку

Edit4.Text:=LinesX; // Вывод собранной строки в тестовое окно

DLinX:=Length(S); // Подсчет длины готовой строки

Edit3.Text:=inttostr(DLinX); // Вывод длины собранной строки

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);

Vari,j,A,B,n,m:integer;

begin

Randomize;

A:=Random(999)-999; n:=Random(998)+1;

B:=Random(999); m:=Random(998)+1;

Edit32.Text:=IntToStr(A); Edit30.Text:=IntToStr(n);

Edit33.Text:=IntToStr(B); Edit31.Text:=IntToStr(m);

Edit36.Text:=IntToStr(A); Edit34.Text:=IntToStr(n);

Edit37.Text:=IntToStr(B); Edit35.Text:=IntToStr(m);

for i:=1 to n do

for j:=1 to m do

M2[i,j]:=A+Random((B+1)-A);

Button37.Click;

Button31.Enabled:=False;

Button32.Enabled:=False;

end;

procedure TForm1.Button33Click(Sender: TObject);

varn,m,i,j:integer;

begin

n:=0;

m:=0;

{=== Если массив заполнен и задан элемент, который нужно показать ===}

if (edit32.Text<>'') and (edit54.Text<>'') and (edit55.Text<>'') then begin

n:=StrToInt(Edit54.Text);

m:=StrToInt(Edit55.Text);

end;

{=== Если запрашивается элемент > 0 и < границ массива ==============}

if (n>0) and (n<StrToInt(Edit34.Text)+1) and (m>0) and (m<StrToInt(Edit35.Text)+1) then begin

Edit56.Text:=IntToStr(M2[n,m]);

j:=StrToInt(Edit55.Text);

i:=StrToInt(Edit54.Text)+4;

SetGridFocus(StringGrid1, i, j );

end else

Edit56.Text:='';

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

end;

procedure TForm1.Button31Click(Sender: TObject);

vari,j,A,B,n,m:integer;

Code:integer;

begin

Randomize;

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

Val(Edit30.Text,n,code);

if (code<>0) then begin

Edit30.Text:='';

end

else begin

n:=strtoint(Edit30.Text);

Edit34.Text:=inttostr(N);

end;

Val(Edit31.Text,m,code);

if (code<>0) then begin

Edit31.Text:='';

end

else begin

m:=strtoint(Edit31.Text);

Edit35.Text:=inttostr(m);

end;

Val(Edit32.Text,A,code);

if (code<>0) then begin

Edit32.Text:='';

end

else begin

A:=strtoint(Edit32.Text);

Edit36.Text:=inttostr(A);

end;

Val(Edit33.Text,B,code);

if (code<>0) then begin

Edit33.Text:='';

end

else begin

B:=strtoint(Edit33.Text);

Edit37.Text:=inttostr(B);

end;

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

if (Edit34.Text<>'') and (Edit35.Text<>'') and (Edit36.Text<>'') and (Edit37.Text<>'')and

(StrToInt(Edit37.Text)>=StrToInt(Edit36.Text)) and (StrToInt(Edit34.Text)>0) and (StrToInt(Edit35.Text)>0)then begin

for i:=1 to n do

for j:=1 to m do M2[i,j]:=A+Random((B+1)-A);

Button37.Click;

end

else begin

Edit30.Text:=''; Edit31.Text:=''; Edit34.Text:=''; Edit36.Text:='';

Edit32.Text:=''; Edit33.Text:=''; Edit35.Text:=''; Edit37.Text:='';

for i:=1 to 4 do

for j:=1 to 4 do

Edit54.Text:=''; Edit55.Text:=''; Edit56.Text:='';

Label102.Visible:=true;

Timer2.Enabled:=True;

end;

if (Edit34.Text<>'') then begin

Button37.Click;

Button31.Enabled:=False;

Button32.Enabled:=False;

end;

procedure TForm1.Button37Click(Sender: TObject);

Var i,j,A,B,n,m,M2i,M2j:integer;

sum:longint;

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;

StringGrid1.Cells[j,0]:=IntToStr(sum);

end;

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

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;

StringGrid1.Cells[j,1]:=IntToStr(sum);

end;

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

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;

StringGrid1.Cells[j,2]:=IntToStr(sum);

end;

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

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;

StringGrid1.Cells[j,3]:=IntToStr(sum);

end;

{=== Заполнение заглавных ячеек таблицы =============================}

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:=n+5;

StringGrid1.ColCount:=m+1;

{=== Нумерация колонок и строк ======================================}

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

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

{=== Заполнение таблицы массивом ====================================}

M2i:=0;

M2j:=0;

For i:=5 to n+5 do begin

M2i:=M2i+1;

m2j:=1;

for j:=1 to m+1 do begin

StringGrid1.Cells[j,i]:=IntToStr(M2[M2i,M2j]);

M2j:=M2j+1;

end;

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

end;

procedure TForm1.Button34Click(Sender: TObject);

begin

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

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

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

PageControl1.Visible:=False;

end;

procedure TForm1.Button35Click(Sender: TObject);

vark,n,code:integer;

A,E,S:Extended;

begin

if (copy(Edit38.Text,1,1)='0') and (StrToInt(copy(Edit38.Text,3,1))<6) then begin

E:=StrToFloat(Edit38.Text);

k:=1;

A:=1/2;

s:=0;

{-->}while (abs(A)>=E) do begin

A:=1/((2*k-1)*(2*k+1));

k:=k+1;

s:=s+A;

memo3.Lines[k-2]:=IntToStr(k-1)+' '+FloatToStr(A)+#13+#10;

memo5.Lines[k-2]:=IntToStr(k-1)+' '+FloatToStr(s)+#13+#10;

{-->}end;

Edit39.Text:=IntToStr(k-1);

end else

Edit38.Text:='';

end;

procedure TForm1.Button36Click(Sender: TObject);

begin

memo3.Text:='';

memo5.Text:='';

memo3.Lines[0]:='Шаг / Значение А на шаге i';

memo5.Lines[0]:='Шаг / Значение S на шаге i';

Edit39.Text:='';

Edit38.Text:='0,0001';

end;

procedure TForm1.Button38Click(Sender: TObject);

var s:string;

n:double;

begin

{--- Проверка ввода в окно "Введите E" -------------------------------}

s:=Edit38.Text;

ifTryStrToFloat(s, n) then

begin

if (StrToFloat(s)>0) and (StrToFloat(s)<0.6) then button35.Click

else Edit38.Text:='';

end

else Edit38.Text:='';

{------------------------------------------------------------------}

end;

procedure TForm1.Button39Click(Sender: TObject);

begin

Panel1.Visible:=false; Panel6.Visible:=true;

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

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

PageControl1.Visible:=False;

end;

procedure TForm1.Button40Click(Sender: TObject);

Vari,j,n,k:integer;

s:string;

begin

k:=0;

for i:=0 to 7 do begin

for j:=1 to 8 do begin

k:=0;

k:=length(StringGrid2.Cells[i,j]);

if (k>15) then begin

Label107.Visible:=true;

Edit41.Text:=IntToStr(i+1);

Edit42.Text:=IntToStr(j);

end;

if (Label107.Visible=False) then

button43.Click;

end;

procedure TForm1.Button42Click(Sender: TObject);

begin

Label107.Visible:=False;

Edit40.Text:='';

Edit41.Text:='';

Edit42.Text:='';

end;

procedure TForm1.Button43Click(Sender: TObject);

vark,i,j,d:integer;

s:string;

begin

Edit40.Text:='Всевведеноверно';

// Сохраняем по выбранному пути

ifsavedialog1.Executethen

SaveStringGrid(StringGrid2, savedialog1.FileName);

end;

procedure TForm1.StringGrid2Click(Sender: TObject);

begin

Label107.Visible:=False;

Edit40.Text:='';

Edit41.Text:='';

Edit42.Text:='';

end;

procedure TForm1.Button41Click(Sender: TObject);

begin

// Открываем по выбранному пути

if opendialog1.Execute then

LoadStringGrid(StringGrid2, opendialog1.FileName);

end;

procedure TForm1.Button44Click(Sender: TObject);

begin

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

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

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

PageControl1.Visible:=False;

end;

procedure TForm1.Button45Click(Sender: TObject);

var t0,t0code,tn,tncode,a,acode,M:integer;

s:string;

h:double;

begin

M:=0; // Накапливаемая метка - правильно ли введены данные

Val(Edit43.Text,t0,t0code);

if (t0code<>0) then Edit43.Text:='' else

if (t0<0) then Edit43.Text:='' else M:=M+1;

Val(Edit44.Text,tn,tncode);

if (tncode<>0) then Edit44.Text:='' else

if (tn<0) then Edit44.Text:='' else M:=M+1;

if (t0 >= tn) then Edit43.Text:='' else M:=M+1;

Val(Edit46.Text,a,acode);

if (a<=0) then Edit46.Text:='' else M:=M+1;

{--- Проверка ввода в окно "Шаг (h)" -------------------------------}

s:=Edit45.Text;

ifTryStrToFloat(s, h) then

begin

Edit48.Text:='Введеноверно';

if (StrToFloat(s)>0) then M:=M+1;

end

else Edit48.Text:='Ошибкаввода';

{------------------------------------------------------------------}

Edit47.Text:=inttostr(M);

if (M=5) then button47.Click;

end;

procedure TForm1.Button46Click(Sender: TObject);

vari,j:integer;

begin

Edit43.Text:='0';

Edit44.Text:='50';

Edit45.Text:='0,007';

Edit46.Text:='4';

Edit47.Text:='';

Edit48.Text:='';

Edit49.Text:='';

Button48.Enabled:=False;

PaintBox1.Visible:=False;

StringGrid3.Visible:=True;

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

with StringGRid3 do

for i:=0 to RowCount do

for j:=0 to ColCount do

Cells[j, i]:='';

StringGRid3.RowCount:=7;

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

StringGrid3.Cells[0,0]:=' t';

StringGrid3.Cells[1,0]:=' X=R*Cos(t)';

StringGrid3.Cells[2,0]:=' Y=R*Sin(t)';

end;

procedure TForm1.Button47Click(Sender: TObject);

vari,ks,a:integer;

h,tn,R,x,y:real;

tnE:string;

begin

a:=StrToInt(Edit46.Text); // a - значениедлявычислениярадиуса

h:=StrToFloat(Edit45.Text); // h - шаг

tnE:=Edit43.Text; // t начальная Edit (т.е. не число)

tn:=StrToFloat(Edit43.Text); // t на n-омшаге - число

i:=1; // для записывания в i-ую строку таблицы

ks:=2; // для приращивания кол-ва строк таблицы

// крутить пока не достигнет tk (tk - см. условие задачи)

while (tn<=StrToInt(Edit44.Text)) do begin

StringGrid3.Cells[0,i]:=tnE; // в i-уюстрокузаписатьtnE

R:=a*StrToFloat(tnE)/2; // находим R - по формуле задания

x:=R*Cos(StrToFloat(tnE)); // находим x - по формуле задания

y:=R*Sin(StrToFloat(tnE)); // находим y - по формуле задания

StringGrid3.Cells[1,i]:=FloatToStr(x); // в i-уюстрокузаписать x

StringGrid3.Cells[2,i]:=FloatToStr(y); // в i-уюстрокузаписать y

i:=i+1; // увеличиваем i на 1

tnE:=FloatToStr(StrToFloat(tnE)+h); // Изменяем tnE с учетом шага

StringGrid3.RowCount:=ks; // задаем кол-во строк в таблице

ks:=ks+1; // увеличиваем переменную кол-ва строк

tn:=tn+h; // изменяем t n-ое на заданный шаг

end;

Button48.Enabled:=True;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

paintbox1.refresh;

OSI;

end;

procedure TForm1.Button48Click(Sender: TObject);

begin

if (Button48.Caption='Показатьграфик') then

begin

StringGrid3.Visible:=false;

PaintBox1.Visible:=true;

Button48.Caption:='Показатьтаблицу';

paintbox1.refresh;

OSI;

Button49.Click;

end else

begin

StringGrid3.Visible:=true;

PaintBox1.Visible:=false;

Button48.Caption:='Показатьграфик';

end;

procedure TForm1.Button49Click(Sender: TObject);

varks,i:integer;

Xt,Yt:real;

begin

RazX:=PaintBox1.Width;

RazY:=PaintBox1.Height;

Xmin:=0-(PaintBox1.Width div 2);

Xmax:=PaintBox1.Width div 2;

Ymin:=0-(PaintBox1.Height div 2);

Ymax:=PaintBox1.Height div 2;

ks:=0;

ks:=StringGrid3.RowCount-1;

Edit49.Text:=IntToStr(ks);

with form1.PaintBox1,canvas do begin

for i:=1 to ks do begin

Xt:=StrToFloat(StringGrid3.Cells[1,i]);

Yt:=StrToFloat(StringGrid3.Cells[2,i]);

Canvas.Pixels[Xs(Xt), Ys(Yt)]:=clRed;

end;

PaintBox1.Canvas.TextOut(10, 10, 'Функция "Спираль"');

PaintBox1.Canvas.TextOut(Xs(0),Ys(0),'0'); // подписываемначалокоординат

PaintBox1.Canvas.TextOut(PaintBox1.Width-10,Ys(-1),'x'); // подписываем y

PaintBox1.Canvas.TextOut((PaintBox1.Width div 2)-10, 5,'y'); // подписываем x

// рисуем стрелку вправо

MoveTo(PaintBox1.Width, PaintBox1.Height div 2);

PaintBox1.Canvas.LineTo(PaintBox1.Width-10, (PaintBox1.Height div 2)-4);

MoveTo(PaintBox1.Width, PaintBox1.Height div 2);

PaintBox1.Canvas.LineTo(PaintBox1.Width-10, (PaintBox1.Height div 2)+4);

// рисуем стрелку вверх

MoveTo(PaintBox1.Width div 2, 0);

PaintBox1.Canvas.LineTo((PaintBox1.Width div 2)-4, 10);

MoveTo(PaintBox1.Width div 2, 0);

PaintBox1.Canvas.LineTo((PaintBox1.Width div 2)+4, 10);

end;

procedure TForm1.PageControl1Change(Sender: TObject);

begin

if PageControl1.ActivePage=TabSheet1 then

begin

Form1.Height:=484;

N8.Visible:=False;

N9.Visible:=False;

end;

if PageControl1.ActivePage=TabSheet2 then

begin

PageControl2.ActivePage:=TabSheet8;

N8.Visible:=true;

N9.Visible:=true;

end;

if PageControl1.ActivePage=TabSheet3 then

begin

PageControl2.ActivePage:=TabSheet9;

N8.Visible:=true;

N9.Visible:=true;

end;

if PageControl1.ActivePage=TabSheet4 then

begin

PageControl2.ActivePage:=TabSheet10;

N8.Visible:=true;

N9.Visible:=true;

end;

if PageControl1.ActivePage=TabSheet5 then

begin

PageControl2.ActivePage:=TabSheet11;

N8.Visible:=true;

N9.Visible:=true;

end;

if PageControl1.ActivePage=TabSheet6 then

begin

PageControl2.ActivePage:=TabSheet12;

N8.Visible:=true;

N9.Visible:=true;

end;

if PageControl1.ActivePage=TabSheet7 then

begin

PageControl2.ActivePage:=TabSheet13;

N8.Visible:=true;

N9.Visible:=true;

end;

procedure TForm1.PageControl2Change(Sender: TObject);

begin

if PageControl2.ActivePage=TabSheet8 then

PageControl1.ActivePage:=TabSheet2;

if PageControl2.ActivePage=TabSheet9 then

PageControl1.ActivePage:=TabSheet3;

if PageControl2.ActivePage=TabSheet10 then

PageControl1.ActivePage:=TabSheet4;

if PageControl2.ActivePage=TabSheet11 then

PageControl1.ActivePage:=TabSheet5;

if PageControl2.ActivePage=TabSheet12 then

PageControl1.ActivePage:=TabSheet6;

if PageControl2.ActivePage=TabSheet13 then

PageControl1.ActivePage:=TabSheet7;

end;

procedure TForm1.Button51Click(Sender: TObject);

begin

n8.Visible:=false;

n9.Visible:=false;

end;

end.

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

Задача 1.

В программу вводится число Е.

После нажатия на кнопку «вычислить»

программа выводит все члены ряда

и количество итераций.

В разделе программы

«техническая информация…»

отслеживается сумма на

соответствующем шаге.

Задача 2.

Ввод данных можно осуществить как автоматически, так и вручную.

Предусмотрена проверка на правильность введенных данных вручную.

После заполнения программа подсчитывает, чему равно значение выражения.

В «технической информации» можно отследить отдельно сумму квадратов и квадрат суммы.

Также можно увидеть последнее число в массиве, или увидеть любой элемент массива по запросу.

Задача 3.

Параметры задаются вручную или

Автоматически случайным образом.

В первый 4-х строках таблицы

подсчитываются значения

соответственного столбца.

При заполнении автоматически

следует учитывать, что возможный

диапазон включает все целые трехзначные

числа. И в связи с этим возможна задержка

в работе программы. Это зависит от

быстродействия вашего компьютера.

Также в «технической информации»

можно получить любой элемент массива

по запросу его координат.

Задача 4.

При вводе текста и нажатии «удалить все гласные буквы из текста» происходит удаление гласных букв текста. Причем предусмотрена возможность переключения к исходному тексту и обратно для сравнения.

Программа выводит количество удаленных гласных. В ««технической информации» можно отследить количество строк в тексте, длину последней строки и начало заполнения массива буквами текста, в котором происходит проверка букв.

Задача 5.

Вводятся начальные данные, на основании которых вычисляются X, Y. Полученные результаты сводятся в таблицу, по которой по нажатии на кнопку «показать график» строится график функции.

В программе предусмотрена возможность переключения между графиком и таблицей, а так же сброс данных в состояние по умолчанию. Как и во всей программе – в разделе «технической информации» можно увидеть дополнительные данные.

Задача 6.

Открывается файл базы данных «службы знакомств» или заполняется чистая таблица. После чего ее можно сохранить в файл базы. Предусмотрена проверка и ограничение на ввод в ячейку до 15 символов.

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

Прим.: Литература не использовалась. Используемые сайты и форумы при подготовке и выполнении:

1. Строковые функции Delphi	http://na-start.narod.ru/material/delphi03.htm
2. Знакомство с компонентами Delphi	http://www.rtfm.4hack.com/books.php?id1=2&id2=4&id3=5
3. Портал программистов	http://shelek.su/index.php?site=forum.shelek.ru&page=board&id=7
4. Ветка форума по работе с функцией TryStrToFloat	http://www.sql.ru/forum/actualthread.aspx?tid=716083
5. Определитель 16-и ричного цвета	http://calc-all.narod.ru/color/index.html
6. Отображение графической информации	http://www.oplk.narod.ru/Delphi/Books/Delphi_2.0/11/Graf.html
7. Двумерные массивы	http://borlpasc.narod.ru/docym/prac/dvymerni.htm
8. Примеры задач с двумерным массивом	http://www.pascal7.ru/index.php?option=com_content&view=category&layout=blog&id=29&Itemid=30
9. Массив из элементов и как с ним работать	http://www.delphimaster.ru/articles/comparray.html
10. Построение графиков функций	http://www.yotx.ru/Default.aspx
11. Работа с графической системой координат	http://physics.herzen.spb.ru/library/03/01/pp/Advices/graph.htm
12. Типы данных Delphi	http://www.interface.ru/home.asp?artId=2561

Не сдавайте скачаную работу преподавателю!

Данный реферат Вы можете использовать для подготовки курсовых проектов.

Доработать Узнать цену написания по вашей теме

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Заказать работу:

!	Курсовая работа
!	Дипломная работа
!	Реферат
!	Решение задач
!	Отчет по практике
!	Контрольная работа

Пишем реферат самостоятельно:

!	Как писать рефераты Практические рекомендации по написанию студенческих рефератов.
!	План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
!	Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
!	Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
!	Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:

→	Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Другие популярные рефераты:

Реферат	Механические волны
Реферат	Обратная матрица
Реферат	Инверсия и ее применение
Реферат	Социокультурная динамика межпоколенных взаимодействий
Реферат	Расследование преступлений в сфере компьютерной информации
Реферат	Туристско-краеведческая характеристика Калининградской области
Реферат	Организация административно-хозяйственной службы гостиницы
Реферат	Диагностика психологической готовности ребенка к школе 2
Реферат	Модель современного менеджера
Реферат	Условия формирования военно-административной системы Южного Зауралья в XVII - первой половине XIX века

Сейчас смотрят :

Реферат	White Demons Essay Research Paper White DemonsMy
Реферат	Анализ предприятий туристической индустрии в России, на примере отеля Балчуг-Кемпинский
Реферат	Федеральные округа России
Реферат	A Dissertation On The Wife Of Bath
Реферат	Strengths In The Weight Bearing Ankles Of
Реферат	Роман Анны Зегерс "Седьмой крест"
Реферат	Определение термодинамических параметров реакции полимеризации тетрафторэтилена
Реферат	The Characteristics Affecting The Flow Of A
Реферат	Пошкодження з позиції патології
Реферат	Збори за забруднення навколишнього природного середовища
Реферат	Oedipus Essay Research Paper Sophocles wrote both
Реферат	World Politics In Cinema Essay Research Paper
Реферат	Сперанский М.М.
Реферат	Beowulf An Epic Hero Of Epic Proportions
Реферат	Go Fish And Lesbianism Essay Research Paper

Реферат по предмету "Информатика"

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

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

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

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

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

Другие популярные рефераты:

Сейчас смотрят :