Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
pro-cop
0 / 0 / 0
Регистрация: 14.03.2011
Сообщений: 9
1

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

10.05.2011, 18:18. Просмотров 450. Ответов 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
Ответы с готовыми решениями:

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

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

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

Даны текстовый файл f. Записать в файл g элементы файла f
в обратном порядке.(консоль) Кто-нибудь знает как? Помогите, прошу.

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

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

Записать 60 случайных чисел в типизированный файл,переписать по 6 чисел в строке в текстовый файл
ЗАДАНИЕ: записать 60 случайных чисел в типизированный файл,переписать по 6 ...

отсортировать текстовый файл
не знаю,для чего сортировать текст,но такое задание. не очень получается,любым...

Создать текстовый(е) файл(ы)
Обработка текстовых файлов Создать текстовый(е) файл(ы), содержащий(е): ...


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

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

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