Haru no Yuki

Объявление

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Haru no Yuki » Delphi » Самый большой в истории проект

Самый большой в истории проект

Страница: 1

Сообщений 1 страница 11 из 11

1

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

По традиции

Код:
var
  Form1: TForm1;
  x:integer;
  size:integer;
  c:string;
  mass: array [1..100] of string;
  l:string;
  T:string;
  y:integer;
  i:integer;
  z:string;
  k:integer;
  flag:integer;
  w:string;
  j:integer;
  flcl: array [1..100] of integer;

Это очень противный проект, и, чтобы что-то работало, нужно вечно жать на Button3, которая записывает массив в память

0

2

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Посимвольный вывод в Memo1 из Edit1

Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
size:=Edit1.GetTextLen();
Memo1.Clear;
     for x:=1 to size do
     begin
     Memo1.SelText:=Edit1.Text[x];
     end;
     Memo1.SelText:=' ';
end;

0

3

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Нахождение в массиве и удаление максимального

Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
size:=Edit1.GetTextLen();
c:=Edit1.Text[1];
     for x:=1 to size do
       begin
       if Edit1.Text[x]>c then
           begin
           c:=Edit1.Text[x];
           end;
        end;

           for x:=1 to size do
              begin
                if Edit1.Text[x]=c then
                  begin
                  end
                  else
                  begin
                   Memo1.SelText:=Edit1.Text[x];
                  end;
                  end;
               end;

от

3412354325

к

34123432

0

4

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

А это опять запись массива в память

Код:
procedure TForm1.Button3Click(Sender: TObject);

begin
size:=Edit1.GetTextLen();
     for x:=1 to size do
          begin
          mass[x]:=Edit1.Text[x];
          end;
end;

0

5

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Посимвольный вывод массива в Memo1

Код:
procedure TForm1.Button4Click(Sender: TObject);
begin
begin
size:=Edit1.GetTextLen();
      for x:=1 to size do
           begin
             Memo1.SelText:=mass[x];
           end;
end;
end;

0

6

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Повторная сортировочка без вывода

Код:
procedure TForm1.Button5Click(Sender: TObject);
begin
size:=Edit1.GetTextLen();
     for x:=1 to size do
          begin
          for x:=1 to size do
             begin
                if mass[x]>mass[x+1] then
                begin
                l:=mass[x];
                mass[x]:=mass[x+1];
                mass[x+1]:=l;
             end;
          end;

end;
end;

0

7

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Нахождение и удаление максимального

Код:
procedure TForm1.Button6Click(Sender: TObject);
begin
Memo1.Clear;
T:=mass[1];
i:=0;
size:=Edit1.GetTextLen();
      for x := 1 to size do
          begin
          if T<mass[x] then
             begin
             T:=mass[x];
             end;
          end;


      for x := 1 to size do
          begin
          i:=i+1;
          if mass[i]=T then
             begin
                 for y := i to size-1 do
                 begin
                      mass[y] := mass[y+1];
                 end;
                 i:=i-1;     //---------------------------
                 size:=size-1;
              end;
           end;

      for x:=1 to size do
          begin
            Memo1.SelText:= mass[x];
          end;
end;

от

3423545

к

34234

0

8

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Вывод массива в обратном порядке

Код:
procedure TForm1.Button7Click(Sender: TObject);
begin
    memo1.Clear;
      k:=1;
      y:=size;
      i:=1;
      size:=Edit1.GetTextLen();
      for x:=1 to size do
          begin
             k:=k+2;
             if k<size then
             begin
                z:=mass[i];
                mass[i]:=mass[y];
                mass[y]:=z;
                i:=i+1;
                y:=y-1;
             end;
      end;

      for x:=1 to size do
          begin
            Memo1.SelText:= mass[x];
          end;

end;

от

523464576

к

675464325

0

9

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Удаление введенного символа в Edit2

Код:
procedure TForm1.Button8Click(Sender: TObject);
begin
flag:=0;

Memo1.Clear;

  for x:=0 to size do
     begin
     if mass[x]=Edit2.Text[1] then
     begin
             flag:=1;
             for i:=x to size-1 do
             begin
                  mass[i]:=mass[i+1];
             end;
     size:=size-1;
     end;
     end;

  if flag=0 then
     begin
     mass[size]:=Edit2.Text[1];
     size:=size+1;
     end;

     for x:= 0 to size do
       begin
       Memo1.SelText:=mass[x];
       end;
end;

от

45345346

*введено 4*
к

253536

0

10

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Вывод массива в обратном порядке от 100 до 0

Код:
procedure TForm1.Button9Click(Sender: TObject);
begin
for x:=1 to 100 do
  begin
     Memo1.Seltext:=floattostr(100-x);
  end;
end;

99989796959493929190898887868584838281807
97877767574737271706968676665646362616059585756
55545352515049484746454443424140393837363534333
23130292827262524232221201918171615141312111098
76543210

0

11

  • Автор: 收購
  • 終わりが大事
  • 收購
  • Откуда: 日本
  • Зарегистрирован: 2011-03-31
  • Приглашений: 0
  • Сообщений: 34
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Женский
  • Возраст: 31 [1992-12-03]
  • Провел на форуме:
    1 час 30 минут
  • Последний визит:
    2011-05-09 22:00:25

Еще одна сортировка

Код:
procedure TForm1.Button10Click(Sender: TObject);
begin
size:=edit1.gettextlen();
for i:=1 to size do
  begin
    for j:=1 to size-1 do
       begin
         if mass[j] > mass[j+1] then
           begin
            w:=mass[j];
            mass[j]:=mass[j+1];
            mass[j+1]:=w;
           end;
        end;
  end;
for j:=1 to size do
   begin
   Memo1.SelText:=mass[j];
   end;
end;

от

45243563265

к

22334455566

0

Страница: 1

Вы здесь » Haru no Yuki » Delphi » Самый большой в истории проект

Рейтинг форумов | Создать форум бесплатно