Как в калькуляторе вывести случайную фразу

@Антонище · Регистрация: 11.12.2017

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

Помогите решить интересную задачку, хочу что бы калькулятор при нажатии определенной кнопки выдавал текстовый ответ случайным образом, текст предполагается прикольный,
вот исходный код в PascalABCNET:

Pascal
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
98
99
100
101
102
103
104
105
106
107
108
Unit Unit1;
 
interface
 
uses System, System.Drawing, System.Windows.Forms;
 
type
  Form1 = class(Form)
    
    procedure button8_Click(sender: Object; e: EventArgs);
    procedure button7_Click(sender: Object; e: EventArgs);
    procedure button5_Click(sender: Object; e: EventArgs);
    procedure button3_Click(sender: Object; e: EventArgs);
    procedure button6_Click(sender: Object; e: EventArgs);
    procedure button4_Click(sender: Object; e: EventArgs);
    procedure button2_Click(sender: Object; e: EventArgs);
    procedure button1_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    button1: Button;
    button2: Button;
    button3: Button;
    button4: Button;
    button5: Button;
    button6: Button;
    button7: Button;
    button8: Button;
    textBox1: TextBox;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;
 
implementation
 
 
var a, b, res:integer; s:string;
 
procedure Form1.button8_Click(sender: Object; e: EventArgs);
begin
  textBox1.Text:= textBox1.Text+'1';
end;
 
procedure Form1.button7_Click(sender: Object; e: EventArgs);
begin
  textBox1.Text:= textBox1.Text+'2';
end;
 
 
 
procedure Form1.button3_Click(sender: Object; e: EventArgs);
begin
a:=StrToint(textbox1.Text);
  textbox1.Text:='';
  s:='+';
end;
 
procedure Form1.button6_Click(sender: Object; e: EventArgs);
 
begin
 
  b:=StrToint(textbox1.Text);
  if s='+' then res:=a+b;
  if s='-' then res:=a-b;
  textbox1.Text:=IntToStr(res);
end;
 
procedure Form1.button4_Click(sender: Object; e: EventArgs);
begin
  textbox1.Text:='';
end;
 
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
  a:=StrToint(textbox1.Text);
  textbox1.Text:='';
  s:='-';
end;
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
 Randomize; { чтобы случайный ряд не повторялся }
 
    
    case Random(10) of { здесь начинаются проблемы }
      0: S:='не дождешься';
      1: S:='не будить';
      2: S:='а самому, слабо?';
      3: S:='Это элементарно, Ватсон!';
       4: S:='Это элементарно, Ватсон!';
        5: S:='Это элементарно, Ватсон!';
         6: S:='Это элементарно, Ватсон!';
    
       7: S:='Это элементарно, Ватсон!';
        8: S:='Это элементарно, Ватсон!';
         9: S:='Это элементарно, Ватсон!';
           else S:='Не знаю, я не местный';
    end;
    textbox1.text:= textbox1.text+IntToStr(PABCSystem.random(S));
end;
 
 
end.

@JuriiMW · 12.12.2017, 07:25

Pascal
1
2
3
4
5
6
7
begin
  WriteLn(
    
    arr('да','нет','вероятно','невероятно')[Random(4)]
  
  );
end.

@Антонище · 12.12.2017, 09:45 **[ТС]**

Спасибо выручил, только в данном коде используется (PABCSystem.random), вместо Random

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Антонище 0 / 0 / 0 Регистрация: 11.12.2017 Сообщений: 2
	12.12.2017, 09:45 [ТС]
	Спасибо выручил, только в данном коде используется (PABCSystem.random), вместо Random 0