Как сократить данный отрывок кода?

@rolandas · Регистрация: 20.04.2011

Студворк — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
if x=1 then
begin
Image1.Hide;
Image3.Hide;
Image4.Hide;
Image5.Hide;
Image6.Hide;
Image7.Hide;
Image8.Hide;
Image2.Show;
end;
 
if x=2 then
begin
Image1.Hide;
Image2.Hide;
Image3.Hide;
Image5.Hide;
Image6.Hide;
Image7.Hide;
Image8.Hide;
Image4.Show;
end;

и существует-ли лимит накладывания картинок друг на друга в форме?..

@Arcor · 04.10.2018, 16:30

только там скорее всего будут нечетные вопросы, а четные ответы)))) судя по его 1, 2, 3))) ну\. я не думаю просто, что сперва будет ответ идти, а затем вопрос))))

Добавлено через 3 минуты

Сообщение от Matan!

Номер картинки. Что не ясно? Мож, не так я понял тебя..

Сообщение от Matan!

Delphi
1
StrToInt(Copy(Image1.Name, 1, Length(Image1.Name) - 1)) // индекс

явно, ты хотел так вот написать при условии, что Q11, A11

Delphi
1
StrToInt(Copy(Image1.Name, 2, Length(Image1.Name)))

@rolandas · 04.10.2018, 20:50 **[ТС]**

да, вопросы - четные. а при выпадании сразу нечетного - сделать опять генерацию нового числа

вот бы простенькую проверку на четность числа ммм..

@Arcor · 04.10.2018, 21:33

Сообщение от rolandas

сделать опять генерацию нового числа

а если злой генератор будет нечетные всегда генерить?))) это не выход...

Сообщение от rolandas

вот бы простенькую проверку на четность числа ммм

ну когда число четное??? ну когда например делится на 2 без остатка. т.е. остаток равен нулю.. когда еще четное??? когда нулевой бит числа в 0))))

Delphi
1
2
3
x := Random(3000);
if x mod 2 = 1 then // число не четное, остаток 1...
x := x - 1; // сделаем шаг назад, так как это должен быть вопрос перед этим ответом, если сделать +1, будет следющий вопрос

ну совсем чтоль без основ всех основ тута?)

@Matan! · 05.10.2018, 02:12

Сообщение от Arcor

явно, ты хотел так вот написать при условии, что Q11, A11

Именно

Сообщение от rolandas

вот бы простенькую проверку на четность числа ммм..

Delphi
1
2
if not Odd(x) then // если число чётное...
.....

Либо как-то так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
if Odd(x) then
begin
  x := x - 1;
  // спрашиваем
  // отвечаем
end
else
begin 
  // спрашиваем
  // отвечаем
end;

Добавлено через 3 минуты

Не по теме:

Упс, прости, Arcor, вгляделся в твой код,увидел то же самое.. А я только начал думать, что если х=1, попадём не туды...

@krapotkin · 05.10.2018, 08:23

я ждал ждал
что, никто не предложит
RANDOM(N DIV 2)
RANDOM(N DIV 2)+1
??

@Arcor · 05.10.2018, 09:55

Сообщение от krapotkin

я ждал ждал
что, никто не предложит

ну так не напрасно и ждал, никто же так и не предложил

ну конечно, с утра со свежей головой-то , а вечером уже не думалось)))))))) (типа отмаза )))) )

да все равно, что-то мне не нравится такое решение... четные/нечетные.. потом напишет он этот рандом.. потом понадобится, как пить дать, разбить все на категории и начнется. вот индексы больше "траляля" к одному относятся, индексы в другом диапазоне - другое... как выбрать потом десяток вопросов по одной теме.. ну 1500 вопросов подряд.. это дибильнуться можно, если проходить тест))) тоже самое что открыть словарь и учить язык по нему начиная с А и заканчивая Я

потом еще придется полюбому запоминать вопрос на котором закончили сегодня, чтобы продолжить завтра.. ээхх тут столькООО всего будет))) Файлы изначлаьно по какой-то логике названы уже так, чтобы суметь произвести ну минимум 5 операций с этими названиями))) я так думаю)

