Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 21.06.2014
Сообщений: 10
1

Написать функцию str(t), которая в заданном текстовом файле t подсчитывает количество непустых строк

23.06.2014, 18:42. Показов 922. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста.

Надо: Написать функцию str(t), которая в заданном текстовом файле t подсчитывает количество непустых строк, в которых символы не упорядочены по возрастанию.
То что я сделала:
Подсчёт количества слов, строк, предложений:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
implementation
 
{$R *.dfm}
 
var fl: text;
 
fl1: text;
 
Word,Sentence, Str: integer;
 
ch: char;
 
flug: boolean;
 
procedure ReadProc(var fl:text; var W,Sen,St: integer);
 
var ch2: char;
 
begin
 
Read(fl,ch2);
 
if ch2 = ' ' then W := W + 1;
 
if ch2 = '.' then Sen := Sen + 1;
 
if ch2 = #13 then St := St + 1;
 
end;
 
procedure WriteProc(var fl:text; FN: TFileName; W,Sen,St:integer);
 
begin
 
AssignFile(fl,FN);
 
Rewrite(fl);
 
Writeln(fl,'Words:',IntToStr(W));
 
Writeln(fl,'Sentences:',IntToStr(Sen));
 
Writeln(fl,'Strings:',IntToStr(St));
 
CloseFile(fl);
 
end;
 
procedure TForm1.Open1Click(Sender: TObject);
 
begin
 
if OpenDialog1.Execute
 
then
 
begin
 
Edit1.Text := OpenDialog1.FileName;
 
Memo1.Lines.LoadFromFile(Edit1.Text);
 
AssignFile(fl,Edit1.Text);
 
flug := true;
 
end;
 
{
 
}
 
end;
 
Procedure TForm1.Exit2Click(Sender: TObject);
 
begin
 
if flug then CloseFile(fl);
 
Close;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
Edit1.Text := '';
 
Label1.Caption := 'Words: ';
 
Label2.Caption := 'Sentences: ';
 
Label4.Caption := 'Strings: ';
 
Label5.Caption := '';
 
Label6.Caption := '';
 
Label7.Caption := '';
 
flug := false;
 
end;
 
procedure TForm1.Write1Click(Sender: TObject);
 
begin
 
if OpenDialog1.Execute
 
then WriteProc(fl1,OpenDialog1.FileName,Word,Sentence,Str);
 
end;
 
procedure TForm1.LoadFromFile1Click(Sender: TObject);
 
begin
 
if FileExists(Edit1.Text)
 
then begin
 
Word := 0;
 
Sentence := 0;
 
Str := 1;
 
Reset(fl);
 
while not Eof(fl)
 
do ReadProc(fl,Word,Sentence,Str);
 
Label5.Caption := IntToStr(Word);
 
Label6.Caption := IntToStr(Sentence);
 
Label7.Caption := IntToStr(Str);
 
end;
 
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2014, 18:42
Ответы с готовыми решениями:

Написать функцию без параметров, которая подсчитывает количество цифр в тексте, заданном в текстовом файле (за текстом следует точка)
Добрый вечер!Не понимаю в чем ошибка допилите пожалуйста. #include "stdafx.h" #include...

Описать функцию, которая подсчитывает количество пустых строк в текстовом файле
Описать функцию, которая подсчитывает количество пустых строк в текстовом файле t.

Описать функцию, которая подсчитывает количество пустых строк в текстовом файле
Описать функцию, которая подсчитывает количество пустых строк в тек- стовом файле

Описать функцию, которая подсчитывает количество пустых строк в текстовом файле
вот прога!uses crt; var f: text; function EmptyStr(f: text): integer; var s: string; ...

3
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
23.06.2014, 19:34 2
Через 5 строк не пробовала код писать?
0
0 / 0 / 0
Регистрация: 21.06.2014
Сообщений: 10
23.06.2014, 19:36  [ТС] 3
при копировании сбилось, я писала на каждой..
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
23.06.2014, 20:02 4
Что-то наворотили всякого...
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
function str(var f:textfile):integer;
var s:string;
    t:boolean;
    i,k:integer;
begin
k:=0;
while not eof(f) do
 begin
  readln(f,s);  //читаем строку
  if s<>'' then //если она не пустая
   begin
    s:=#0+s;//добавим пустой симол в начало строки
    t:=true;//пусть символы отсортированы
    i:=2;//начнем со второго проверять
    while(i<=length(s))and t do //пока не конец строки и отсортированы
    if s[i]<=s[i-1] then t:=false //если нарушен порядок, дальше не проверяем
    else inc(i);//иначк дальше
   end;
  if t then inc(k);//если все строго по возрастанию, то считаем
 end;
str:=k  //значение функции
end;
procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
assignfile(f,'text.txt');//файл в папке с программой
reset(f);//откроем для чтения
Edit1.Text:='Количество строк с символами по возрастанию='+
             inttostr(str(f));
 
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2014, 20:02

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

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

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

Написать функцию, которая подсчитывает количество чисел в файле
Помогите пожалуйста решить такую задачу : На диске создано 2 файла с именами 'a.dat' u 'b.dat'....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru