Даны четыре переменные A1, A2, A11, A22 типа real. Нужно сравнить их между собой

@kopec · Регистрация: 30.06.2013

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

Даны четыре переменные A1, A2, A11, A22 типа real. Нужно сравнить их между собой и если есть совпадение то присвоить Ax это значение.
Ио есть если совпадают хотябы 2 числа то Ax присвоить это число, если совпадений нет, тогда ничего не делаем.

@Embri · 30.06.2013, 16:13

Delphi

var a1,a2,a11,a22,ax:real;
begin
ax:=0;
a1:=strtofloat(Edit1.Text);
a2:=strtofloat(Edit2.Text);
a11:=strtofloat(Edit3.Text);
a22:=strtofloat(Edit4.Text);
if (a1=a2) or (a1=a11) or (a1=a22) then
ax:=a1;
if (a2=a11) or (a2=a22) then
ax:=a2;
if (a11=a22) then
ax:=a11;
label1.caption:=floattostr(ax);

@kopec · 30.06.2013, 16:46 **[ТС]**

Спасибо очень помогло!!!!

@kopec 0 / 0 / 0 Регистрация: 30.06.2013 Сообщений: 40
		1
	Даны четыре переменные A1, A2, A11, A22 типа real. Нужно сравнить их между собой 30.06.2013, 15:57. Показов 1806. Ответов 2 Метки нет (Все метки) Даны четыре переменные A1, A2, A11, A22 типа real. Нужно сравнить их между собой и если есть совпадение то присвоить Ax это значение. Ио есть если совпадают хотябы 2 числа то Ax присвоить это число, если совпадений нет, тогда ничего не делаем. 0

@kopec 0 / 0 / 0 Регистрация: 30.06.2013 Сообщений: 40
	30.06.2013, 16:46 [ТС]	3
	Спасибо очень помогло!!!! 0

Опции темы

Даны четыре переменные A1, A2, A11, A22 типа real. Нужно сравнить их между собой

Решение