Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2017, 19:53   #1
Anger17
Новичок
Джуниор
 
Регистрация: 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.
Anger17 вне форума Ответить с цитированием
Старый 15.11.2017, 21:47   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Замените в until условие на <
type_Oleg вне форума Ответить с цитированием
Старый 16.11.2017, 10:50   #3
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Код:
begin
  var x:=ReadInteger('Введите число:');
  System.Convert.ToString(x,2).Print
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Старый 16.11.2017, 11:35   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Plague Посмотреть сообщение
код
так тогда может быть:
Код:
begin
  System.Convert.ToString(ReadInteger('Введите число:'),2).Print
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.11.2017, 15:46   #5
Anger17
Новичок
Джуниор
 
Регистрация: 15.11.2017
Сообщений: 2
По умолчанию

Спасибо большое, разобрался!)
Anger17 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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