|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.01.2011, 19:34 | #1 |
Новичок
Джуниор
Регистрация: 04.01.2011
Сообщений: 2
|
Подпрограммы!
Даны 2 одномерных массива А из 10 элементов и В из 15 элементов.Сформировать 2 новых массива Массив Х из элементов массива А,не входящих в массив В,и массив У из элементов массива В не входящих в массив А.
*********************************** ***************** Использовать подпрограммы. Если можно объясните подробнее)))Набросал что-то !=========> *********************************** ***************** program lol; uses crt; type mas=array[1..15] of real; var A,B,X,Y,m:mas; i,n:integer; procedure inmas( var m:mas;var n:integer); var i:integer; begin writeln('vvesti n='); readln(n); for i:=1 to n do readln(m[i]); writeln;writeln; writeln('Massiv'); for i:=1 to n do write(m[i]:3:0); end; function poiskX(A,B:mas):real; var j,i:integer;el:real; begin for i:=1 to 10 do begin for j:=1 to 15 do if A[i]=B[j] then i:=i+1 else el:=A[i]; end; poiskX:=el; end; function poiskY( A,B:mas):real; var j,i:integer;el:real; begin for j:=1 to 15 do begin for i:=1 to 10 do if B[j]<>A[i] then el:=B[j]; end; poiskY:=el; end; procedure utmas(m:mas); var i:integer; begin for i:=1 to 15 do write(m[i]:3:0); end; begin clrscr; writeln('vvod massiva A'); inmas(A,n); writeln; writeln('vvod massiva B'); inmas(B,n); for i:=1 to 15 do X[i]:=poiskX(A,B); Y[i]:=poiskY(A,B); writeln; writeln('massiv X'); utmas(X); writeln; writeln; writeln('massiv Y'); utmas(Y); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подпрограммы | dusya9992 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.07.2010 15:31 |
подпрограммы!? | nolx | Помощь студентам | 0 | 31.05.2010 18:53 |
Подпрограммы-процедуры, подпрограммы-функции в Pascal | rishikesh | Помощь студентам | 19 | 18.05.2010 23:05 |
Подпрограммы | Neyrone | Помощь студентам | 8 | 14.12.2009 12:56 |
Подпрограммы | Журенова Катя | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 05.05.2009 22:21 |