Даны два числа вывести большее, а затем меньшее. (Delphi)

[nadyaH]

ДАНЫ ДВа ЧИСЛА ВЫВЕСТИ БОЛЬШЕЕ А ЗАТЕМ МЕНЬШЕЕ.
ВОТ ПРОГРАММА. НЕ ЗНАЮ КАК ПРАВИЛЬНО ВЫВЕСТИ ОТВЕТ.

VAR
X,Y:INTEGER;
B,M:REAL;
begin
IF X>Y THEN
BEGIN
B:=X;
M:=Y;
END
ELSE
BEGIN
B:=Y;
M:=X;
END;
EDIT3.Text:=FLOATTOSTR(B)+ FLOATTOSTR(M);
end;

end.

[Vanta11a]

А где считывание чисел Х и У?
Вывести как-то так:

if (x>y) then 
edit3.text := floattostr(x) + '>' + floattostr(y) 
else 
floattostr(y) + '>=' + floattostr(x);

[nadyaH]

edit1.Text:=strtofloat(x);
edit2.Text:=strtofloat(y);
почему программа ошибку выдаёт?

[Vanta11a]

Что за ошибка? Телепаты в отпуске.
Могу предположить, что из-за разделителя, т.к. в зависимости от системных параметров он может быть как точкой (.) так и запятой (,).

[Serge_Bliznykov]

потому что нужно переводить число в строку, а не строку в число, как Вы пишете.
Кроме того, x и y у Вас целого типа.
поэтому:

edit1.Text:= IntToStr(x);
edit2.Text:= IntToStr(y);

[nadyaH]

VAR
X,Y:real;
B,M:REAL;
begin
edit1.Text:= IntToStr(x);// вот в это и следующей строчке.
edit2.Text:= IntToStr(y);
if (x>y) then
edit3.text := floattostr(x) + '>' + floattostr(y)
else
floattostr(y) + '>=' + floattostr(x);
end.
ошибку даёт.

[Serge_Bliznykov]

ОМГ!

во-первых,

X,Y:real;

Вы же тип данных поменяли с Integer на Real (это вещественный тип, по английски вещественный - это Float == "с плавающей запятой")

во-вторых, Вы вообще понимаете, чем отличается запись:

A := B;

от записи

B := A;

рекомендую проштудировать вопрос, что пишется слева от знака присваивания, а что - справа!!

Думаю, что Вы хотели написать так:

VAR
X,Y:real;
B,M:REAL;
begin
x := StrToFloat(edit1.Text);
y := StrToFloat(edit2.Text);
if (x>y) then
  edit3.text := floattostr(x) + '>' + floattostr(y)
else
  edit3.text := floattostr(y) + '>=' + floattostr(x);
end.

[nadyaH]

примерно так.Спасибо.
я в паскале раньше работала. а с делфи 7 вообще не работала.вот пробую как то.

Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).

N:EXTENDED;
A,B,C:real;
O:BOOLEAN;
begin
N:=STRTOFLOAT(EDIT1.TEXT);
A:= N MOD 4; ошибка
B:= N MOD 100;
C:= N MOD 400;
END;
if A<>0 then O:=365;
else if not((B=0)and(C<>0))then O:=366;
EDIT2.Text:=STRTOFLOAT(O);
end;

end.

[Vanta11a]

Отмазка "работал в паскале, но не работал в Delphi" - не канает. Пишите код для паскаля, адаптировать его под Delphi - заменить ввод и вывод значений.

А вообще MOD для типа real не работает.

[nadyaH]

как обозначить переменную, которая будет являться string и integer?