Сборник заданий для практических занятий по информатике. Крупенников О.Г - 76 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

75
INCLUDE(Y, X[I]);
END;
CLRSCR;
WRITE(‘ВВЕДИТЕ КОЛ-ВО ДЕТАЛЕЙ В 2 ПАРТИИ:’);
READLN(M);
FOR I:=1 TO M DO
BEGIN
WRITE(‘ВВЕДИТЕ НАЗВАНИЕ’, I,’-ОЙ ДЕТАЛИ:’);
READLN(V[I]);
INCLUDE(Z, V[I]);
END;
CLRSCR;
WRITELN(‘1 ПАРТИЯ’);
FOR I:=1 TO N DO
WRITE(X[I]:3);
WRITELN;
WRITELN(‘2 ПАРТИЯ’);
FOR I:=1 TO M DO
WRITE(V[I]:3);
WRITELN;
WRITELN(‘ОДИНАКОВЫЕ ДЕТАЛИ’);
FOR I:=1 TO M DO
IF X[I] IN Z THEN
BEGIN
INCLUDE(W, X[I]);
WRITE(X[I]:3)
END;
READKEY
END.

Страницы