Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] наибольший элемент массива B(10)


Автор: AZZriel 25.12.2007, 21:01
Ребята помогите пожалуйста решить задачу на массивы ...препод говорит что она наилементарнейшая....а я в Delphi вообще не шарю...очень надо плизззз в четверг последний день сдачи ((( 

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


Помогите плиззз очень надо ....

Автор: Hang 25.12.2007, 23:24
Код программы конечно не совершенен, но для сдачи думаю пойдет!
Можешь открыть фигурные скобки для проверки диапазону, но при повторном введение элемента массива не принадлежащего данному интервалу прога его запишет. Просто не хотелось с этим париться ))) 

Код

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;

Автор: Alexeis 25.12.2007, 23:47
Для домашних заданий, курсовых, существует "Центр Помощи".

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

Автор: AZZriel 26.12.2007, 14:24
Спасб большое очень помог )))

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)