Переписать числа в выходной файл в двоичном коде - Pascal

Узнай цену своей работы

Формулировка задачи:

1.Ввести масив записів, який містить призвіще та екзаменаційні оцінки. Створити новий масив, що містить прізвіще, та розмір стипендії, залежно від здачі сесії. Якщо стипендія не призначається, поле повинно бути пустим. 2. Створити два файли даних з полями прізвище та ціна за деяку послугу. Якщо прізвища повторюються, то просумувати ціну послуг, переписати дані в вихідний файл.. 3.Створити текстовий файл, який містить, цілі числа. Переписати ці числа в вихідний файл в двійковому коді. вообщем, вот такая у меня проблема которую я сам неуспею решить наряду с другими. Прошу вашей помощи, сам буду помогать пока, что в других темах! Удачи всЕм!)

Решение задачи: «Переписать числа в выходной файл в двоичном коде»

textual
Листинг программы
uses crt;var f1,f2:text;i,j:byte;n:longint;
function dec(j:longint):string;var i:longint;s:string;
begin i:=1073741824;s:='';while(i>0)do
begin if (j and i)<>0 then
s:=s+'1' else if(s<>'')then s:=s+'0';
i:=i div 2;end;dec:=s;end;
begin clrscr;write('Count of numbers: ');readln(j);
assign(f1,'h_69_in.txt');rewrite(f1);
for i:=1 to j do begin readln(n);writeln(f1,n);end;
close(f1);reset(f1);assign(f2,'h_69_out.txt');rewrite(f2);
for i:=1 to j do begin readln(f1,n);writeln(f2,dec(n));end;
close(f1);close(f2);writeln('Files were added!');readkey;end.

Объяснение кода листинга программы

  1. В начале кода объявляются необходимые переменные и используются функции из библиотеки crt.
  2. Создается функция dec, которая принимает на вход число j и возвращает строку s, представляющую число в двоичной системе. Внутри функции используется цикл while, который выполняется до тех пор, пока значение переменной i не станет равным нулю. Внутри цикла проверяется, является ли число j четным или нечетным. Если число j четное, то к строке s добавляется цифра '1', если строка s уже не пустая. Если число j нечетное, то к строке s добавляется цифра '0'. После этого значение переменной i делится на 2.
  3. Вызывается функция dec для числа j. Результат сохраняется в переменной dec.
  4. Выводится сообщение о количестве чисел, которые будут записаны в файл.
  5. Открывается файл h_69_in.txt, считывается число n, и записывается это число в файл h_69_out.txt.
  6. После чтения всех чисел из файла h_69_in.txt закрываются файлы h_69_in.txt и h_69_out.txt. Выводится сообщение о том, что файлы были добавлены.
  7. Запрашивается нажатие клавиши для выхода из программы.

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы