Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] Использование РЭНДОМа. "разгадка чисел"


Автор: Pitbul 11.10.2008, 20:21
Изучаем делфи на протяжении 6 пар. И получили новую лабу такого типажа:

Пользователь угадывает число, заданное гениратором случайных чисел в диапазоне [0;99]
Программа должна сообщать с помощью фраз подсказки: меньше или больше, указанное число пользователем.

КНОПКА - "Заново" - это очистка всей формы + генирация нового числа.


К сообщению загрузил картинку как выглядит форма готовой лабы (схематически).

Помогите пожалуйста выполнить ее. Спасибо smile 


Автор: mr.Anderson 11.10.2008, 20:50
Решаю...

Добавлено через 6 минут и 20 секунд
Готово.

Автор: mr.Anderson 11.10.2008, 20:58
Pitbul, форма не соответствует (не догадался глянуть рисунок smile), но программа работает. Ща переделаю форму.

Автор: mr.Anderson 11.10.2008, 21:09
Вот исправленный вариант.

Автор: mr.Anderson 11.10.2008, 21:30
Кто там недоволен решением, постите свое. Мое работает как часы.

Автор: THandle 11.10.2008, 21:46
mr.Anderson, Я не доволен. Не доволен твоим оформлением кода. В частности выравниванием переменных и одинарным отступом в большинстве случаев.

Pitbul, замени:

Код

var
  Form1: TForm1;
  memory: Integer;


И везде сделай двойные отступы, по типу:

Код

var
  num: Integer;
begin
  if not TryStrToInt(MENum.Text, num) then
    Exit;
//..

Автор: Pitbul 11.10.2008, 21:50
mr.Anderson

Огромное спасибо=) Работает не как час=)

А как швейцарские часы=)

В эту среду буду сдавать лабу, если какие то пожелания препод сделает к проге сам попробую переделать, если же не смогу еще раз обращусь=)

Еще раз спасибо=) smile  smile  smile 

Автор: Rrader 12.10.2008, 07:28
Поправил код и TabOrder.

Автор: Pitbul 12.10.2008, 12:13
Скачал=) новую версию, попробую ее тоже потстить=) огромное всем спасибо за содействие=)

Как набью 100 постов буду повышать вам репу=) smile  smile  smile 

Автор: mr.Anderson 12.10.2008, 16:10
Pitbul, не за что. Старайся разбираться сам, что и как делается, главное - научиться самому.

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