Исполнение алгоритма

Дата добавления: 2015-07-04; просмотров: 519; Нарушение авторских прав

Обозначения проверяемых условий: (i <= N-1) и (Flag = "Нет") => (1) (i < N) и (Flag = "Нет") => (2) (abs(Диам[i] - Диам[j]) <= ДопДиам) и (abs(Вес[i] - Вес[j]) <= ДопВес) => (3) N теста i Flag (1) j (2) (3) Шина 1 Шина 2 "Нет" + + + + -(кц) - - -     "Да" + + -(кц) +   -(кц)           "Нет" + + + -(кц) - -       + + + -       -(кц)

Блок-схема (фрагмент)

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);

WriteLn; WriteLn(' Пapаметры шин ');

WriteLn('N шины Диаметр Вес');

For i := 1 to Number do

WriteLn(i:4, Diameter[i]:10:1, Weight[i]:10:1);