Лабораторная работа. Ввод-вывод в стандартные файлы.
Задание: Вводит две символьные строки длиной не более 12 символов, сравнивает их и выводит результат сравнения на экран.
На форму нужно разместить 1 memo и 2 label.
Код программы для Delphi:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
BitBtn1: TBitBtn;
Memo1: TMemo;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,sum:integer;
s1,s2:string;
begin
memo1.Lines.Add('Совпадения строк: ');
memo1.Lines.Add(' Совпадение строки 1 со строкой 2: ');
s1:=LabeledEdit1.Text;
s2:=LabeledEdit2.Text;
for i:=1 to length(s1) do
begin
sum:=0;
for j:=1 to length(s2) do
if s1[i]= s2[j] then inc(sum);
memo1.Lines.Add('"'+s1[i]+'" совпадений: '+inttostr(sum));
end;
memo1.Lines.Add('------------');
memo1.Lines.Add(' Совпадение строки 2 со строкой 1: ');
s1:=LabeledEdit1.Text;
s2:=LabeledEdit2.Text;
for i:=1 to length(s2) do
begin
sum:=0;
for j:=1 to length(s1) do
if s2[i]= s1[j] then inc(sum);
memo1.Lines.Add('"'+s2[i]+'" совпадений: '+inttostr(sum));
end;
end;
end.
Блок схемы:
 |
Главная
Каталог файлов
