Написание функций Опции

[predikat]

Я учусь на програмиста. До зачетов осталось мало, а проги все не здал.
Можете помочь?

6_2:

Написать программу, которая содержит функцию next без параметров,
которая читает из входящего файла первую букву, отличную от space,
и объявляет её своим значением. Использовать эту функцию для подсчёта
k - количества отличных от space букв текста, который заданый в
входящем файле, который заканчиваеться точкой.


6_8:

Написать программу, в которой описано функцию Sum(A,S1,S2),
которая вычисляет сумму тех элементов матрицы А, номера рядов и
столбцов которые принадлежат соответственно непустым множествам
S1 и S2.


ОЧЕНЬ ПРОШУ!!!

В следующий раз называй тему, как положено...

Сообщение отредактировано: volvo - 14.12.2004 22:28

[volvo]

predikat
Вот первая (если у тебя тестовый файл состоит из нескольких строк, учти, что перенос строки - 2 символа (#10 и #13))...

Код

var
 f: text;

function next: char;
 var ch: char;
 begin
   repeat
     read(f, ch);
   until ch <> #32;
   next := ch
 end;


var
 ch: char;
 count: word;
begin
 assign(f, 'test99.txt');
 reset(f);

 count := 0;
 repeat
   ch := next; inc(count)
 until ch = '.';

 writeln('count = ', count);
 close(f);
end.