VPF::[Delphi] Нужна помощь в объяснении этой задачки

dnmscorpion

Дата 12.9.2013, 09:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 12.9.2013

Репутация: нет
Всего: нет

В тексте присутствуют четыре слова. Написать программу, которая расставляет слова в порядке возрастания длины слова. Использовать процедуру, меняющу
В общем есть задача и она даже решена только вот мне бы объяснил кто нибудь что конкретно большинство этих строк означает.
В тексте присутствуют четыре слова. Написать программу, которая расставляет слова в порядке возрастания длины слова. Использовать процедуру, меняющую слова местами.

Код


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
tmp_words = array[0..1] of string;
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
word: array[0..3] of string;
wl: array[0..3] of byte;
i,j:byte;

implementation

{$R *.dfm}

procedure checkWords(n1,n2:byte);
var
str: string;
Begin
if length(word[n1])>length(word[n2]) then
Begin
str:=word[n1];
word[n1]:=word[n2];
word[n2]:=str;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,n,l, tmp: byte;
str: string;
begin
memo1.Clear;
i:=0;
str:=edit1.Text;
n:=pos(' ',str);
repeat
l:=length(str);
word[i]:=copy(str,1,n-1);
str:=copy(str,n+1,l);
n:=pos(' ',str);
i:=i+1;
Until n <= 0;
word[i]:=str;
for i:=0 to 3 do
Begin
wl[i]:=length(word[i]);
end;

for i:=0 to 2 do
for j:=i+1 to 3 do
Begin
checkWords(i,j);
end;

for i:=0 to 3 do
memo1.Lines.Add(word[i]);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

Это сообщение отредактировал(а) Poseidon - 12.9.2013, 09:19

Poseidon

Дата 12.9.2013, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 5
Всего: 133

Для домашних заданий, контрольных и курсовых существует Центр помощи.

Тема перенесена!

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »