Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Роман17вл
0 / 0 / 0
Регистрация: 15.10.2016
Сообщений: 7
1

Количество строк начинающихся с цифры (в файле)

10.12.2016, 11:14. Просмотров 158. Ответов 1
Метки нет (Все метки)

Понимаю, что для многих из вас это задание может показать детским, но я никак не могу понять, как это сделать. В общем помогите написать хотя бы суть алгоритма как это выполняется.
Итак, есть текстовый файл в котором, количество строк не постоянная величина, из них некоторые начинаются с цифры. Надо посчитать и вывести на экран количество строк начинающихся с цифры.
Вот мои наброски:
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
program LAB4_2;
uses CRT;
var
  f1: text;
  l, count: integer;
  s: string;
  symv: char;
  label Met1;
begin
  Met1:clrscr;
  assign(f1, 'LAB4.txt');
  reset(f1); //открыть файл для чтения
    while not eof(f1) do begin
      readln(f1, s);
      writeln(s);
    end;
  close(f1);
  count:=0;
  assign(f1, 'LAB4.txt');
  reset(f1);
  str(l, s);
      while not eof(f1) do begin
  s:=copy(s, 1, 1);
  if (s='1') or (s='0') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9') then
  count:=count+1;
  end;
  close(f1);
  write('Кол-во строк начинающихся с цифры равно:  ');
  writeln(count);
  writeln ('For exit press 1'); 
  readln (symv);
  if (symv <>'1') then goto Met1; 
end.
Спасибо за любую помощь.
0
Вложения
Тип файла: txt LAB4.txt (184 байт, 4 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2016, 11:14
Ответы с готовыми решениями:

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

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

В тексте определить количество слов, начинающихся с цифры
В тексте определить количество слов, начинающихся с цифры и вывести на экран...

В тексте определить количество слов, начинающихся с цифры
В тексте определить количество слов, начинающихся с цифры и вывести на экран...

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

1
Puporev
Модератор
55451 / 42564 / 29415
Регистрация: 18.05.2008
Сообщений: 100,687
10.12.2016, 13:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program LAB4_2;
uses CRT;
var
  f1: text;
  count: integer;
  s: string;
begin
clrscr;
assign(f1, 'LAB4.txt');
reset(f1); //открыть файл для чтения
count:=0;
while not eof(f1) do
 begin
  readln(f1, s);
  if s[1] in ['0'..'9'] then
   begin
    writeln(s);
    inc(count)
  end;
 end;
close(f1);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2016, 13:11

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

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

Посчитать количество строк в файле
1. дан текстовый файл, содержащий символьные строки, найти кол-во строк. и...


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

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

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