Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 65 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

и (abs(Вес[i] - Вес[j]) <= ДопВес)
=
>
(3)
N
теста
i Flag (1) j (2) (3)
Ш
ина
1
Ш
ина
2
1 "Нет" + 2
3
4
5
+
+
+
-
(кц)
-
-
-
2 "Да" + 3 +
-
(кц)
+ 2 3
1
3 -
(кц)
1
"Нет" + 2
3
4
+
+
-
(кц)
-
-
2 + 3
4
+
+
-
2
3 -
(кц)
Turbo Pascal
Program MyTyres;
Uses Crt;
Type Mas = Array [1..100] of Real;
Var
Number, i, j : Integer; { Number - количество шин }
Diameter, Weight : Mas; { массивы параметров шин }
First, Second : Integer; { номера отобранных шин }
Flag : Boolean;
D, W : Real; {D, W - допуски по параметрам}
{-------------------------------------------------------}
Procedure InputOutput; {описание процедуры ввода-вывода данных}
Begin
ClrScr;
Write('Количество шин : '); ReadLn(Number);
WriteLn('Параметры шин : ');
For i := 1 to Number do
begin
Write(i, '-ая шина: Диаметр - '); ReadLn(Diameter[i]);
Write(' Вес - '); ReadLn(Weight[i])
end; WriteLn;
Write('Допуск по диаметру : '); ReadLn(D);
Write('Допуск по весу : '); ReadLn(W); 
и (abs(Вес[i] - Вес[j]) <= ДопВес) =>
(3)

  N   i Flag (1) j (2) (3) Шина Шина
теста                        1    2
      1 "Нет"    +     2     +  -
                       3     +  -
                       4     +  -
                       5     -
                           (кц)
  1
      2 "Да"     +     3     +  +   2   3
                             -
                           (кц)
      3           -
                (кц)
      1 "Нет"    +     2     +  -
                       3     +  -
                       4     -
                           (кц)
  2
      2          +     3    +   -
                       4    +
      3           -
                (кц)




Turbo Pascal
Program MyTyres;
  Uses Crt;
  Type Mas = Array [1..100] of Real;
  Var
     Number, i, j     : Integer; { Number - количество шин    }
     Diameter, Weight : Mas;     { массивы параметров шин     }
     First, Second    : Integer; { номера отобранных шин      }
     Flag             : Boolean;
     D, W             : Real;    {D, W - допуски по параметрам}
{-------------------------------------------------------}
Procedure InputOutput; {описание процедуры ввода-вывода данных}
 Begin
  ClrScr;
  Write('Количество шин : '); ReadLn(Number);
  WriteLn('Параметры шин : ');
  For i := 1 to Number do
     begin
       Write(i, '-ая шина: Диаметр - '); ReadLn(Diameter[i]);
       Write('           Вес - '); ReadLn(Weight[i])
     end; WriteLn;
  Write('Допуск по диаметру : '); ReadLn(D);
  Write('Допуск по весу : ');      ReadLn(W);

Страницы