текстовые файлы, Ребят помогите!!!! Опции

[Chopper]

Кто шарит, помогите, а! Спасибо.


1. С помощью текстового редактора создать файл, содержащий текст, длина кото¬рого не пре-вышает 1000 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT. Написать программу, которая:
а)выводит текст на экран дисплея;
б)определяет слова, начинающиеся и оканчивающиеся на одну и ту же букву;


-----------------------------------------------------------------------------------------------
2. Создать типизированный файл, запись которого имеет следующую структуру: номер УДК, фамилию и инициалы автора, название книги, год издания, количество экземпляров данной книги в библиотеке. Вывести на экран в алфавитном порядке название книг, количество экзем-пляров которых больше 3.
Создание и обработку файла оформить в виде подпрограмм.

Нарушение правил форума. Закрыто...

Сообщение отредактировано: мисс_граффити - 13.06.2007 14:18

[xds]

Задача №1:

Код

program _Text;

var
 f: Text;
 c: Char;
 w: String;
 Words: array[1..500] of String[70];
 i, n: Integer;

begin
 Assign(f, 'input.dat');
 Reset(f);
 w := '';
 n := 0;
 repeat
   if Eoln(f) then
     begin
       Readln(f);
       Writeln;
       c := ' ';
     end
   else
     begin
       Read(f, c);
       Write(c);
     end;
   if (c <> ' ') and (c <> #9) then
     w := w + c
   else
     if w <> '' then
       begin
         if w[1] = w[Length(w)] then
           begin
             Inc(n);
             Words[n] := w;
           end;
         w := '';
       end;
 until Eof(f) and (c = ' ');
 Close(f);
 Writeln;
 Writeln;
 for i := 1 to n do
   Writeln(Words[i]);
end.