Размещено 4 года назад по предмету Информатика от AlikhanTokenov

40 Балллов! Помогите пожалуйста с задачей по Delphi(Pascal). Буду очень благодарен.
----------------------------------------------------------------
var i,input:integer;

begin
Writeln('Decimal To Binary');
Writeln('Enter any number(0-255) and press ');
write(' - ');
Readln(input);

for i:=1 to 8 do
begin
if input mod 2 = 0 then
begin
Write('0');
end;
if input mod 2 = 1 then
begin
write('1');
end;
end;

Readln;
end.
----------------------------------------------------------------
Надо чтобы десятичное число переводилось в двоичное, но тут проблема в том что мне нужно чтобы число выводилось в двоичном коде. Я никак это не могу сделать. Так как если я добавляю input:=input/2 внутри цикла последней строкой, то программа пишет "Incompatible types: 'Integer' and 'Extended' ". А если я меняю тип данных переменной input на real, то начинает ругаться mod(он работает только с целочисленным типом данных).

Ответ на вопрос

Ответ на вопрос дан petyaGavrikov

var i,input:integer;
s:string;
begin
Writeln('Decimal To Binary');
Writeln('Enter any number(0-255) and press ');
write(' - ');
Readln(input);
s:='';
for i:=1 to 8 do
begin
if input mod 2 = 0 then s:='0'+s
else s:='1'+s;
input:=input div 2;
end;
writeln(s);
Readln;
end.
1. Ответ на вопрос
  
  Ответ на вопрос дан AlikhanTokenov
  
  Кстати, дайте совет. Как быстро соображать в таких моментах? Как решать задачи, если не можешь понять как их решить? Как сообразить?
2. Ответ на вопрос
  
  Ответ на вопрос дан petyaGavrikov
  
  Главный совет - учиться, учиться и учиться! )
  Важно учить теорию и решать как можно больше задач. Хорошо также смотреть готовые решения (здесь очень важно учиться на ГРАМОТНО составленных программах). Во многих случаях найти ошибку (логическую) помогает вывод промежуточных результатов (с помощью write, например). Успехов!
3. Ответ на вопрос
  
  Ответ на вопрос дан BloodFireBD
  
  А мне друг говорил обратное, что нельзя смотреть на готовое. Сиди до конца пока не поймешь, ибо если ты посмотришь готовое, то ты ничему не учишься. Но спасибо, всё больше и больше желания появляется?
4. Ответ на вопрос
  
  Ответ на вопрос дан BloodFireBD
  
  )*
5. Ответ на вопрос
  
  Ответ на вопрос дан petyaGavrikov
  
  Друг отчасти прав. Здесь важно найти, что называется, золотую середину. Не искать сразу готовые решения, а сначала пытаться сделать самостоятельно. А потом уже смотреть - как подобные задачи решают специалисты. Кроме того, есть довольно много уже разработанных алгоритмов. Их просто нужно знать. Классика здесь - Д.Кнут "Искусство программирования". Обязательная книга для программистов!