|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.03.2010, 22:15 | #1 |
Регистрация: 30.03.2010
Сообщений: 3
|
Системы счисления и функция random
Многократно случайным образом определяется 1<=N<=32767. Для всех N вывести N_3,N_5,где N_3 и N_5 значение N в троичной и пятеричной системах счисления. Результат - таблица.
Вот кусок сделал, а в системы счисления не получается чёт=) program z; uses crt; var n,i,k:integer; begin clrscr; randomize; writeln('vvedite kollichestvo slychainblx n'); readln(k); for i:=1 to k do begin n:=trunc((32767-1)*random+1); writeln(n); end; end. Помогите пожалуйста! |
30.03.2010, 22:35 | #2 |
Форумчанин
Регистрация: 02.02.2010
Сообщений: 305
|
давно не писал на паскале. Вобщем принцип перевода таков
Код:
Skype: CODERua
|
31.03.2010, 17:28 | #3 |
Регистрация: 30.03.2010
Сообщений: 3
|
gg
большое спасибо
|
31.03.2010, 18:40 | #4 |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
только не
Код:
Код:
|
31.03.2010, 20:13 | #5 |
Форумчанин
Регистрация: 02.02.2010
Сообщений: 305
|
Не обязательно, можешь проверить прогнав пару примеров моим способом и своим.
Skype: CODERua
|
24.04.2010, 14:26 | #6 |
Регистрация: 30.03.2010
Сообщений: 3
|
1
Забыл вот тру прога:
program speczad; uses crt; const lol='0123456789'; a:array[1..2] of byte=(3,5); var t,n1,i,f,j,k,c,n:integer;b:array[1..2] of string; st:string;h:string[1]; begin clrscr; randomize; writeln('vvedite kollichestvo slychainblx n'); readln(k); for i:=1 to k do begin n:=random((32767-1)+1); writeln(i,' chislo - ',n); f:=n; for j:=1 to 2 do begin n:=f; st:=''; while (n>0) do begin c:=n mod a[j]; n1:=n div a[j]; n:=n1; h:=copy(lol,(c+1),1); insert(h,st,1); b[j]:=st; end; end; writeln('|---------------------------------------------------------|'); writeln('|------10--------------',a[1],'---------------',a[2],'-----------------|'); writeln('|---------------------------------------------------------|'); writeln(' ',f,' ',b[1],' ',b[2],' '); writeln('|---------------------------------------------------------|'); writeln('|---------------------------------------------------------|'); readln; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Системы счисления | ruslan-gonch | Общие вопросы Delphi | 1 | 26.11.2009 17:20 |
Системы счисления | Nikitaunett | Помощь студентам | 17 | 24.11.2009 20:20 |
Системы счисления | бедный_студент | Помощь студентам | 8 | 18.02.2009 23:25 |