Лучше давайте сразу придумаем, структуру, хранение данных.. и поможем получить человеку права(ну.. судя по билетам)

Для универа(для хорошой знакомой профессорки еще со времен универа) тож недавно писал для студяг прогу-тестировщик, или как она праивльно по русски.. Суть просто в том, я давно уже ее написал, но я ее написал так, как я ее видел, а потом полетели желания студяг, что и как они хотят видеть в проге, до многого даже и не додумаешься сам.. то цветочки.. то ягодки..после обговора, что и как должно быть там, начал замазывать дырки и латать бесконечно прогу, а потом плюнул на все и написал с нуля, что вышло быстрее, качественнее и с динамически встраиваемым функционалом для расширения

@rolandas · 05.10.2018, 13:39 **[ТС]**

ммм дяя.. с скриншота докапалися..

по категориям не буду делать, но по числу билетов - будет ещё 1500. повторении не критично и таймеры по времени не нужны или подсчеты правильных-неправильных ответов. всем спасибо, окончательный вот код:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
unit Unit1;
 
interface
 
uses
  Windows, JPEG, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
Form1: TForm1;
ma : array[0 .. 10] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
x,y,ii : Integer;
a,b,c,d : String;
hours, mins, secs, milliSecs : Word;
 
begin
 
DecodeTime(now, hours, mins, secs, milliSecs);
RandSeed := milliSecs;
begin
x := 1 + Random(470);
if x mod 2 = 0 then
else
x := 1 + Random(470);
if x mod 2 = 0 then
else
x := 1 + Random(470);
if x mod 2 = 0 then
else
x := 1 + Random(470);
if x mod 2 = 0 then
else
x := 1 + Random(470);
if x mod 2 = 0 then
else
x := 1 + Random(470);
if x mod 2 = 0 then
else
x := 1 + Random(470);
if x mod 2 = 0 then
else
x := 1 + Random(470);
end;
 
d :=IntToStr(x);
Label2.Caption:=d;
 
ma[1] := x;
b := 'a\';
a := IntToStr(x) + '.jpg';
c := b+a;
 
Image1.Picture.LoadFromFile(c);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
x,y,ii : Integer;
a,b,c : String;
 
begin
y := ma[1];
x := y - 1;
b := 'a\';
a := IntToStr(x) + '.jpg';
c := b+a;
 
Image1.Picture.LoadFromFile(c);
 
end;
 
end.

@Arcor · 05.10.2018, 13:57

а это что еще за ге....ой, простите... в строчках 45-66????? первый вопрос для чего, второй вопрос, если это действительно надо, почему не циклом ?))

@Matan! · 05.10.2018, 14:26

Сообщение от Arcor

почему не циклом

Там две строки написать надо:

Delphi
1
2
    if x mod 2 <> 0 then
      Inc(x);

вместо всей этой мозгое...

Добавлено через 39 секунд
А учитывая это:

Сообщение от rolandas

ma[1] := x;
b := 'a\';
a := IntToStr(x) + '.jpg';
c := b+a;

я отписываюсь..

@Arcor · 05.10.2018, 14:53

нене, это у него алгоритм выпадение числа с шансом получается)) рандомить несколько раз если... вот нахера только...
тут уже страниц в этой теме больше, чем алгоритм текущей программы, пусть учится. я не имею нчиего против! наоборот.

я тоже тупил по страшному в самом начале)) да и сейчас иногда часто бывает))))

@rolandas · 05.10.2018, 15:48 **[ТС]**

за право тупить товарищи!

за

Delphi
1
2
if x mod 2 <> 0 then
      Inc(x);

спасибо

а массив там вот для чего:

если при первом запуске запускать программу и нажать сразу на показать ответ - вторую кнопку
значение х получалось ужасно большое число.
в массив не локально записываю значение единицу для отображения первой картинки вместо зависания.
а почему массив? а потому, что локально если записываю x:=1; после formcreate
почему-то не сохраняет значения единицы после нажатия второй кнопки.
а не в локальном вариянте с массивом - получилось

@D1973 · 05.10.2018, 16:27

Сообщение от rolandas

если при первом запуске запускать программу и нажать сразу на показать ответ - вторую кнопку
значение х получалось ужасно большое число

А что мешает задизаблить эту кнопку до тех пор, пока х не примет какое-то значение? Эта х у Вас нигде не инициализируется после объявления - вот и несуразно большое число в момент несанкционированного нажатия. Либо при создании формы проводите инициализацию, либо открывайте доступ к кнопке только после того, как х примет вменяемое значение.

@rolandas · 05.10.2018, 16:36 **[ТС]**

вот именно, при создании формы после formcreate
писал:

Delphi
1
2
3
procedure TForm1.FormCreate(Sender: TObject);
var
x:=1;

не работало.

@D1973 · 05.10.2018, 17:06

rolandas, Вы вообще хоть что-то для совсем-совсем начинающих пробовали читать? Знаете - здорово помогает...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 x := 1;
end;

@Arcor · 05.10.2018, 19:17

Сообщение от D1973

задизаблить

у меня аж чувство тревоги разыгралось внутри, пока я прочитал наконец-то это слово.. попытки навреное с седьмой

@rolandas · 05.10.2018, 19:37 **[ТС]**

ребят, задумайтесь о масштабности: можно уметь 0.0001% (число нолей после запятой не критично) долю программирования, чтобы сделать форму с кнопкой и выводом картинки и этим уже гордиться, особенно если эти картинки уже помогают в какой то другой учебе чего-то другого

другое дело зубрить для понимания дела, требовать от себя создать новые или выучить уже существующие решения в оптимизации кода..

Добавлено через 7 минут
если хорошенько крякануть комерческий софт, то возможно энейблиться визибильность лайтинигого будущего

@D1973 · 05.10.2018, 20:44

Не по теме:

Сообщение от rolandas

и этим уже гордиться

Вот и все у нас так: навалят кучу навоза не к месту и дуются от гордости - эвон, какие мы аграрии... А нет, чтобы к советам людей, всю жизнь на земле работающих, прислушаться... :( Ну это так, лирика отвлеченная...

Новые блоги и статьи Все статьи Все блоги /
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .

@rolandas 23 / 12 / 2 Регистрация: 20.04.2011 Сообщений: 382
	04.10.2018, 20:50 [ТС]
	да, вопросы - четные. а при выпадании сразу нечетного - сделать опять генерацию нового числа вот бы простенькую проверку на четность числа ммм.. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	05.10.2018, 08:23
	я ждал ждал что, никто не предложит RANDOM(N DIV 2) RANDOM(N DIV 2)+1 ?? 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	05.10.2018, 13:57
	а это что еще за ге....ой, простите... в строчках 45-66????? первый вопрос для чего, второй вопрос, если это действительно надо, почему не циклом ?)) 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	05.10.2018, 14:53
	нене, это у него алгоритм выпадение числа с шансом получается)) рандомить несколько раз если... вот нахера только... тут уже страниц в этой теме больше, чем алгоритм текущей программы, пусть учится. я не имею нчиего против! наоборот. я тоже тупил по страшному в самом начале)) да и сейчас иногда часто бывает)))) 0

@rolandas 23 / 12 / 2 Регистрация: 20.04.2011 Сообщений: 382
	05.10.2018, 19:37 [ТС]
	ребят, задумайтесь о масштабности: можно уметь 0.0001% (число нолей после запятой не критично) долю программирования, чтобы сделать форму с кнопкой и выводом картинки и этим уже гордиться, особенно если эти картинки уже помогают в какой то другой учебе чего-то другого другое дело зубрить для понимания дела, требовать от себя создать новые или выучить уже существующие решения в оптимизации кода.. Добавлено через 7 минут если хорошенько крякануть комерческий софт, то возможно энейблиться визибильность лайтинигого будущего 0