0
Program PerevodChisla;

    procedure Dec2Bin(var decim : integer; binar: string);
begin
  readln(Decim);
  if decim > 0 then 
     begin
     if Decim mod 2 = 0 then 
         binar := Binar + '0';
       else 
         binar := Binar + '1';
     end;
     
  end;

var
a:integer;
s:string; 

begin
readln(a);
Dec2Bin(a, s);
writeln(s);
end.
2
  • следующий вопрос будет, почему программа не работает... 1 июл 2021 в 10:18
  • 1
    Не нужно после получения ответа модифицировать вопрос так, что перестает быть видна исходная проблема 1 июл 2021 в 10:58

1 ответ 1

0

Уберите точку с запятой после

binar := Binar + '0'

Вы же не делаете многострочный блок begin .. end

Только вот все равно не сработает верно - хотя бы потому, что строку вы передаете без var, так что после выхода из функции переданная строка останется неизменной...

А вообще - непонятно, что вы реально хотите. По сути вы считываете какое-то число, выбрасываете, читаете новое число и пытаетесь вывести 0 или 1 в зависимости от его четности. Это точно то, что вы хотели?

4
  • Я хочу написать программу, которая будет преобразовывать десятичные числа в двоичные. Ошибка с else ушла, но моя цель не исполнена
    – kwokka
    1 июл 2021 в 10:27
  • ideone.com/adTQ1g
    – Harry
    1 июл 2021 в 10:59
  • @Harry достаточно var binar: string; размер указывать не нужно 1 июл 2021 в 11:08
  • @AntonShchyrov Охотно поверю - последний раз на Pascal я программировал в 1990-х...
    – Harry
    1 июл 2021 в 12:41

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.