Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу Помогите,пожалуйста, решить задачи!
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Елена Лунёва
Guest
 
Сообщений: n/a
По умолчанию Помогите,пожалуйста, решить задачи! - 23.12.2008, 19:50

Задана последовательность 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
Ответить с цитированием
  (#2 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 23.12.2008, 22:18

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
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачи по C++ pom-ivanov Вопросы начинающих программистов 0 20.12.2011 01:28
Помогите пожалуйста решить задачи в паскале!!!)))буду очень признательна)) Лиия Pascal 5 09.12.2011 23:53
Помогите решить задачи! Skillet Prolog 10 04.12.2011 02:27
Помогите пожалуйста решить задачи в паскале!!!)))буду очень признательна)) Лиия Pascal 1 01.12.2011 11:38
F1!F1!F1!Помогите, пожалуйста, решить задачи! Lexa15 Pascal 3 09.11.2011 10:19
Помогите решить задачи........ 77799 Assembler 2 09.11.2011 00:03
Помогите пожалуйста решить задачи на программе DrRacket!!!очень нужно!!! VKhan Lisp 3 22.10.2011 12:46
Помогите пожалуйста решить две задачи :( Sw_92 Visual Basic 0 12.04.2011 22:58
помогите, пожалуйста, решить задачи на Pascal! Лапочка Pascal 1 18.06.2010 10:37
Помогите решить задачи Gros Prolog 1 27.12.2009 18:55
Помогите решить задачи Vovchik4417 Prolog 0 11.12.2009 17:56
Помогите решить задачи SH@DOW Юмор 12 18.09.2006 16:10



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов