Доделать программу шифр по книге

@GADC · Регистрация: 21.05.2010

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

суть вот в чем, есть 3 файла in.txt out.txt и sh.txt
в файле sh.txt находятся в строчку символи абв...яАБВ...я1234567890_, программа берет символы из файла in.txt находит символ в sh.txt и записывает вместо в out.txt номер символа
например
in.txt содержит авд, после выполнения программы out.txt будет содержать 135

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
26
27
28
29
30
const
    k = 76;
var
     n: integer;
    i:integer;
    inp, out, sh:text;
    st,st1,st2:string;
 
begin
    assign(inp,'in.txt');
    assign(out,'out.txt');
    assign(sh,'sh.txt');
    reset(inp);
    reset(sh);
    rewrite(out);
    readln(sh,st);
    while not eof (inp) do
    begin
    readln(inp,st1);
    n:= length (st1); 
     for i:= 1 to n do 
     begin
     if st1[i]=st[i] then
     str(i,st2);
         
 end;
 writeln(out, st2);
 end;
 
readln;

@Puporev · 24.11.2016, 09:53

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
26
var n: integer;
    i:integer;
    f,g,h:text;
    st,st1,st2:string;
begin
    assign(f,'in.txt');
    assign(g,'out.txt');
    assign(h,'sh.txt');
    reset(f);
    reset(h);
    rewrite(g);
    readln(h,st);
    close(h);
    while not eof (f) do
     begin
      readln(f,st1);
      st2:='';
      for i:=1 to length(st1) do
      st2:=st2+inttostr(pos(st1[i],st))+' ';//пробелы чтобы легче проверять тестовый файл,
                                            // их после тестирования нужно убрать
      writeln(g,st2);
     end;
   close(f);
   close(g);
   write('Файл in.txt прочитан преобразованные строки записаны в файл out.txt')
end.

@GADC · 24.11.2016, 14:35 **[ТС]**

извините а можете еще оказать помощь с обратным процессом
он мне почему то выдает вместо Добрый день - Джорыень

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
var n,p: integer;
    i:integer;
    f,g,h:text;
    st,st1,st2,st3:string;
begin
    assign(g,'dsh.txt');
    assign(f,'out.txt');
    assign(h,'sh.txt');
    reset(f);
    reset(h);
    rewrite(g);
    readln(h,st);
    close(h);
    st2:='';
    i:=1;
    while not eof (f) do
     begin
      readln(f,st1);
      //for i:=1 to length(st1) do
      while (i<>length(st1)) or (i<length(st1))  do
      begin
      
      if (st1[i]<>' ') and (st1[i+1]<>' ') then
      begin
      st3:=copy(st1,i,2);
      val(st3,n,p);
      i:=i+2;
      end;
      
      if (st1[i]<>' ') and (st1[i+1]=' ') and (st[i-1]=' ') then
      begin
      st3:=copy(st1,i,1); 
      val(st3,n,p);
      i:=i+1;
      end;
      
      if st1[i]=' ' then
      i:=i+1;
      
      if (st1[i]<>' ') and (st1[i-1]<>' ')then
      begin 
       st3:=copy(st1,i-1,2); 
      val(st3,n,p);
      i:=i+1;
      
      end;    
      writeln(n);
      st2:=st2+st[n];
      end;
      writeln(g,st2);
      end;
     
   close(f);
   close(g);
  // write('Файл in.txt прочитан преобразованные строки записаны в файл out.txt')
end.

@Puporev · 24.11.2016, 14:42

GADC
Если в файле записаны числа через пробел, то читается просто

Pascal
1
2
3
4
5
6
st2:='';
while not seekeof(f) do
 begin
  read(f,a);//a целого типа
  st2:=st2+st[a];
 end;

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

Доделать программу шифр по книге

Решение