|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2017, 19:53 | #1 |
Новичок
Джуниор
Регистрация: 15.11.2017
Сообщений: 2
|
В чём ошибка? PascalABC.NET
Программа должна по сути перевести число из десятичной системы в двоичную, но никак не могу понять, почему программа выдает далёкий от правильного ответ.
program task3; var num,num2:integer; dz:string; begin writeln('Введите число:'); readln(num); dz:=''; repeat num2:=num; num2:=num2 mod 2; num:=num div 2; if num2=1 then dz:='1'+dz else dz:='0'+dz; until num>1; writeln(dz); end. |
15.11.2017, 21:47 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Замените в until условие на <
|
16.11.2017, 10:50 | #3 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
Код:
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
16.11.2017, 11:35 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
16.11.2017, 15:46 | #5 |
Новичок
Джуниор
Регистрация: 15.11.2017
Сообщений: 2
|
Спасибо большое, разобрался!)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
pascalABC.NET.При выводе массивов выдаёт нули, в чём ошибка? | watovl | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.03.2016 01:06 |
PascalABC.net | gogomon93 | Помощь студентам | 5 | 17.04.2011 18:48 |
pascalABC.net. При нажатии на кнопку вылетает ошибка на readln | barygan | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 15.04.2011 22:00 |