Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!!

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Веб-программинг] >> HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!!
Имя
Сообщение << Старые топики   Новые топики >>
HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!! - 2004-05-21 00:28:14   
disPATCHer

Сообщений: 5
Оценки: 0
Присоединился: 2004-05-20 22:43:45
 Народ! Помогите чем можите. Я не умею на delphi вообще ничего, я даже программировать не
умею. Помогите решить задачку. "Написать программу, которая выводит на экран из массива
введущего пользователем такое число А, что А-n=min и Aклавиатуры" Если вы спецы, эсли вы действительно рубите в этом деле, обьясните ламеру
(то есть мне)
Буду благодарен, даже пивом поделюсь. Вместе зачёт праздновать пойдём
Post #: 1
HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!! - 2004-05-21 00:39:23   
disPATCHer

Сообщений: 5
Оценки: 0
Присоединился: 2004-05-20 22:43:45
 Ошибся в написании программы
-:::Написать программу, которая выводит на экран из массива
введущего пользователем такое число А, что А-n=min и AHelp me!!!
Post #: 2
HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!! - 2004-05-21 00:41:25   
disPATCHer

Сообщений: 5
Оценки: 0
Присоединился: 2004-05-20 22:43:45
 Нет, значит не я ошибся((
Это что-то с форумом…
"… и А меньше n, где n - число вводимое с клавиатуры"
Post #: 3
HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!! - 2004-05-21 19:27:05   
diagnozz

Сообщений: 5
Оценки: 0
Присоединился: 2004-05-21 18:52:10
 а те палюбому на делфях нада писать или можно на крестах?
Post #: 4
HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!! - 2004-05-21 20:02:43   
Номолос

Сообщений: 8
Оценки: 0
Присоединился: 2004-03-26 21:32:45
 Короче, в двух словах:
кидаешь на форму Edit, Button и Label, в предложении public (что в описании класса формы) пишешь, скажем, A: array[1..100] of Integer;
В OnCreate объявляешь i: 1..100;
и делаешь заполнение:
randomize;
for i:=1 to 100 do a:=Random(MaxInt);<BR>Потом в OnClick на твой Button:<BR><BR>var<BR> i, n: Integer;<BR> idx, nmb: integer;<BR>begin<BR> n:=strtoint(Edit1.Text);<BR> idx:=1; nmb:=a[1]-n;<BR> for i:=2 to 100 do<BR> if a-n<nmb then begin<BR> nmb:=a-n;<BR> idx:=i<BR> end;<BR> Label1.Caption := 'В '+inttostr(idx)+' a-n='+inttostr(nmb)<BR>end;
Post #: 5
Страниц:  [1]
Все форумы >> [Веб-программинг] >> HELP!!! НАРОД!!! АЙ НИД ХЭЛП!!!







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.