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

[predikat]

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

6_2:

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


6_8:

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


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

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

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

[predikat]

Помогите пожалуйсто написать под эту программу коментарии.

Код

program matrix;
uses crt;
type
     mas=array[1..9,1..9] of integer;
     s=set of 0..9;
var
     a:mas;
     summ,x,y,i,j:integer;
const
     s1:s=[2,3];
     s2:s=[1,3];
function Sum(A:mas; S1,S2:s):integer;
var
   i,j,ss:integer;
  begin
       ss:=0;
       for i:=1 to x do
       if i in S1 then
          for j:=1 to y do
             if j in S2 then
             ss:=ss+A[i,j];
             sum:=ss;
  end;
procedure form_mn(var s1:s; x:byte);
var k:byte;
   begin
     writeln('Закончите ввод нажатием 0');
     writeln('Введите ряды/столбцы от 1 до ',x);
     s1:=[];
        repeat
           writeln('Введите цифру <=',x);
           readln(k);
               if k<>0 then s1:=s1+[k];
               if (k<0) or (k>x) then writeln('Превышен диапозон');
        until (k=0);
   end;
procedure init_mas(var a:mas; x,y:byte);{x - Є®«ЁзҐбвў® бва®Є}
var
       i,j:byte;
   begin
       writeln('Введите элементы массива');
       for i :=1 to x do
          begin
            writeln('Введите элементы', i, ' строки');
            for j:=1 to y do  read(a[i,j]);
            readln;
          end;
   end;
procedure show_mas(a:mas; x,y:byte);
var
       i,j:byte;
   begin
      writeln('Массив ',x,'x',y);
      for i:=1 to x do
          begin
             for j:=1 to y do write(a[i,j]:4);
             writeln;
          end;
   end;
begin
clrscr;
    repeat
        writeln('‚Введите количество столбцов  x <=9');
        readln(x);
    until x<=9;
    repeat
        writeln('Введите количество рядков y <=9');
        readln(y);
    until y<=9;
    init_mas(a,x,y);
    show_mas(a,x,y);
    writeln('М Н О Ж Е С Т В О   Р Я Д О В');
    form_mn(s1,x);
    writeln('М Н О Ж Е С Т В О   С Т О Л Б Ц О В');
    form_mn(s2,y);
    summ:=sum(a,s1,s2);
    writeln('Сумма равна  ', summ);
    readln;
end.

:p2:

Сообщение отредактировано: predikat - 15.12.2004 20:06