连云港批发市场:这程序应该怎么写

楼上的，这个是用delphi来写的,不过你还是写对了！呵呵

b:=edit3.text
a:=edit3.text
这两个地方错了，应该反过来
edit3.text:=b
edit3.text:=a

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
if a>b then
' b:=edit3.text ;edit3.text:=b
else
if a<b then
' a:=edit3.text ;edit3.text:=a
else
showmessage('same')
end;
加了注释的，后面改了，自己看
这是什么语言呀，不知道语法对不对，大概就是你的变量弄反了，呵呵，不好意思，不太懂就写了，希望是对的！

兄弟,你用的是Delphi吧，基于类passcal的语言．你把变量弄反了，你是给edit3.text里边放值啊，所以应该如下来写：
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
if a>b then
edit3.text:=b
else
if a<b then
edit3.text:=a
else
showmessage('same')
end;
Delphi的具体的语法格式我也忘了，不知道在showmessage这句后面是不是应该加个";"，你自己查查书看看吧

楼上几位发现问题了，但改得不对，b是整型，TEdit.Text是字符串，赋值时会出问题，所以应为：
if a > b then
edit3.Text := edit1.Text
else
if a < b then
edit3.text := edit1.Text
else ...