Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/19: Рейтинг темы: голосов - 19, средняя оценка - 4.63
:DeD
1 / 1 / 0
Регистрация: 27.12.2011
Сообщений: 41
1

Заполнить массив случайными символами

27.03.2012, 13:12. Просмотров 3909. Ответов 6
Метки нет (Все метки)

заполнить массив случайными символами(и буквы,и цифры,и всякими точками запятыми ковычками и т.д),вводить размерность с клавиатуры,и обновлять весь массив каждые пол секунды.завершить программу при нажатии клавиши Enter
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2012, 13:12
Ответы с готовыми решениями:

Заполнить двумерный массив случайными символами
заполнить двумерный массив случайными символами

Заполнить одномерный массив случайными неповторяющимися символами
заполните одномерный массив A(N)случайными неповторяющими симвалами

Заполните массив из 20 элементов случайными символами
1.Допустимый набор символов включает точные и заглавные латинские буквы, а...

Заполнить массив случайными числами от 1 до 100, вывести массив на экран
1) Реализовать динамический массив целых чисел, заполнить его случайными...

Заполнить массив случайными числами и отобрать в другой массив все чётные отрицательные числа
Заполнить массив случайными числами в интервале и отобрать в другой массив все...

6
Севак
любитель покушать
682 / 634 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
27.03.2012, 14:15 2
eD,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
a: array[1..100] of char;
i,b,n: integer;
begin
write('Введите размерность массива (не больше 100): ');
repeat
read(n);
until n in [1..100];
repeat
for i:=1 to n do begin
b:=random(255);
write(chr(b));
end;
Delay (500);
clrscr;
writeln('Введите размерность массива (не больше 100): ');
until 1<0;
end.
только не знаю как завершить при нажатии определенной клавиши(
0
PCixoPAD
21 / 21 / 18
Регистрация: 20.03.2012
Сообщений: 51
27.03.2012, 14:31 3
Севак, http://dezavarzin.narod.ru/4.1.htm
0
Puporev
Модератор
55465 / 42572 / 29422
Регистрация: 18.05.2008
Сообщений: 100,714
27.03.2012, 15:04 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

По идее так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a: array[1..100] of char;
    i,b,n: integer;
    c:char;
begin
clrscr;
write('Введите размерность массива (не больше 100): ');
repeat
readln(n);
until n in [1..100];
repeat
clrscr;
for i:=1 to n do
 begin
  b:=random(255);
  write(chr(b));
 end;
Delay (500);
if keypressed then
c:=readkey;
until c=#13;
end.
Но это работает в Турбо Паскале, для которого и составлялась задача. В Паскале АВС у меня это не работает, программа завершается без нажатия Enter. Видимо это связано с тем что нажатие Enter при вводе размера массива запоминается и через некоторое время выдается.
Если вместо Enter взять другую клавишу, например пробел,
Pascal
1
until c=#32;
то работает.
0
:DeD
1 / 1 / 0
Регистрация: 27.12.2011
Сообщений: 41
27.03.2012, 18:00  [ТС] 5
Puporev, можешь переделать ее,чтоб было с константой,так как раз получится на Enter останавить
0
Puporev
Модератор
55465 / 42572 / 29422
Регистрация: 18.05.2008
Сообщений: 100,714
27.03.2012, 18:02 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const n=20;
var a: array[1..n] of char;
    i,b: integer;
    c:char;
begin
repeat
clrscr;
for i:=1 to n do
 begin
  b:=random(255);
  write(chr(b));
 end;
Delay (500);
if keypressed then
c:=readkey;
until c=#13;
end.
1
:DeD
1 / 1 / 0
Регистрация: 27.12.2011
Сообщений: 41
27.03.2012, 18:04  [ТС] 7
Puporev, благодарю)
0
27.03.2012, 18:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2012, 18:04

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

Заполнить массив из 10 элементов случайными числами
Заполнить массив из 10 элементов случайными числами в интервале от 0 до 10 и...

Заполнить массив случайными числами из диапазона
Написать процедуру, которая заполняет массив T случайными числами из диапазона...


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

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

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