Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача на строки

Автор: gin 23.11.2006 14:20

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

сделала только это:


program words;
type n = set of char;
const n = 29;
letters: n = ['a'..'z', 'A'..'Z'];
var w: record
r: array [1..n] of char;
i: 0..n
end;
c: char;
dat: text;
begin
assign(dat, 'dat.txt'); reset(dat);
while not eof(dat) do
begin
w.i := 0;
read(dat, c);
while c in letters do
begin
w.i := w.i + 1;
w.r[w.i] := c;
read(dat, c)
end;
if (w.i =5) then writeln (w.r);




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

Автор: мисс_граффити 23.11.2006 15:02

что значит "слова даны в виде записи"? это типизированный файл?
у тебя описан текстовый, то есть в нем обычные строки...

Автор: gin 23.11.2006 15:20

да нет, не типизированный. это чтобы сложнее было, слова еще представлены в виде записи:


var w: record
r: array [1..n] of char;
i: 0..n
end;



слово - массив символов+его длина.

вот с этим и проблема, теоретичесли вроде ясно, как найти слово опред. длины, а практически...увы.

Автор: мисс_граффити 23.11.2006 19:49

но в файле же они записаны как обычные строки?
то есть ты должна считать строку, разбить на слова-записи, а потом анализировать?
(это и должен делать написанный кусочек?)
я думаю, тебе имеет смысл создать array[1..m] of w, и туда записать все слова-записи. а потом идти в цикле по массиву и смотреть, нужной ли длины слово (это если ты по каким-то причинам не хочешь его выводить сразу после разбиения, как в приведенном фрагменте).

Автор: gin 23.11.2006 22:57

Цитата(мисс_граффити @ 23.11.2006 15:49) *

но в файле же они записаны как обычные строки?
то есть ты должна считать строку, разбить на слова-записи, а потом анализировать?
(это и должен делать написанный кусочек?)
я думаю, тебе имеет смысл создать array[1..m] of w, и туда записать все слова-записи. а потом идти в цикле по массиву и смотреть, нужной ли длины слово (это если ты по каким-то причинам не хочешь его выводить сразу после разбиения, как в приведенном фрагменте).


так надо по условию unsure.gif

Автор: volvo 23.11.2006 23:10

gin, ну начала же почти правильно... Почему остановилась?

program words;

const
n = 29;
letters = ['a'..'z', 'A'..'Z'];

var
w: record
r: array [1..n] of char;
i: 0..n
end;

i: integer;
c: char;
dat: text;

begin

assign(dat, 'dat.txt'); reset(dat);
while not eof(dat) do begin

read(dat, c);
if c in letters then begin
w.i := w.i + 1;
w.r[w.i] := c;
end
else begin
if (w.i = 5) or (w.r[1] = w.r[w.i]) then begin
for i := 1 to w.i do write(w.r[i]);
writeln;
end;
w.i := 0;
end;

end;
close(dat);

end.