3 лабораторки в делфи

[Xetag]

1)Написать программу, которая удаляет начальные пробелы из введенной с клавиатуры строки.
2)Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков: <, > или =.

Примного буду благодарен

[ROMA2PVT]

второе ток недавно было.Ищи.

[Vikenty]

Вот функция для чисел:

function CNumbers(Number1,Number2: integer): string;
begin
if Number1=Number2 then CNumbers:='=';
if Number1>Number1 then CNumbers:='>';
if Number1<Number2 then CNumbers:='<';
end;

Для удаления пробелов используй встроенную Trim

[DomiNick]

Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков: <, > или =.

Ну как-то так...

function W(a, b: integer): char;
begin
if a=b then
   result:='='
else
   if a<b then
      result:='<'
   else
      result:='>';
end;

[Stasensh]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:real;
c:string;
begin
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
if a=b then begin
c:='='; end
else if a<b then begin
c:='<'; end
else if a>b then begin
c:='>'; end;
Edit3.Text:=c;

end;