|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.06.2013, 19:21 | #1 |
Форумчанин
Регистрация: 22.05.2013
Сообщений: 245
|
С++
не получается переделать этот код в С++
Program P5; uses crt; const N=10; Type vector=array [1..N] of integer; vector2=array [1..2*N] of integer; Var t:integer; absent:boolean; x:vector; y:vector; z:vector2; i:byte; k:integer; j:integer; begin ClrScr; randomize; writeln ('массив x:'); for i:=1 to N do begin repeat absent:=true; t:=random(20); for j:=1 to i-1 do if x[j] = t then absent:=false; until absent; x[i]:=t; write(x[i]:4); end; writeln; writeln ('массив y:'); for i:=1 to N do begin repeat absent:=true; t:=random(20); for j:=1 to i-1 do if y[j] = t then absent:=false; until absent; y[i]:=t; write(y[i]:4); end; writeln; k:=1; for i:=1 to N do for j:=1 to N do begin if x[i]=y[j] then begin z[k]:=x[i]; k:=k+1; end; end; writeln('массив z:'); for i:=1 to k-1 do write(z[i]:4); writeln; if (x[i]<>y[j]) and (k=1) then writeln('пересечения нет'); readkey; end. |
05.06.2013, 20:06 | #2 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Что сделали? Что не получается?
|
05.06.2013, 20:11 | #3 |
Форумчанин
Регистрация: 22.05.2013
Сообщений: 245
|
не получается вот этот фрагмент
randomize; writeln ('массив x:'); for i:=1 to N do begin repeat absent:=true; t:=random(20); for j:=1 to i-1 do if x[j] = t then absent:=false; until absent; |
05.06.2013, 20:42 | #4 |
C/C++, Java
Участник клуба
Регистрация: 28.03.2012
Сообщений: 1,679
|
Извините за глупый вопрос, а что делает это программа???
Код:
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости" Сложность - враг простоты и удобства! |
05.06.2013, 21:09 | #5 |
Форумчанин
Регистрация: 22.05.2013
Сообщений: 245
|
в задаче даны два массива x,y.Нужно вывести на экран массив z,где z это пересечение x и y.
|
05.06.2013, 21:21 | #6 |
Форумчанин
Регистрация: 22.05.2013
Сообщений: 245
|
ошибок нет,но не работает
#include <iostream> #include <ctime> #include <stdlib.h> #include <iomanip> using namespace std; int main() { setlocale(LC_ALL, "Russian"); const int N=10; int x[N]; int y[N]; int z[2*N]; int k,t; int j=0,i=0; bool absent; srand(time(NULL)); cout << "\n массив X:" << endl; for(int i = 0; i < N; i++) { do { absent = true; t = 1 + rand()%20; for(int j = 0; j < i-1; j++) if(x[j] == t) absent = false; }while(absent); } x[i]=t; cout << setw(4) << x[i]; cout << endl; cout << "\n массив y:" << endl; for(int i = 0; i < N; i++) { do { absent = true; t = 1 + rand()%20; for(int j = 0; j < i-1; j++) if(y[j] == t) absent = false; }while(absent); } y[i]=t; cout << setw(4) << y[i]; cout << endl; k=0; for (int i=0; i<N; i++) for (int j=0; j<N; j++) { if(x[i]==y[j]){ z[k]=x[i]; k++;} } cout << "массив z" << endl; for (int i=0; i<k-1; i++) cout << setw(4) << z[i]; cout << endl; if ((x[i]!=y[j])&&(k==1)) cout << "пересечения нет" << endl; system("pause"); return 0; } |
05.06.2013, 21:42 | #7 |
C/C++, Java
Участник клуба
Регистрация: 28.03.2012
Сообщений: 1,679
|
Что значит пересечение x и y.? Помещайте пожалуйста код в теги #
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости" Сложность - враг простоты и удобства! |
05.06.2013, 21:48 | #8 |
Форумчанин
Регистрация: 22.05.2013
Сообщений: 245
|
т.е ищет одинаковые элементы из массивов x,y и создает из них новый массив z
|
05.06.2013, 21:51 | #9 |
C/C++, Java
Участник клуба
Регистрация: 28.03.2012
Сообщений: 1,679
|
Вот оно как, сейчас попробуем реализовать....
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости" Сложность - враг простоты и удобства! |
05.06.2013, 21:52 | #10 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 05.06.2013 в 22:06. |