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

[predikat]

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

6_2:

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


6_8:

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


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

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

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

[predikat]

predikat
Программу надо давать в виде текста (используя теги [ code] и [ /code] без пробела)... Как ты думаешь, я сейчас буду набирать всю твою программу, чтобы ее проверить и добавить комментарии? И никто не будет...

Извините, я пропарился. Я не знал что pas можно открывать txt.
Всё исправил. Прошу помощи. Особенно по 9_22!!!



Ещё очень прошу помочь написать отчеты для этих прог. ОЧЕНЬ:

Код

program students;
uses crt;
const
   n=5;
type                              
   parameters=record
      surname:string[25];
      group:string[4];
      mark:real;
   end;
var
   st:array[1..n] of parameters;
   j,i:integer;
   s:parameters;
begin
clrscr;
for i:=1 to n do
  begin
    write('Enter the surname of student: ');
    readln(st[i].surname);
    write('Enter the number of group: ');
    readln(st[i].group);
    write('Enter his average mark: ');
    readln(st[i].mark);
  end;
  begin
     for i:=1 to n-1 do
        for j:=i to n do
        if st[i].mark<st[j].mark then
           begin
              s:=st[i];
              st[i]:=st[j];
              st[j]:=s;
           end;
  end;
  writeln;
  writeln('your list...');
  writeln;
  for i:=1 to n do
  with st[i] do
     begin
       write('Surname: ',sruname,'Group: ',group,'Mark: ', mark:1:2);
       writeln;
     end;
  repeat until keypressed;
end.

Код

program text_file;
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.

Код

program modul;
uses of_modul;
var
    Sinp, Sout: String;
begin
    write('Enter the string: ');
    readLn(Sinp);
    Upstring(Sinp,Sout);
    Writeln('     Result: ', Sout)
end.
_______________________________
Unit of_modul;
Interface
Procedure UpString(s1: string; var s2: string);
Implementation
procedure upstring;
var
  i: integer;
  c: char;
begin
  s2:= '';
  for i:= 1 to Length(s1) do
     begin
     c:= s1[i];
     if (c>= 'a') and (c <= 'z') then
        c:= chr(ord('A')+ord(c)-ord('a'))
     end
  end;
end.

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