7. Сортировка одномерного массива методом пузырьков.

procedure TForm1.Button3Click(Sender: TObject);

var i,j,t:integer;

begin

for i:=1 to n do

for j:=n downto i do

if x[j-1]>x[j] then

begin t:=x[j-1];x[j-1]:=x[j];x[j]:=t; end;

for i:=0 to n do

stringgrid1.Cells[i,0]:=inttostr(x[i]);

end;

7. Сортировка одномерного массива методом выбора.

procedure TForm1.Button2Click(Sender: TObject);

var

i,j,min,t:integer;

begin

for i:=0 to n-1 do

begin

min:=i;

for j:=i+1 to n do

if x[j]<x[min] then

min:=j;

t:=x[min]; x[min]:=x[i]; x[i]:=t;

end;

for i:=0 to n do

stringgrid1.Cells[i,0]:=inttostr(x[i]);

end;

7. Двумерные массивы в среде Delphi. Описание. Транспонирование матрицы без дополнительных массивов.

a:array[1..10,1..10]of integer;

implementation

const n=4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

for i:=1 to n do

for j:=1 to n do

begin

a[i,j]:=random(15);

stringgrid1.Cells[j,i]:=inttostr(a[i,j]);

транспонирование

procedure TForm1.Button2Click(Sender: TObject);

var i,j:byte; s:integer;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

begin

s:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=s;

end;

for i:=1 to n do

for j:=1 to n do

stringgrid1.Cells[j,i]:=inttostr(a[i,j]);

end;

7. Двумерные массивы в среде Delphi. Перестановка строк. Вставка строки в матрицу.

Вставка строки

procedure TForm1.Button2Click(Sender: TObject);

var i,j,k:byte;

begin

k:=strtoint(edit1.Text);

for i:=1 to n do

b[i]:=1;

for i:=n downto k do

for j:=1 to n do

a[i+1,j]:=a[i,j];

for j:=1 to n do

a[k,j]:=b[j];

stringgrid1.rowCount:=n+2;

for i:=1 to n+1 do

for j:=1 to n do

stringgrid1.Cells[j,i]:=inttostr(a[i,j]);

end;

перестановка

var  I:Integer;  S:String; begin  with StringGrid do  for I:=0 to RowCount-1 do   begin S:=Cells[1,I];

  Cells[1,I]:=Cells[2,I];  Cells[2,I]:=S    end

7. Различные способы создания простейших графических образов в среде Delphi , вывод готовых фигур, рисунков. Примеры движения фигур по горизонтали, по вертикали, по окружности.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=vk_left then image1.Left:=image1.Left-5;

if key=vk_right then image1.Left:=image1.Left+5;

if key=vk_up then image1.top:=image1.top-5;

if key=vk_down then image1.top:=image1.top+5;

end;

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

Базовый тип данных (т.е. то на чем основываются все остальные текстовые типы данных) - Char. Переменная типа Char может хранить всего один символ, один из набора 256 символов. Каждый символ имеет свой код. На самом-то деле компьютер оперирует не символами, (он не знает что это такое) а кодами символов. Например, во время печати символа с определенным кодом он ищет графическое изображение символа в таблице изображений символов за определенным номером, а потом выводит именно это графическое изображение на дисплей. Символы можно сравнивать между собой на равенство и на определение, какой больше или меньше, тогда компьютер опять же сравнивает не сами символы, а их коды.

Переменная типа String представляет собой последовательность символов - строку. Мы можем определять длину строки, можем добавлять к строке другие строки и символы, можем заменять произвольные части строки на другие строки и символы, можем удалять части строки.

Пример объявления переменной типа String:

program StringDemo1; // название программы

{$APPTYPE CONSOLE} // инструкция компилятору генерировать консольное приложение

var // секция объявления переменных

A:String; // объявляем переменную A типа String

begin // начало тела программы

A:='Hello world!'; // присваиваем переменной A строку 'Hello world!'

WriteLn(A); // выводим содержимое переменной A на экран

ReadLn; // ждем нажатия Enter

end. // конец тела программы

Процедура  Delete(St, poz, n) – удаление n символов строки St, начиная с позиции Poz.

Процедура Insert (S₁, S₂, Poz) – вставка строки S₁ в строку S₂, начиная с позиции Poz.

Процедура Str(N,St) – преобразование числового значения N в строковый и помещение результата в строку St.

Функция Copy(S, Poz, N) – выделяет из строки S подстроку длиной N символов, начиная с позиции Poz.

Функция Concat(S₁,S2,…,S_n) – выполняет сцепление строк S₁,S2,…,S_n в одну строку.

Функция Length(S) – определяет текущую длину строки S.

Функция Pos(S₁,S₂) – определяет первое появление в строке S₂ подстроки S_1.

procedure TForm2.Button1Click(Sender: TObject);

var S: String;

begin

S:='1234567890';

Insert('000',S,3);

ShowMessage(S)

end;

procedure TForm1.Button1Click(Sender: TObject);

var s,word: string;

begin

s:=Edit1.Text;

word:=Copy(s,1,Pos(' ',s)-1);

ShowMessage('Первое слово: '+word);

end;

program CharDemo2;

var

A:Char;

begin

A:='ZZZ';

WriteLn(A);

end.