Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2013, 10:06   #1
XoryBur
Новичок
Джуниор
 
Регистрация: 20.12.2013
Сообщений: 2
По умолчанию Замена компонентов

Помогите пожалуйста!
Все компоненты с четными номерами вектора заменить на значение наибольшей компоненты, а с нечетными номерами на значение наименьшей компоненты.
Заранее спасибо.
XoryBur вне форума Ответить с цитированием
Старый 20.12.2013, 10:43   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
var vec:array[1..2] of real; i:integer;max,min:real;
begin
 for i:=1 to 2 do begin
  readnl(vec[i]);
  if (i=1) or (vec[i]<min) then min:=vec[i];
  if (i=1) or (vec[i]>max) then max:=vec[i];
 end;
 for i:=1 to 2 do begin
  if (i mod 2)=0 then vec[i]:=max else vec[i]:=min;
  write(vec[i]:5:2);
  end; readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прорисовка компонентов Gregor Компоненты Delphi 0 20.12.2010 01:02
Прозрачность компонентов Onekey Общие вопросы Delphi 5 16.10.2010 18:48
Установка компонентов в C# Яр|/||< (^_^) Общие вопросы .NET 4 16.08.2010 18:26
Замена кода программы с Delhi5 на Delhi7 либо замена базы данных с Acessa на MySQL DorianLeroy Фриланс 8 18.02.2009 18:52
Размер компонентов Witaliy Общие вопросы Delphi 0 06.06.2008 16:28