|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.05.2010, 14:45 | #1 |
Регистрация: 03.05.2010
Сообщений: 6
|
Повторяющиеся элементы в двумерном массиве.
ПОмогите пожалуйста рещить задачу. Необходимо определить, есть ли повторяющиеся элементы в каждой строке и какое количество.
|
03.05.2010, 14:46 | #2 |
Регистрация: 03.05.2010
Сообщений: 6
|
Вот код
program xxx; uses crt; type massiv=array [1..10,1..10] of real; var x,z:real; rep:array [1..2,1..10] of real; i,j,a,b:integer; y:massiv; mas:text; begin clrscr; x:=5.2; for i:=1 to 10 do for j:=1 to 10 do begin y[i,j]:= cos((exp(0.25*ln(x)))-(0.5*exp(0.5*ln(x)))+(0.25*exp(0.75 *ln(x)))); x:=x+0.45; end; for i:=1 to 10 do begin for j:=1 to 10 do begin write(y[i,j]:5:3,' '); end; writeln;end; writeln; writeln; assign(mas,'mas.txt'); rewrite(mas); for i:=1 to 10 do begin for j:=1 to 10 do begin write(mas,y[i,j]:5:3); write(mas,' '); end; writeln(mas);end; close(mas); a:=1;b:=1; for i:=1 to 10 do for j:=1 to 10 do begin if rep[a,b]=y[i,j] then j:=j+1; if y[i,j]=y[i,j+1] then begin rep[a,b]:=y[i,j]; rep[a+1,b]:=rep[a+1,b]+1;b:=b+1;end;end; for a:=1 to 2 do begin for b:=1 to 10 do begin write(rep[a,b]:5:3,' '); end; writeln;end; readkey; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Игра на двумерном массиве | Serg-Grin | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 19.02.2010 20:51 |
Random в двумерном массиве. | Lazio | Помощь студентам | 7 | 01.11.2009 22:53 |
Поиск Максимума в двумерном массиве | NSvirus | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 20.09.2009 18:04 |
Сортировка отр. элементов в двумерном массиве | SWAT | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 02.04.2009 21:43 |