Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 10.10.2012, 21:25   #1 (permalink)
gabriela007
Member
 
Регистрация: 03.09.2012
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Кодировочная книга

В текстовом файле заранее хранится какой-либо текст, например: Шифрование перестановкой текста символов заменой шифрование книга код поле ключ ключи.После запуска требуется ввести несколько таких слов из текста, хранящиеся в текстовом файле, которые нужно закрыть. Например введем: текста шифрование заменой код шифрования.
на экране появятся те номера мест, на которых введенные слова стоят в текстовом файле.
gabriela007 вне форума   Ответить с цитированием

Старый 10.10.2012, 21:25
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Аналогичные топики, которые своим содержанием должны быть вам полезны

Прошивка электронной книги teXet TВ-750HD
Не работает электронная книга
Книга - весы
Корпус - книга от Chewy
Digma e601 - электронная книга
Книга по ремонту ПК

Старый 10.10.2012, 22:48   #2 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 766
Записей в дневнике: 1
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Эммм язык программирования
Gruvi вне форума   Ответить с цитированием
Старый 10.10.2012, 23:33   #3 (permalink)
gabriela007
Member
 
Регистрация: 03.09.2012
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Gruvi Посмотреть сообщение
Эммм язык программирования
Паскаль.можно пошагово алгоритм просто написать
gabriela007 вне форума   Ответить с цитированием
Старый 14.10.2012, 13:23   #4 (permalink)
gabriela007
Member
 
Регистрация: 03.09.2012
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Код:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
var s,text,slovo:string;
    i,j,n,koltext,k:Integer;
    f:TextFile;
    v:array[1..100] of Integer;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

 //----------------------------------------------------
 writeln('Содержимое файла:');
 reset(f);
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  write(s,' ');
n:=n+1;
  S:=S + ' ';
  writeln;
  while Pos(' ',S) > 0 do
  Slovo:=Copy(S,1,Pos(' ',S)-1); {Выделяем слово из строки}
end;
write('Введите текст для кодировки:');
Readln(text);
koltext:=Length(text);
for i:=1 to koltext do
for j:=1 to n do
begin
  if text[i]=slovo[j] then v[i]:=j;
end;
for i:=1 to koltext do
write(v[i],' ');
writeln;
writeln('Для выхода нажмите enter');
close(f);
  readln
end.
попыталась сама написать код,но задача работает некорректно....помогите доработать код
gabriela007 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:54.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.