|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.12.2008, 17:38 | #1 |
Регистрация: 30.11.2008
Сообщений: 4
|
Помогите отладить программу, плз!!! прога с пояснениями
Дана последовательность натуральных чисел, заканчивающаяся нулем. Для каждого просто числа Х данной последовательности найти такое У, что двоичная запись числа У получается из двоичной записи числа Х, путем изменения порядка цифр на обратный.
т.е. напимер число Х = 3 = 011 изменям порядок -> 110 = 6 = У программу составил, но компилятор ругатся на несовместимость какую-то и еще несколько непонятных вещей находит ((( Помогите пожалуйста довести до ума тут всё function prost(n:integer):boolean;// определяем является ли число простым var f,d,r:integer; begin d:=2; r:=round(sqr(n)); f:=1; while (d<=r) and (f<>0) do begin f:= n mod d; d:=d+1; end; if d>r then begin prost:=true; end else begin prost:=false; end; end; function to_dva(n:integer):integer;// переводим число в двоичную С.С. var x,y:integer; begin y:=0; while n>1 do begin x:=n div 2; n:=n mod 2; y:=y*10+x; end; if n=1 then y:=y+1; to_dva:=y; end; function to_des9t(n:integer):integer;// переводим число в 10-ю С.С. var n10,st2,k:integer; begin n10:=0; st2:=1; k:=0; while n>0 do begin k:=n div 10; n10:=n10+k*st2; st2:=st2*2; n:=n mod 10; end; to_des9t:=n10; end; const count=10; var m: array [1..count] of integer; s,t,i:integer; begin s:=0; // переменная служит для задания пос-го элемента массива нулем randomize; for i:=1 to (count-1) do begin read(m[i]); writeln(m[i]); s:=s+1; end; m[s]:=0 for i:=1 to count do begin if prost(m[i])=true then begin t:=m[i]; write('X =',t); to_dva(m[i]); to_des9t(to_dva(m[i])); write('Y = ',to_des9t(to_dva(m[i]))); writeln; end; end; readln end. p.s. Старался, но категорически не получается =((((( |
15.12.2008, 17:55 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Вставляя код не забывайте пожалуйста о тегах форматирования
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
16.12.2008, 20:09 | #3 |
Регистрация: 30.11.2008
Сообщений: 4
|
я вставлял когда - норм было, а потом сместилось, я файлик с норм форматированием прикрепил ))) сейчас главное прога запускается а не досчитывает все что нужно.. =((((
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите отладить программу. | TheKnyazz | Паскаль, Turbo Pascal, PascalABC.NET | 21 | 26.11.2008 17:51 |
Просьба отладить программу!! на языке СИ | Лидия | Общие вопросы C/C++ | 1 | 25.05.2008 17:57 |
надо отладить программу | Daddic | Помощь студентам | 3 | 20.04.2008 18:24 |
как можно отладить программу????? | Николай969 | Помощь студентам | 2 | 13.01.2008 19:33 |