Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
abcpascal
5 / 5 / 6
Регистрация: 26.11.2011
Сообщений: 51
1

Вывести на экран те строки исходного файла, длина которых больше 10 символов

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

1. Вывести на экран те строки исходного файла, длина которых больше 10 символов
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
 uses Crt;
Var File1:Text;
      f:string; g:char;
      M,k:integer;
      j,i:byte; s:array [1..1000] of string;
          Begin
Writeln('Здравствуйте');
Writeln;
Assign(File1,'*.txt');
Reset(File1);
k:=0;M:=0;
While not eof(File1) do
 begin
  k:=0; f:='';
  While not eoln(File1) do
         begin
       Read(File1,g);
       f:=f+g;
     end;
    Readln(File1); if Length(f)>10 then
    begin
       i:=i+1;S[i]:=f;
       Writeln(f);
     end;
  end;
 For j:=1 to i do
   Writeln(s[j]);
 Close(File1);
end.
как можно эту задачу сделать по проще?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2011, 18:21
Ответы с готовыми решениями:

Вывести на экран те строки исходного файла, длина которых больше 10 символов .
Вывести на экран те строки исходного файла, длина которых больше 10 символов .

Вывести на экран те строки исходного файла, длина которых больше 10 символов
Вывести на экран те строки исходного файла, длина которых больше 10 символов. Добавлено через 1...

Вывести на экран строки из файла,длинна которых больше пяти
Дан текстовый файл,напечатать в него текст и вывести на экран строки,длинна которых больше пяти...

Записать в другой файл все строки, длина которых больше 5 символов
Дан текстовый файл. Записать в другой файл все строки, длина которых больше 5 символов. Помогите...

Вывести на экран строки, размер которых больше среднего размера строки в файле.
1)Организовать текстовый файл, состоящий из N строк. Вывести на экран строки, размер которых...

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

Вывести на экран количество букв в 5-й строке и количество строк в которых длина меньше 10 символов
Програма должна считывать с клавиатуры текстовые строки и записывать их в массив до тех пор, пока...

Вывести на экран только те строки исходного файла, которые состоят из одного слова
Вывести на экран только те строки исходного файла, которые состоят из одного слова.

В строке символов определить количество слов, у которых длина больше указанной пользователем
В строке символов определить количество слов, у которых длина больше указанной пользователем....


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

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

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