Программа, переводящая текстовый файл в коды ASCII - не всегда работает

@Anwalt · Регистрация: 12.03.2017

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

Программа переводящая текстовый файл в коды ASCII. обычно работает, но когда как файл использую сам файл программы .pas переводится только буквально 8-10 символов и всё

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program k1;
var
  x,y:text;
  c:char;
  nx:string;
begin
  write('Введите имя файла.расширение: ');
  read(nx);
  assign(x,nx);
  writeln('Дан текстовый файл, переписать его в другой, заменяя символы кодами в таблице ASCII');
   reset(x);
   assign(y,'obnov.txt');
   rewrite(y);
  while not eof(x) do
begin
  while not eoln(x) do
begin
   read(x,c);
   write(y,' ',ord(c));
end;
   writeln(y);
end;
  close(x);
  close(y);
end.

@ZX Spectrum-128 · 22.03.2017, 20:23

Вам же уже решили эту задачу.
Дан текстовый файл, переписать его в другой, заменяя каждый символ на его код в таблице Ascii

@bormant · 23.03.2017, 11:51

В 23 добавить ReadLn(x);

@Anwalt · 23.03.2017, 20:45 **[ТС]**

Не работает,когда в случае исходного файла беру сам файлт программы, сейчас попробую в 23 добавить readln(x)

Добавлено через 1 час 32 минуты
всё так же, ввожу сам код программы .pas, результат- лишь первая строка программы переводится(112 114 111 103 114 97 109 32
107 49 59

@bormant · 23.03.2017, 21:03

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  f, g: Text;
  c: Char;
begin
  Assign(f,'y.pas'); Reset(f);
  Assign(g,'y.txt'); Rewrite(g);
  while not EoF(f) do begin
    while not EoLn(f) do begin
      Read(f,c); Write(g,' ',Ord(c));
    end;
    ReadLn(f); WriteLn(g);
  end;
  Close(f); Close(g);
end.

Прогон:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 118 97 114
 32 32 102 44 32 103 58 32 84 101 120 116 59
 32 32 99 58 32 67 104 97 114 59
 98 101 103 105 110
 32 32 65 115 115 105 103 110 40 102 44 39 121 46 112 97 115 39 41 59 32 82 101 115 101 116 40 102 41 59
 32 32 65 115 115 105 103 110 40 103 44 39 121 46 116 120 116 39 41 59 32 82 101 119 114 105 116 101 40 103 41 59
 32 32 119 104 105 108 101 32 110 111 116 32 69 111 70 40 102 41 32 100 111 32 98 101 103 105 110
 32 32 32 32 119 104 105 108 101 32 110 111 116 32 69 111 76 110 40 102 41 32 100 111 32 98 101 103 105 110
 32 32 32 32 32 32 82 101 97 100 40 102 44 99 41 59 32 87 114 105 116 101 40 103 44 39 32 39 44 79 114 100 40 99 41 41 59
 32 32 32 32 101 110 100 59
 32 32 32 32 82 101 97 100 76 110 40 102 41 59 32 87 114 105 116 101 76 110 40 103 41 59
 32 32 101 110 100 59
 32 32 67 108 111 115 101 40 102 41 59 32 67 108 111 115 101 40 103 41 59
 101 110 100 46

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	22.03.2017, 20:23
	Вам же уже решили эту задачу. Дан текстовый файл, переписать его в другой, заменяя каждый символ на его код в таблице Ascii 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	23.03.2017, 11:51
	В 23 добавить ReadLn(x); 0

@Anwalt 0 / 0 / 0 Регистрация: 12.03.2017 Сообщений: 17
	23.03.2017, 20:45 [ТС]
	Не работает,когда в случае исходного файла беру сам файлт программы, сейчас попробую в 23 добавить readln(x) Добавлено через 1 час 32 минуты всё так же, ввожу сам код программы .pas, результат- лишь первая строка программы переводится(112 114 111 103 114 97 109 32 107 49 59 0

Опции темы