Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ValeryPavlikov
0 / 0 / 0
Регистрация: 05.12.2015
Сообщений: 24
#1

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

07.12.2015, 20:31. Просмотров 692. Ответов 9
Метки нет (Все метки)

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

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.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2015, 20:31
Ответы с готовыми решениями:

Рандомный вывод параметров линейного массива.
Дан одномерный массив из n целых элементов, значения n элементов массива на...

Вывод текста
Здравствуйте уважаемые, подскажите как вывести содержимое txt документа в...

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

Вывод текста в рамке
Нужно вывести на экран текст в рамке вида = и произвольного вида.помогите...

Вывод цветного текста
Здравствуйте. Мне нужно, чтобы ниже написанная программа выводила цветной...

9
иван я
15 / 15 / 16
Регистрация: 15.12.2012
Сообщений: 533
07.12.2015, 21:32 #2
ValeryPavlikov, слова попробуйте загнать в массив.
0
GreenRadiation
2 / 2 / 1
Регистрация: 07.12.2015
Сообщений: 15
08.12.2015, 17:36 #3
Использовать 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;
И т.д.
0
ValeryPavlikov
0 / 0 / 0
Регистрация: 05.12.2015
Сообщений: 24
08.12.2015, 18:20  [ТС] #4
GreenRadiation,

не получается( Программа запускается, выполняет одно условие из 4 и выключается.
Может быть вы знаете решение этой проблемы? Буду очень благодарен)
0
GreenRadiation
2 / 2 / 1
Регистрация: 07.12.2015
Сообщений: 15
08.12.2015, 18:45 #5
Вы наверное не сделали цикл в начале програмы, используйте while перед рандомизацией что бы зациклить программу, и что бы она постоянно задавала вопросы, пока ее не закроют
0
ValeryPavlikov
0 / 0 / 0
Регистрация: 05.12.2015
Сообщений: 24
08.12.2015, 20:45  [ТС] #6
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;
Правильно? Не очень знаю принцип работы рандома, поэтому не могу сообразить как сделать.
0
GreenRadiation
2 / 2 / 1
Регистрация: 07.12.2015
Сообщений: 15
10.12.2015, 12:59 #7
ValeryPavlikov,
Вроде должно работать
random(x) рандомизует с 0 до х, сам х он не будет рандомизировать!
0
ValeryPavlikov
0 / 0 / 0
Регистрация: 05.12.2015
Сообщений: 24
11.12.2015, 18:32  [ТС] #8
как примерно должно это выглядеть?
0
GreenRadiation
2 / 2 / 1
Регистрация: 07.12.2015
Сообщений: 15
24.12.2015, 21:41 #9
Актуально?
0
ValeryPavlikov
0 / 0 / 0
Регистрация: 05.12.2015
Сообщений: 24
24.12.2015, 21:49  [ТС] #10
нет. отвечено вот тут --> Как сделать, чтобы блоки программы выводились случайным образом?
0
24.12.2015, 21:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2015, 21:49

Побуквенный вывод текста с задержкой
Написать программу которая выводит на экран сообщения в телеграфном стиле т.е...

Вывод цветного текста в графическом режиме
Помогите написать задачку) Юзаю PascalABC)) Суть: Вводится слово. Вывести...

Вывод текста каким-либо цветом
Подскажите, как в паскале ABC выводить текст каким-либо цветом. Знаю, что...


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

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

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