Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
wXwRSwXw
0 / 0 / 1
Регистрация: 06.09.2010
Сообщений: 61
#1

Алгоритм - Delphi

09.03.2012, 07:24. Просмотров 264. Ответов 0
Метки нет (Все метки)

Всем доброго времени суток.

Есть некий алгоритм, который нужно переписать в код.

Вопрос заключается в следующем:
Имеется адрес, который имеет значение 55. На форме программы распологаются 24 CheckBox'а и кнопка. Каждому чеку соответствует значение от 12-36. В зависимости от выбранных чеков, по нажатию кнопки, в адресе должна проводиться замена значения 55 на указанное.
Перед заменой, необходимо проверять значение адреса, то есть, если оно равно 55, меняем его на 12, после того как оно снова стало равно 55, меняем его на 13 и так до 36. Если какой-нибудь чек не выбран, тогда переход на следующий.
Всё что у меня получилось составить:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TForm1.Timer1Timer(Sender: TObject);
var
res:int64;
begin
res:=0;
read_value($7E1D64,4,res);
Label1.Caption:=''+inttostr(res);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
res:int64;
begin
if Label1.Caption='55'
then
  begin
 
    if CheckBox1.Checked=True
    then
    res:=12;
    write_value($7E1D64,4,res);
 
    if CheckBox2.Checked=True
    then
    res:=13;
    write_value($7E1D64,4,res);
 
    if CheckBox3.Checked=True
    then
    res:=14;
    write_value($7E1D64,4,res);
 
    ...
    
    end;
end;
Не знаю, как составить алгоритм
 Комментарий модератора 
Теги кода исправлены модератором. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

http://www.cyberforum.ru/delphi-beginners/thread1273921.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.03.2012, 07:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Алгоритм (Delphi):

Алгоритм поиска подстрок!!!Алгоритм Рабина
Здраствуйте!!!!Очень хочется взглянуть реализацию данного алгоритма на делфи и...

Алгоритм try.. except
Здравствуйте. У меня такая проблема, я беру строку параметров, которая...

Алгоритм
Здравствуйте. Нужна помощь по алгоритму: например введено число в поле...

Полезный алгоритм
Задано число, месяц, год – определить название дня года.

Алгоритм Дейкстры
Вот рисунок по которому нада найти кратчайший путь от 1 вершины помагите плизз

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.03.2012, 07:24
Привет! Вот еще темы с решениями:

алгоритм Брезенхема
нужно построить окружность по алгоритму Брезенхема 1. с вводом центра...

Подскажите алгоритм
Пусть x0:=a; xk:=q*(xk-1)+b; шаг у переменной k - (1,2,...). Дано...

Алгоритм программы
Помогите пожалуйста понять алгоритм программы. Прогу скачал в инете, а как...

обратный алгоритм
пишу алгоритм lvlup/lvldown для игры вот что получилось procedure...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru