Implementation 28

{$R *.dfm} 28

procedure TForm1.Edit1Change(Sender: TObject); 28

Var I:integer; 28

begin 28

m:=strToInt(edit1.Text); 28

StringGrid1.RowCount:=m; 28

StringGrid1.Height:=24*m+15; 28

StringGrid1.Visible:=true; 29

StringGrid2.Top:=StringGrid1.Top+24*m+25; 29

for i:=0 to m-1 do StringGrid1.Cells[0,i]:='0'; 29

end; 29

procedure TForm1.Edit2Change(Sender: TObject); 29

Var I,j:integer; 29

begin 29

n:=strToInt(edit2.Text); 29

StringGrid1.ColCount:=n; 29

StringGrid2.ColCount:=n; 29

StringGrid1.Width:=64*n+10; 29

StringGrid2.Width:=StringGrid1.Width; 29

StringGrid1.Visible:=true; 29

for i:=0 to m-1 do 29

for j:=0 to n-1 do StringGrid1.Cells[j,i]:='0'; 29

end; 29

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 29

begin 29

if not (key in ['0'..'9',#8]) then key:=#0; 29

end; 29

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); 29

begin 29

if not (key in ['0'..'9',#8]) then key:=#0; 29

end; 29

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); 29

begin 29

if not (key in ['0'..'9',#8]) then key:=#0; 29

end; 29

procedure TForm1.Button1Click(Sender: TObject); 29

Var I,j,k:integer; 29

begin 29

for i:=1 to m do 29

for j:=1 to n do 29

a[i,j]:=strToInT(stringgrid1.Cells[j-1,i-1]); 29

for i:=1 to m do b[i]:=0; 30

for j:=1 to n do 30

for i:=1 to m do 30

if a[i,j]=0 then b[i]:=1; 30

k:=0; 30

for i:=1 to n do 30

begin 30

if b[i]=0 then k:=k+1; 30

stringgrid2.Cells[i-1,0]:=InTTostr(b[i]); 30

end; 30

label3.Caption:='Количество ненулевых строк - '+IntToStr(k)+'.'; 30

end; 30

end. 30

4. Разработка тестовых заданий. 30

4.1. Задача 1. 30

4.2. Задача 2. 32

5. Заключение. 33

6. Список используемых источников 34

1. Введение

Язык Паскаль (послуживший основой для написания Delphi), был разработан профессором Н.Виртом в конце 60-х годов специально для обучения программированию студентов. В числе студентов этого выдающегося профессора Цюрихского университета были Ф.Каин и А.Хейлсберг. Каин позднее основал корпорацию Borland. Под руководством этих двух студентов язык Паскаль был превращен в мощное средство разработки программ любой сложности.

В России Borland Delphi появляется в конце 1993 г. и сразу же завоевывает широкую популярность. Новые версии выходят практически каждый год. В них реализуются все новые мастера, компоненты и технологии программирования.

Действительно, процесс разработки в Delphi предельно упрощен. В первую очередь это относится к созданию интерфейса, на который уходит 80% времени разработки программы. Вы просто помещаете нужные компоненты на поверхность Windows-окна (в Delphi оно называется формой) и настраиваете их свойства с помощью специального инструмента (Object Inspector). С его помощью можно связать события этих компонентов (нажатие на кнопку, выбор мышью элемента в списке и т.д.) с кодом его обработки - и вот простое приложение готово. Причем разработчик получает в свое распоряжение мощные средства отладки (вплоть до пошагового выполнения команд процессора), удобную контекстную справочную систему (в том числе и по Microsoft API), средства коллективной работы над проектом, всего просто не перечислить. Вы можете создавать компоненты ActiveX без использования Microsoft IDL, расширять возможности web-сервера (скрипты на стороне сервера), практически ничего не зная об HTML, XML или ASP. Можно создавать распределенные приложения на базе СОМ и CORBA, Интернет- и intranet-приложения, используя для доступа к данным Borland DataBase Engine, ODBC-драйверы или Microsoft ADO. Появившаяся, начиная с Delphi 3, поддержка многозвенной технологии (multi-tiered) доступа к данным позволяет создавать масштабируемые приложения (относительно слабо зависящие от сервера БД) за счет перенесения методов обработки информации (бизнес-правил) на среднее звено.

Таким образом, вы можете использовать Delphi для создания как самых простых приложений, на разработку которых требуется 2-3 часа, так и серьезных корпоративных проектов, предназначенных для работы десятков и сотен пользователей. Причем для этого можно использовать самые последние веяния в мире компьютерных технологий с минимальными затратами времени и сил.