07.12.2014, 20:12 | #1 (permalink) |
Новичок
Регистрация: 19.09.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу в Паскале, пожалуйста
|
07.12.2014, 20:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти обсуждения очень схожи с вашей темой Помогите написать программу в Паскале Помогите, пожалуйста, написать на Паскале программу "Циклический алгоритм" Помогите, пожалуйста, написать программу в Паскале |
07.12.2014, 21:08 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const L=10; {Number of lines} M=14; {Number of columns} Type Matr=Array[1..L,1..M] of Integer; Matr_T=Array[1..M,1..L] of Integer; Vect=Array[1..L] of Integer; Var V:Matr; V_T:Matr_T; W:Matr; W_T:Matr_T; i,j,N:Byte; Function Test(T:Vect):Boolean; var p,q:byte; b:boolean; begin b:=true; for p:=1 to L-1 do for q:=p+1 to L do if T[p]=T[q] then b:=false; Test:=b; end; Begin Randomize; for i:=1 to L do begin for j:=1 to M do begin V[i,j]:=Random(100); V_T[j,i]:=V[i,j]; write(V[i,j]:4); end; writeln; end; writeln; N:=0; for i:=1 to M do if Test(V_T[i]) then begin Inc(N); for j:=1 to L do W_T[N][j]:=V_T[i][j]; end; for i:=1 to N do for j:=1 to L do W[j,i]:=W_T[i,j]; for i:=1 to L do begin for j:=1 to N do write(W[i,j]:4); writeln; end; Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|