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

Дан текстовый файл.Сформировать второй файл,куда поместить все слова имеющие заданную длину

22.01.2013, 15:56. Показов 2205. Ответов 1
Метки нет (Все метки)

Дан текстовый файл.Сформировать второй файл,куда поместить все слова имеющие заданную длину.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2013, 15:56
Ответы с готовыми решениями:

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

Задача с использованием структуры «текстовый файл». Переписать в другой файл строки, имеющие заданную длину m
,,,

Дан файл содержащий слова записанные наоборот. Сформировать второй файл, "перевернуть" все слова
Дан файл содержащий слова записанные наоборот. Сформировать второй файл, "перевернуть" все слова.

Дан текстовый файл f и целое число N. Скопировать строки текстового файла f, превышающие заданную длину n, в файл g
Дан текстовый файл f и целое число N. Скопировать строки текстового файла f, превышающие заданную...

1
vlad725
22.01.2013, 21:21 2
Лучший ответ Сообщение было отмечено nicha как решение

Решение

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
function Words(s: String; var W: array of String): Integer;
var
  nw, i, n, lp: Integer;
begin
  nw := 0;
  n := Length(s);
  if n <> 0 then
  begin
    s := s + ' ';
    i := 1;
    repeat
      while (i < n) and (s[i] = ' ') do Inc(i);
      lp := i;
      while (i < n) and (s[i] <> ' ') do Inc(i);
      w[nw] := Copy(s, lp, I - lp);
      inc(nw);
    until i >= n;
  end;
  Words := n;
end;
 
var
  w: array[1..100] of String;
  s: String;
  nw, I,len: Integer;
f,f1:textfile;
begin
write('Enter length word ');readln(len);
assign(f,'input.txt');
assign(f1,'output.txt');
reset(f);
rewrite(f1); 
s:='';
while not eof(f) do begin
  readln(f,s);
  nw := Words(s, w);
  for i:= 1 to nw do
    if length(w[i])=len then Writeln(f1,w[i]);
  end;
close(f);
close(f1);
end.
Добавлено через 12 минут
еще создай 2 текстовика input.txt и output.txt в первый запиши что нибудь например My program pascal
Open text file
Write in text file
Close text file при запуске программы введите число 4 например и во втором файле выведет слова
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2013, 21:21
Помогаю со студенческими работами здесь

Сформировать второй файл , куда поместить квадрат чисел, данных в первом файле
Дан файл , содержащий натуральные числа. Сформировать второй файл , куда поместить квадрат этих...

Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей
Помогите, пожалуйста. 1) Как вернуть значения n к 0 после подсчета количества слов в предложении?...

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

Дан текстовый файл. Найти длину максимального слова
Дан текстовый файл А, состоящий из слов, разделенных пробелами. Вывести длину максимального слова. ...


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

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

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