Haru no Yuki |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Haru no Yuki » Delphi » Самый первый проект
type matrix = array [1..10, 1..10] of Double; var i:integer; j:integer; l:integer; b:matrix; c:string; size:integer; count:integer; mass:array [1..100] of string; Form1:TForm1;
Теги: Генерирование массива, обрамление диезами, удаление символа, сортировка
Вывод массива
procedure Show1();
begin
Form1.Memo1.Clear;
size:=100;
for j:=1 to size do
begin
Form1.Memo1.SelText := mass[j]+' ';
end;
end;Обрамление диезами
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear();
Memo1.SelText:='#'+ ' ';
for j:=1 to 100 do
begin
Memo1.SelText:= mass[j] + ' ';
end;
Memo1.SelText:= '#';
end;# 55 38 12 81 44 74 51 58 95 0 35 13 1 15 52 35 30 20 6 93 62 78 73 10 17 17 64 91 53 5 24 47 91 26 94 54 97 70 44 57 21 75 0 16 68 16 56 31 89 18 65 16 60 34 90 88 21 22 9 17 1 7 95 23 24 15 1 36 89 11 31 60 71 85 73 77 68 65 39 21 15 41 9 74 26 45 98 88 28 21 5 31 26 51 59 83 75 67 32 81 #
Удаление символа
procedure TForm1.Button3Click(Sender: TObject);
begin
c := Edit1.Text;
Memo1.Clear;
count:=0;
for j:=1 to size do
begin
l:=j-count;
if mass[l] = c then
begin
for i:=l to size-1 do
begin
mass[i]:=mass[i+1];
end;
size:=size-1;
count:=count+1;
end;
end;
Show1();Число, введенное в Edit1 с клавиатуры
48 77 55 41 45
7554 62 0 46 24 42 67 61 26 24 19 26 54 87 15 95 16 64 52 69 43 86 5 32 35 80 48 30 47 15 58 6 80 40 90 43 43 94 82 15 87 69 34 21 34 40 49 61 47 22 59 88 19 98 59 26 74 32 17 49 14 62 34 73 35 41 93 79 32 68 94 87 29 18 73 55 22 78 60 44 28 46 13 12 55 35 44 1 69 4 15 33 80 7 7
Генерирование массива
procedure TForm1.Button4Click(Sender: TObject);
begin
size:=100;
Memo1.Clear();
randomize;
for j:=1 to size do
begin
mass[j]:= FloatToStr(random(99));
Memo1.SelText := mass[j]+' ';
end;
Memo1.SelText := chr(13);
Memo1.SelText := chr(10);
end;55 38 12 81 44 74 51 58 95 0 35 13 1 15 52 35 30 20 6 93 62 78 73 10 17 17 64 91 53 5 24 47 91 26 94 54 97 70 44 57 21 75 0 16 68 16 56 31 89 18 65 16 60 34 90 88 21 22 9 17 1 7 95 23 24 15 1 36 89 11 31 60 71 85 73 77 68 65 39 21 15 41 9 74 26 45 98 88 28 21 5 31 26 51 59 83 75 67 32 81
Сортировка
procedure TForm1.Button2Click(Sender: TObject);
begin
for j:=1 to size do
begin
for i:=1 to size-1 do
begin
if mass[i]>mass[i+1] then
begin
c:= mass[i];
mass[i]:= mass[i+1];
mass[i+1]:= c;
end;
end;
end;
Show1();
end;от
57 24 87 87 70 94 26 45 47 81 15 83 1 2 4 90 37 3 89 96 57 11 57 0 44 95 43 44 40 21 74 33 60 39 96 53 94 61 10 39 91 4 53 12 31 94 28 64 15 95 39 86 54 59 96 41 24 44 8 36 96 41 48 63 3 5 98 94 60 71 83 41 84 11 46 44 60 63 43 32 34 39 55 64 79 79 31 60 22 23 25 63 31 20 89 12 20 80 31 91
к
0 1 10 11 11 12 12 15 15 2 20 20 21 22 23 24 24 25 26 28 3 3 31 31 31 31 32 33 34 36 37 39 39 39 39 4 4 40 41 41 41 43 43 44 44 44 44 45 46 47 48 5 53 53 54 55 57 57 57 59 60 60 60 60 61 63 63 63 64 64 70 71 74 79 79 8 80 81 83 83 84 86 87 87 89 89 90 91 91 94 94 94 94 95 95 96 96 96 96 98
Вы здесь » Haru no Yuki » Delphi » Самый первый проект