По разделам



Задача Proc 12


Описать процедуру SortInc3(A, B, C), меняющую содержимое переменных A, B, C таким образом, чтобы их значения оказались упорядоченными по возрастанию (A, B, C — вещественные параметры, являющиеся
одновременно входными и выходными). С помощью этой процедуры упорядочить по возрастанию два данных набора из трех чисел: (A1, B1, C1) и
(A2, B2, C2).

Код (C/C++)

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
 
using namespace std;
 
void SortInc3 (double &A, double &B, double &C);
 
int main ()
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  double A1, B1, C1;
  for (int i = 1; i<3; ++i) {
    cout << "Введите число A1: ";     cin >> A1;
    cout << "Введите число B1: ";     cin >> B1;
    cout << "Введите число C1: ";     cin >> C1;
    SortInc3 (A1, B1, C1);
    cout << A1 << " " << B1 << " " << C1 << endl;
  }
  system ("pause");
  return 0;	
}
 
void SortInc3 (double &A, double &B, double &C) {
  
  double	a_new, b_new, c_new;
  c_new = max(A, max(B,C));
  a_new = min(A, min(B,C));
  if ((A <= B) && (B <= C) || (C <= B) && (B <= A)) b_new = B;
  if ((B <= C) && (C <= A) || (A <= C) && (C <= B)) b_new = C;
  if ((C <= A) && (A <= B) || (B <= A) && (A <= C)) b_new = A;
  A = a_new;
  B = b_new;
  C = c_new; 
  return;
}

Код (Python)

import random

def SortInc3(A,B,C):
    L = []
    if A > B:
        A,B = B,A
    if B > C:
        B,C = C,B
    if A > B:
        A,B = B,A
    L.append(A)
    L.append(B)
    L.append(C)
    return L

A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
print("Initial: {0}, {1}, {2}".format(A,B,C))
A,B,C = SortInc3(A,B,C)
print("Final: {0}, {1}, {2}".format(A,B,C))

A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
print()
print("Initial: {0}, {1}, {2}".format(A,B,C))
A,B,C = SortInc3(A,B,C)
print("Final: {0}, {1}, {2}".format(A,B,C))
									

Код (Pascal)

program Proc12;
procedure SortInc3(var A,B,C:Real);
var temp:Real;
begin
  if A>B then
   begin
     temp:=A;
     A:=B;
     B:=temp;
   end;
  if A>C then
   begin
     temp:=A;
     A:=C;
     C:=temp;
   end;
  if B>C then
   begin
     temp:=B;
     B:=C;
     C:=temp;
   end;
end;
 
var
  A1, B1, C1, A2, B2, C2:Real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Writeln('Введите первый набор переменных: ');
  Write('Введите  A1: ');
  Readln(A1);
  Write('Введите  B1: ');
  Readln(B1);
  Write('Введите  C1: ');
  Readln(C1);
  SortInc3(a1,b1,c1);
  Write(a1);
  write(';');
  Write(b1);
  write(';');
  Writeln(c1);
 
  Writeln('Введите второй набор переменных: ');
  Write('Введите  A2: ');
  Readln(A2);
  Write('Введите  B2: ');
  Readln(B2);
  Write('Введите  C2: ');
  Readln(C2);
  SortInc3(a2,b2,c2);
  Write(a2);
  write(';');
  Write(b2);
  write(';');
  Writeln(c2);
end.
									




Proc. Абрамян
Proc 1 Просмотров: 13
Proc 2 Просмотров: 13
Proc 3 Просмотров: 12
Proc 4 Просмотров: 12
Proc 5 Просмотров: 14
Proc 6 Просмотров: 9
Proc 7 Просмотров: 12
Proc 8 Просмотров: 11
Proc 9 Просмотров: 12
Proc 10 Просмотров: 10
Proc 11 Просмотров: 14
Proc 12 Просмотров: 9
Proc 13 Просмотров: 12
Proc 14 Просмотров: 13
Proc 15 Просмотров: 13
Proc 16 Просмотров: 10
Proc 17 Просмотров: 22
Proc 18 Просмотров: 13
Proc 19 Просмотров: 14
Proc 20 Просмотров: 9
Proc 21 Просмотров: 12
Proc 22 Просмотров: 11
Proc 23 Просмотров: 10
Proc 24 Просмотров: 12
Proc 25 Просмотров: 9
Proc 26 Просмотров: 11
Proc 27 Просмотров: 14
Proc 28 Просмотров: 17
Proc 29 Просмотров: 21
Proc 30 Просмотров: 25
Proc 31 Просмотров: 13
Proc 32 Просмотров: 12
Proc 33 Просмотров: 9
Proc 34 Просмотров: 17
Proc 35 Просмотров: 9
Proc 36 Просмотров: 11
Proc 37 Просмотров: 11
Proc 38 Просмотров: 10
Proc 39 Просмотров: 13
Proc 40 Просмотров: 9
Proc 41 Просмотров: 13
Proc 42 Просмотров: 11
Proc 43 Просмотров: 11
Proc 44 Просмотров: 12
Proc 45 Просмотров: 14
Proc 46 Просмотров: 10
Proc 47 Просмотров: 9
Proc 48 Просмотров: 14
Proc 49 Просмотров: 10
Proc 50 Просмотров: 12
Proc 51 Просмотров: 18
Proc 52 Просмотров: 11
Proc 53 Просмотров: 13
Proc 54 Просмотров: 10
Proc 55 Просмотров: 12
Proc 56 Просмотров: 10
Proc 57 Просмотров: 10
Proc 58 Просмотров: 11
Proc 59 Просмотров: 8
Proc 60 Просмотров: 10

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться