Двумерный символьный массив

@OtherName · Регистрация: 19.10.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите с задачей, не могу справиться. Вот условие и то, что я написал.

Для заданного двухмерного символьного массива сравните длину каждой строки друг с другом и вывести результат сравнения: 1-я строка меньше или больше 2-й строки, строки равны между собой.

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mas:array[1..2,1..100] of AnsiChar;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,g:char;
begin
mas[1]:='qwerty';
mas[2]:='qwertyuu';
i:=length(mas[1]);
g:=length(mas[2]);
begin
if i>g then
Label1.Caption:='Первая строка больше второй'
end;
begin
if g>i then
label1.Caption:='Вторая строка больше первой'
end;
begin
  if i=g then
  label1.Caption:='Строки равны';
end;
 
 
end;
 
end.

@qwertehok · 25.03.2016, 15:33

вы сравнили элементы массива, а вам надо сравнить строки

@qwertehok 5444 / 4364 / 1071 Регистрация: 29.08.2013 Сообщений: 27,374 Записей в блоге: 3
	25.03.2016, 15:33	2
	вы сравнили элементы массива, а вам надо сравнить строки 0

Опции темы