RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! У меня возникли сложности с таким вопросом: Вводить по четыре числа A, B, C, D с клавиатуры или случайным образом в диапазоне от 0 до 1000. Упорядочить по убыванию эти наборы из четырех чисел Определить процедуру, меняющую содержимое переменных A, B, C, D таким образом, чтобы их значения оказались упорядоченными по убыванию. Delphi
Дата отправки: 28.02.2021, 16:00 Консультирует puporev (Профессор): Здравствуйте, Vajik! Код :: выделить код procedure sort(var a,b,c,d:integer);
var x:integer;
begin
if a > b then
begin
x:=a; a:=b; b:=x;
end;
if c > d then
begin
x:=c; c:=d; d:=x;
end;
if a > c then
begin
x:=a; a:=c; c:=x;
end;
if b > d then
begin
x:=b; b:=d; d:=x;
end;
if b > c then
begin
x:=b; b:=c; c:=x;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,a,b,c,d:integer;
begin
if not TryStrToInt(Edit1.Text,n)or(n<1)then
begin
ShowMessage('Введите целое положительное число');
Edit1.Clear;
Edit1.SetFocus;
exit;
end;
randomize;
Memo1.Clear;
for i:=1 to n do
begin
a:=random(1001);
b:=random(1001);
c:=random(1001);
d:=random(1001);
Memo1.Lines.Add('Введенные числа '+inttostr(a)+' '+inttostr(b)+' '+
inttostr(c)+' '+inttostr(d));
sort(a,b,c,d);
Memo1.Lines.Add('Отсортированные числа '+inttostr(a)+' '+inttostr(b)+' '+
inttostr(c)+' '+inttostr(d));
end;
end;
Во вложении предлагаемый вид формы.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
