Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 23.12.2008, 19:50   #1 (permalink)
Елена Лунёва
Новичок
 
Регистрация: 23.12.2008
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите,пожалуйста, решить задачи!

Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив 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
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я уверен, что это займет немного времени, посмотрите

Помогите решить задачи на C++
Помогите, пожалуйста, решить три задачи по Pascal

Старый 23.12.2008, 22:18   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,874
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

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.
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
одномерный массив

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 08:18.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.