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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2011, 19:53   #1
Memorial
Новичок
Джуниор
 
Регистрация: 18.10.2011
Сообщений: 2
По умолчанию Массивы, удаление четных номеров, обнаружение максимальных номеров.

Прошу помочь написать текст программы под дельфи.
Задание 1:
Заполнить массив случайными целыми двузначными числами. Вывести на экран.
Обнаружить максимальный среди элементов с четными номерами.
Задание 2:
Заполнить массив. Удалить все рядом стоящие четные элементы.

Заранее спасибо.
Memorial вне форума Ответить с цитированием
Старый 18.10.2011, 20:05   #2
Memorial
Новичок
Джуниор
 
Регистрация: 18.10.2011
Сообщений: 2
По умолчанию

Вот что примерно сделал по первой, но тут ошибки в коде и не выделяет то, что нужно(

procedure TForm1.Button1Click(Sender: TObject);
Var A:array [1..60] of integer;
B:integer;
w,m,i,j:byte;
begin
Randomize; Form1.Refresh; M:=strtoint(edit1.Text);
for i:=1 to 60 do
begin
A[i]:=Random(89)+10; w:=trunc((i-1)/m);
Canvas.TextOut((i-w*m)*35, (w-1)*35, inttostr(a[i])); end;
B:=a[1]; j:=1; for i:=2 to 60 do
if a[i]>b and not odd(i) then begin B:=A[i]; J:=i end;
Edit2.Text:=inttostr(j); w:=trunc((j-1)/m);
Canvas.Pen.color:=clred;
Canvas.Rectangle((j-w*m)*35, (w+1)*35+60, (j-w*m)*35+30,
(w+1)*35+63);



end;

end.
Memorial вне форума Ответить с цитированием
Старый 18.10.2011, 22:58   #3
Dush
Форумчанин
 
Регистрация: 29.09.2011
Сообщений: 116
По умолчанию

вот чуток подправил ваше творение:
Код:
  M:=strtoint(edit1.Text);
  for i:=1 to 60 do
  begin
    A[i]:=Random(89)+10;
    w:=trunc((i-1)/m);
    Canvas.TextOut((i-w*m)*35, (w)*35+30, inttostr(a[i]));
  end;
  B:=a[1];
  j:=1;i:=2;
  while i<=60 do
  begin
    if a[i]>b then
    begin
      B:=A[i];
      J:=i
    end;
    i:=i+2;
  end;
  Edit2.Text:=inttostr(j);
  w:=trunc((j-1)/m);
  Canvas.Pen.color:=clred;
  Canvas.Brush.Style:=bsClear;

  Canvas.Rectangle((j-w*m)*35-10,w*35+20,(j-w*m)*35+20,w*35+50);
Dush вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Распознавание номеров авто YuryD Софт 8 03.03.2015 16:07
Выборка номеров по диапазону zenner Microsoft Office Excel 14 23.06.2010 15:22
БД телефонных номеров ElenaOrsk Общие вопросы Delphi 0 31.05.2009 12:25
Сортировчик номеров ildusfm Microsoft Office Excel 1 19.05.2009 13:38
Несколько номеров одновеременно Pavelok Работа с сетью в Delphi 1 14.05.2009 14:43