Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] наибольший элемент массива B(10)  
:(
    Опции темы
AZZriel
Дата 25.12.2007, 21:01 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.12.2007

Репутация: нет
Всего: нет
Ребята помогите пожалуйста решить задачу на массивы ...препод говорит что она наилементарнейшая....а я в Delphi вообще не шарю...очень надо плизззз в четверг последний день сдачи ((( 

Найти номер наибольшего элемнта массива B(10) , Значени которого также принадлежит отрезку 
(-2;2,5) включительно .


Помогите плиззз очень надо ....
PM MAIL   Вверх
Hang
Дата 25.12.2007, 23:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3
Код программы конечно не совершенен, но для сдачи думаю пойдет!
Можешь открыть фигурные скобки для проверки диапазону, но при повторном введение элемента массива не принадлежащего данному интервалу прога его запишет. Просто не хотелось с этим париться ))) 

Код

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    B: array[1..10] of Real;
    max: Real;
begin
  Label1.Caption:='';
  Label2.Caption:='';
  for i:=1 to 10 do
  begin
    B[i]:=StrToFloat(InputBox('Введите данные','Введите элемент массива B['+IntToStr(i)+'] из диапазона [-2;2.5]',''));
    {
    if (B[i]<-2) or (B[i]>2.5) then
    begin
      ShowMessage('Необходимо ввести элемент массива из диапазона [-2;2.5]'+#13+'Попробуйте еще раз!');
      B[i]:=StrToFloat(InputBox('Введите данные','Введите элемент массива B['+IntToStr(i)+']',''));
    end;
    }
  end;

  //Вывод массива
  for i:=1 to 10 do
    Label1.Caption:=Label1.Caption+FloatToStr(B[i])+'   ';

  //Поиск наибольшего элемента и его вывод
  max:=B[1];
  for i:=1 to 10 do
  if B[i]>max then
    max:=B[i];
  Label2.Caption:='Наибольший элемнт массива B равен '+FloatToStr(max);
end;
PM ICQ   Вверх
Alexeis
Дата 25.12.2007, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
AZZriel
Дата 26.12.2007, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.12.2007

Репутация: нет
Всего: нет
Спасб большое очень помог )))
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0938 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.