10.10.2012, 21:25 | #1 (permalink) |
Member
Регистрация: 03.09.2012
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Кодировочная книга
на экране появятся те номера мест, на которых введенные слова стоят в текстовом файле. |
10.10.2012, 21:25 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные топики, которые своим содержанием должны быть вам полезны Прошивка электронной книги teXet TВ-750HD Не работает электронная книга Книга - весы Корпус - книга от Chewy Digma e601 - электронная книга Книга по ремонту ПК |
14.10.2012, 13:23 | #4 (permalink) |
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|