Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 59 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

58
I, N, M: BYTE;
BEGIN
CLRSCR;
Y:=[]; Z:=[]; W:=[];
WRITE(‘ВВЕДИТЕ КОЛ-ВО ДЕТАЛЕЙ В 1 ПАРТИИ:’);
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE(‘ВВЕДИТЕ НАЗВАНИЕ’, I,’-ОЙ ДЕТАЛИ:’);
READLN(X[I]);
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.
8.2 Задания к практическому занятию

Страницы