23.12.2008, 19:50 | #1 (permalink) |
Новичок
Регистрация: 23.12.2008
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите,пожалуйста, решить задачи!
Сформировать из неё одномерный массив Y, состоящий только из неповторяющихся элементов массива Х. Если таковых не окажется, вывести фразу «Искомых элементов нет». Полученный массив напечатать в строчку. X={0.9, 1.5, 2.4, 0, -15, 0.9 –7.8, 2.4, 1.1, 3.91}. Последний раз редактировалось Елена Лунёва; 23.12.2008 в 22:02 |
23.12.2008, 19:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что это займет немного времени, посмотрите Помогите решить задачи на C++ Помогите, пожалуйста, решить три задачи по Pascal |
23.12.2008, 22:18 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
1.
CONST N=10; X:ARRAY[1..N] of REAL = (2.95, 7.34, -4.2, 0.5, -4.9, 0.22, 0.35, 1, 10.1, 12); VAR Ro:REAL; i,Ny:INTEGER; Y:ARRAY[1..N] of REAL; BEGIN Ro:=1; FOR i:=1 TO (N div 2) DO Ro:=Ro*X[2*i]; Ny:=0; FOR i:=1 TO N DO IF X[i]>=Ro THEN BEGIN INC(Ny); Y[Ny]:=X[i] END; IF Ny=0 THEN WriteLn('Искомых элементов нет') ELSE FOR i:=1 TO Ny DO WriteLn(Y[i]:5:2); READLN; END. 2. CONST N=10; X:ARRAY[1..N] of REAL = (0.9, 1.5, 2.4, 0, -15, 0.9, –7.8, 2.4, 1.1, 3.91); VAR No_Repeat:BOOLEAN; i,j,Ny:INTEGER; Y:ARRAY[1..N] of REAL; BEGIN Ny:=0; FOR i:=1 TO N DO BEGIN No_Repeat:=TRUE; FOR j:=1 TO N DO IF i<>j THEN IF X[i]=X[j] THEN No_Repeat:=FALSE; IF No_Repeat THEN BEGIN INC(Ny); Y[Ny]:=X[i]; END; END; IF Ny=0 THEN WriteLn('Искомых элементов нет') ELSE FOR i:=1 TO Ny DO Write(Y[i]:7:2); READLN; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
одномерный массив |
|
|