Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
pro-cop
0 / 0 / 0
Регистрация: 14.03.2011
Сообщений: 9
#1

Текстовый файл - Delphi

10.05.2011, 18:18. Просмотров 439. Ответов 0
Метки нет (Все метки)

Дан текстовый файл литерных величин.
Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, называются СЛОВАМИ.
Найти какое-нибудь слово данного текста, которое начинается с буквы, значение которой хранится в Х.

я набросал только помогите исправить.

Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var s,slovo,slovo2:string;
    f:textfile;
    i,k,n,m,j,o,p:integer;
    x:char;
begin
    assign(f,'text.txt');
     reset(f);
         While not EOf(f) do
              begin
               readln(f,s);
                writeln(s);
                end;
     writeln('Vvedite bykvy');
         readln(x);
             i:=length(s);
              writeln(i);
            if x<>' ' then
             begin
                for J:=1 to i do
                 if (s[j]=' ') and (s[j+1]=x) then
                 slovo:=copy(s,j+1,i-j);
                     o:=pos(x,s);
                       p:=pos(' ',s);
                       writeln(o);
                       writeln(p);
                       for J:=o to p do
                       slovo2:=copy(slovo,o,p);
                       writeln(slovo2);
                       readln;
                       end;
 
 
 
 
 
end.
Добавлено через 15 часов 18 минут
ведь пустяковое задание, пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2011, 18:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Текстовый файл (Delphi):

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы - Delphi
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы соответствующей строки...

Вывод результата программы в текстовый файл и в двоичный файл с именем, задаваемым пользователем - Delphi
Подскажите пожалуйста, что нужно исправить. Нужно организовать вывод результата программы в текстовый файл и в двоичный файл с именем,...

Дан текстовый файл f. Переписать компоненты файла f в файл g, заменив все пробелы символом '!' - Delphi
Правильно ли я написала саму программу? и вообще, оно правда будет переписано в новый файл??? var f,g:textfile; c:char; ...

Файл: Записать в другой текстовый файл все ненулевые числа и номера строк, в которых они встретились. - Delphi
Создать текстовый файл, в который записать не менее 20 целых чисел, в диапазоне от -9 до 9. Вывести содержимое файла на экран. Записать в...

Не расшифровывается текстовый файл - Delphi
Всем привет! Есть небольшая программа по шифрованию текстовых файлов методом гаммирования. Возникла проблема с дешифрацией. При выборе...

Текстовый файл в Delphi - Delphi
В текстовом файле file1.txt находятся числа по одному в строке. Найти сумму первого и последнего из них. Как это решить?

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2011, 18:18
Привет! Вот еще темы с ответами:

Текстовый файл в массив - Delphi
Как перевести текстовый файл в массив так, чтобы каждый элемент массива(array of widechar) был ровно один символ? Допустим в файле...

Сформировать текстовый файл - Delphi
Сформировать текстовый файл t1, каждый символ которого является малой латинской буквой или цифрой. Сформировать текстовый файл t2,...

Создать текстовый(е) файл(ы) - Delphi
Обработка текстовых файлов Создать текстовый(е) файл(ы), содержащий(е): Координаты трех пар точек на плоскости. Найти пару с...

не шифрует текстовый файл - Delphi
подскажите пожалуйста чего не так... програма шифрует буквы, но когда ввожу слово целиком или предложение то нечего не прейсходит... ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru