Рандомный вывод текста

@ValeryPavlikov · Регистрация: 05.12.2015

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

Как сделать, чтобы текст выводился рандомно?

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
uses crt;
var b : integer;
k:=0;
begin
 
TextColor(15);
        writeln('Выберете верное ударение ');
        writeln('1. агонИя');
        writeln('2. агОния');
read(b);
writeln();
TextColor(7);
        if b = 2 then begin
k:=k+1;
TextColor(10);
writeln('Верно');
TextColor(7);
TextColor(14);
writeln('Нажмите Enter');
TextColor(7);
end else
begin
TextColor(12);
writeln('Неверно');
TextColor(7);
TextColor(14);
writeln('Нажмите Enter');
TextColor(7);
end;
 
readkey;
clrscr;
 
TextColor(15);
        writeln('Выберете верное ударение ');
        writeln('1. клАла');
        writeln('2. клалА');
read(b);
writeln();
TextColor(7);
        if b = 1 then begin
k:=k+1;
TextColor(10);
writeln('Верно');
TextColor(7);
TextColor(14);
writeln('Нажмите Enter');
TextColor(7);
end else
begin
TextColor(12);
writeln('Неверно');
TextColor(7);
TextColor(14);
writeln('Нажмите Enter');
TextColor(7);
end;
 
readkey;
clrscr;
 
TextColor(15);
        writeln('Выберете верное ударение ');
writeln('1. апострОф');
writeln('2. апОстроф');
read(b);
writeln();
TextColor(7);
        if b = 1 then begin
k:=k+1;
TextColor(10);
writeln('Верно');
TextColor(7);
TextColor(14);
writeln('Нажмите Enter');
TextColor(7);
end else
begin
TextColor(12);
writeln('Неверно');
TextColor(7);
TextColor(14);
writeln('Нажмите Enter');
TextColor(7);
end;
end.

@иван я · 07.12.2015, 21:32

ValeryPavlikov, слова попробуйте загнать в массив.

@GreenRadiation · 08.12.2015, 17:36

Использовать random(x), и вопросы отделить с помощью if то есть

Pascal
1
2
3
4
5
6
7
8
9
10
11
...
ran:=random(4);
If ran=1 then 
Begin 
...//один вопрос
End;
If ran=2 then
Begin
... // второй вопрос
End;
И т.д.

@ValeryPavlikov · 08.12.2015, 18:20 **[ТС]**

GreenRadiation,

не получается( Программа запускается, выполняет одно условие из 4 и выключается.
Может быть вы знаете решение этой проблемы? Буду очень благодарен)

@GreenRadiation · 08.12.2015, 18:45

Вы наверное не сделали цикл в начале програмы, используйте while перед рандомизацией что бы зациклить программу, и что бы она постоянно задавала вопросы, пока ее не закроют

@ValeryPavlikov · 08.12.2015, 20:45 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
while ran <= 4 do begin
ran:=random(4);
If ran=1 then 
Begin 
...//один вопрос
End;
If ran=2 then
Begin
... // второй вопрос
End;
End;

Правильно? Не очень знаю принцип работы рандома, поэтому не могу сообразить как сделать.

@GreenRadiation · 10.12.2015, 12:59

ValeryPavlikov,
Вроде должно работать
random(x) рандомизует с 0 до х, сам х он не будет рандомизировать!

@ValeryPavlikov · 11.12.2015, 18:32 **[ТС]**

как примерно должно это выглядеть?

@GreenRadiation · 24.12.2015, 21:41

Актуально?

@ValeryPavlikov · 24.12.2015, 21:49 **[ТС]**

нет. отвечено вот тут --> Как сделать, чтобы блоки программы выводились случайным образом?

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	07.12.2015, 21:32
	ValeryPavlikov, слова попробуйте загнать в массив. 0

@ValeryPavlikov 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 24
	08.12.2015, 18:20 [ТС]
	GreenRadiation, не получается( Программа запускается, выполняет одно условие из 4 и выключается. Может быть вы знаете решение этой проблемы? Буду очень благодарен) 0

@GreenRadiation 2 / 2 / 1 Регистрация: 07.12.2015 Сообщений: 15
	08.12.2015, 18:45
	Вы наверное не сделали цикл в начале програмы, используйте while перед рандомизацией что бы зациклить программу, и что бы она постоянно задавала вопросы, пока ее не закроют 0

@GreenRadiation 2 / 2 / 1 Регистрация: 07.12.2015 Сообщений: 15
	10.12.2015, 12:59
	ValeryPavlikov, Вроде должно работать random(x) рандомизует с 0 до х, сам х он не будет рандомизировать! 0

@ValeryPavlikov 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 24
	11.12.2015, 18:32 [ТС]
	как примерно должно это выглядеть? 0

@GreenRadiation 2 / 2 / 1 Регистрация: 07.12.2015 Сообщений: 15
	24.12.2015, 21:41
	Актуально? 0

@ValeryPavlikov 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 24
	24.12.2015, 21:49 [ТС]
	нет. отвечено вот тут --> Как сделать, чтобы блоки программы выводились случайным образом? 0