![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Все, я пас, поздно очень у меня.
|
![]() |
![]() |
![]() |
#12 |
Регистрация: 27.11.2008
Сообщений: 8
|
![]()
ну, пожалуйста не уходи, я же просто умру без вашей помощи
|
![]() |
![]() |
![]() |
#13 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
В основном поиске ведь используется флаг. Я его назвал ks, или количество совпадений, хотя это не количество, а сам факт совпадения.
Код:
|
![]() |
![]() |
![]() |
#14 |
Регистрация: 27.11.2008
Сообщений: 8
|
![]()
С равными элементами я разобралась, получилось примерно вот это:
PROGRAM pr2; uses crt; const n = 20; m = 10; var a, c : array [1..n] of real; b : array [1..m] of real; t, l, j, i ,k, pr : integer; BEGIN clrscr; randomize; for i:=1 to n do begin a[i]:=random(50); write (a[i]:5:0); end; writeln; for j:=1 to m do begin b[j]:=random(50); write (b[j]:5:0); end; writeln; k:=0; for i:=1 to n do for j:=1 to m do begin if a[i]=b[j] then begin pr:=0; for l:=1 to k do if a[i]=c[l] then pr:=1; if pr=0 then begin k:=k+1; c[l]:=a[i]; end; end; end; writeln; for l:=1 to k do write(c[l]:5:0); readln; end. Но с остальным... Последний раз редактировалось LyaLya; 28.11.2008 в 02:41. |
![]() |
![]() |
![]() |
#15 |
Регистрация: 27.11.2008
Сообщений: 8
|
![]()
PROGRAM pr2;
uses crt; const n = 20; m = 10; var a, c : array [1..n] of real; b : array [1..m] of real; t, l, j, i ,k, pr : integer; BEGIN clrscr; randomize; for i:=1 to n do begin a[i]:=random(50); write (a[i]:5:0); end; writeln; for j:=1 to m do begin b[j]:=random(50); write (b[j]:5:0); end; writeln; k:=0; for i:=1 to n do for j:=1 to m do begin if a[i]=b[j] then begin pr:=0; for l:=1 to k do if a[i]=c[l] then pr:=1; if pr=0 then begin k:=k+1; c[l]:=a[i]; end; end; end; writeln; for l:=1 to k do write(c[l]:5:0); readln; end. |
![]() |
![]() |
![]() |
#16 |
Новичок
Джуниор
Регистрация: 20.12.2009
Сообщений: 1
|
![]()
помогите решить задачу !!! сформировать одномерный массив из 10 первых положительных элементов другого одномерного массива
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
C++/ Одномерные массивы | BennyBenassy | Общие вопросы C/C++ | 6 | 23.02.2009 14:27 |
Одномерные массивы - Pascal | W_P | Помощь студентам | 8 | 27.02.2008 19:24 |
Паскаль. 1.Даны массивы.2 Дан X найти... | Stelix | Помощь студентам | 7 | 20.11.2007 21:08 |