0 / 0 / 0
Регистрация: 03.02.2012
Сообщений: 24
1

Найдите количество строк файла, начинающихся и заканчивающихся одинаковым символом

02.03.2012, 14:45. Показов 2248. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан текстовый файл содержащий строки, найдите количество строк начинающихся и заканчивающихся одинаковым символом и самые короткие строки.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2012, 14:45
Ответы с готовыми решениями:

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

Дан текстовой файл,содержащий строки.найти количество строк, начинающихся и заканчивающихся одинаковыми символами.
Помогите решить :Дан текстовой файл,содержащий строки.найти количество строк, начинающихся и...

Подсчитать количество слов, начинающихся и заканчивающихся на согласную букву
21.3. Дана строка, содержащая текст на английском языке. Подсчитать количество слов, начинающихся и...

Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву
Дан файл, содержащий текст на русском языке. Подсчитать количество слов, начинающихся и...

2
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
02.03.2012, 18:21 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Инно4ка Посмотреть сообщение
найдите количество строк начинающихся и заканчивающихся одинаковым символом
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
  Dir = 'C:\File.txt';
var
  Count: integer;
  FileTxt: text;
  Str: string;
begin
  Count:=0;
  assign(FileTxt, Dir);
  reset(FileTxt);
  while not EOF(FileTxt) do
  begin
    readln(FileTxt, Str);
    if Str[1] = Str[length(Str)] then inc(Count);
  end;
  close(FileTxt);
  writeln('Кол-во строка начинающихся и заканчивающихся одним символом: ', Count);
end.
0
12 / 1 / 4
Регистрация: 01.12.2011
Сообщений: 55
02.03.2012, 19:22 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
Program p_1;
uses crt;
Label b;
Const
     m=20;
 Var
  f:Text;
  mas_num:array[1..m] of string;
  mas_sta:array[1..m] of string;
  mas_len:array[1..m] of integer;
  str,s_end,lat_sta, lat_end,spa,s_sta:string;
  max,min, i, reslat, replay, j,buf, zero: Integer;
Begin
spa:=' ';
Assign(f,'1.txt');
Reset(f);
For i:=1 to m do
begin
Readln(f,str);
mas_len[i]:=Length(str);
mas_num[i]:=Copy(str,Length(str),1);
If mas_num[i] <> spa then s_end:=s_end + mas_num[i];
mas_sta[i]:=Copy(str,1,1);
If mas_sta[i] <> spa then s_sta:=s_sta + mas_sta[i];
end;
For i:=1 to Length(s_sta) do 
begin
lat_sta:=Copy(s_sta,i,1);
lat_end:=Copy(s_end,i,1);
If lat_sta=lat_end then inc(replay);
end;
for i := 1 to m-1 do
for j := 1 to m-i do
if mas_len[j] > mas_len[j+1] then
begin
buf := mas_len[j];
mas_len[j] := mas_len[j+1];
mas_len[j+1] :=buf
end;
Writeln('Число повторяющихся строк');
Writeln(replay);
Writeln('3 самых коротких строки');
For i:=1 to m do
begin
if mas_len[i] <> 0 then
Begin
inc(min);
Writeln(mas_len[i]);
If min=3 then goto b;
end;
end;
b:
readln;
Close(f); 
end.
0
02.03.2012, 19:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2012, 19:22
Помогаю со студенческими работами здесь

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

Дана строка, подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву
День добрый, друзья, помогите пожалуйста. 3) Дана строка, содержащая текст на русском языке....

Дан файл, содержащий текст, подсчитать количество слов начинающихся и заканчивающихся на одну и туже букву
Блин вообще ребят срочно нужно!!!!! завтро здавать на зачете! и конец практике!))) плаззз кто может...

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


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

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

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