|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.03.2009, 20:19 | #11 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 141
|
т.е. ты имеешь ввиду вот так:
const n=abcdifghij; b:array[1..n]of char; ок!а как тогда n=Random(10)?????не понимаю нечегошеньки=( |
07.03.2009, 20:43 | #12 | ||
Ламер z:]
Пользователь
Регистрация: 19.01.2009
Сообщений: 60
|
Цитата:
Цитата:
Последний раз редактировалось Лунатик222; 07.03.2009 в 20:49. |
||
07.03.2009, 21:12 | #13 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 141
|
var a:array [1..10] of char;
b:array [1..10] of boolean; i,j:integer; n:char; begin {n:=chr(random(255));} randomize; for i:=1 to 10 do begin a[n]:=chr(random(255));{здесь компилятор выдаёт ошибку,нельзя приобразовывать тип char к integer?????} write(a[i], ' '); |
07.03.2009, 21:21 | #14 | |
Ламер z:]
Пользователь
Регистрация: 19.01.2009
Сообщений: 60
|
Цитата:
Код:
Последний раз редактировалось Лунатик222; 07.03.2009 в 21:24. |
|
07.03.2009, 21:35 | #15 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 141
|
УФ!!!!=)ВСЁ ОТДУПЛИЛ!!!!!СПАСИБО ВСЕМ!РЕСПЕКТЪ ЛУННОМУ!!!!ВОТ КОД,ВРОДЕ ПОШЛО!!! PS: n-оказалось то и ни к чему.
program first; var a:array [1..10] of char; b:array [1..10] of boolean; i,j:integer; begin randomize; for i:=1 to 10 do begin a[i]:=chr(random(255)); write(a[i]:6,'|'); end; writeln; for i:=1 to 10 do begin j:=random(1+1); if j=1 then b[i]:=true else b[i]:=false; write(b[i]:6,'|'); end; writeln; for i:=1 to 10 do begin if b[i]=true then write(a[i]:6,'|'); end; readln; end. Последний раз редактировалось -ushёl-; 07.03.2009 в 21:44. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент | LyaLya | Помощь студентам | 15 | 20.12.2009 14:12 |
C++ и массивы | StartMis | Помощь студентам | 4 | 19.12.2008 22:45 |
Массивы | Кирилл17 | Помощь студентам | 2 | 07.12.2008 21:08 |