Во второй файл нужно перенести числа из первого файла в двоичной системе числения

@Tereqwer · Регистрация: 24.11.2017

Author24 — интернет-сервис помощи студентам

Нужно создать 2 файла, в первый нужно записать с клавиатуры числа, а во второй файл нужно перенести числа из первого файла в двоичной системе числения.

@ZX Spectrum-128 · 11.12.2017, 18:30

Функция отсюда:
Перевод из десятичной системы в двоичную

Pascal

function dec2bin(x: integer): string;
var
  s: string;
begin
  s := '';
  while x > 0 do
  begin
    s := chr(ord('0') + x mod 2) + s;
    x := x div 2;
  end;
  dec2bin := s;
end;
 
var
  i, n, k: integer;
  f1, f2: text;
 
begin
  assign(f1, 'first.txt');
  rewrite(f1);
  n := 10;
  for i := 1 to n do
  begin
    readln(k);
    writeln(f1, k);
  end;
  close(f1);
  assign(f2, 'second.txt');
  rewrite(f2);
  reset(f1);
  while not eof(f1) do
  begin
    readln(f1, k);
    writeln(f2, dec2bin(k));
  end;
  close(f1);
  close(f2);
end.

@Tereqwer 0 / 0 / 0 Регистрация: 24.11.2017 Сообщений: 25
		1
	Во второй файл нужно перенести числа из первого файла в двоичной системе числения 11.12.2017, 18:20. Показов 1237. Ответов 1 Метки c, pascalabc, файлы (Все метки) Нужно создать 2 файла, в первый нужно записать с клавиатуры числа, а во второй файл нужно перенести числа из первого файла в двоичной системе числения. 0

	11.12.2017, 18:30

Во второй файл нужно перенести числа из первого файла в двоичной системе числения

Решение