Нахождение суммы строки массива Опции

[Romka]

Решите вот такую программу и блок схему к программе: Описать функцию нахождения суммы первой строки массива А(4,4),состоящего из вещественных элементов. Нужно до четверга.
Буду очень благодарен.

Сообщение отредактировано: Romka - 24.05.2005 19:27

[klem4]

1) Читай правила форума
2) Пользуйся поиском.

[Romka]

klem4 подскажи,куда мне написать вопрос.В какую тему.Немогу разобраться.

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

Сообщение отредактировано: volvo - 24.05.2005 19:15

[klem4]

держи

{$n+}
uses crt;
const n=4;
type
  arrT = array[1..n,1..n] of extended;
var
   a:arrT;
   i,j:integer;

function sum(x:arrT;r:integer):extended;
var s:extended;
      i,j:integer;
begin
   s:=0;
   for j:=1 to n do
    s:=s+x[r,j];
   sum:=s;
end;

Begin
   clrscr;
   for i:=1 to n do
    for j:=1 to n do
     begin
        write('x[',i,',',j,']=');
        readln(a[i,j]);
     end;

   for i:=1 to n do
    begin
       writeln;
       for j:=1 to n do
        write(a[i,j]:4 :1,'   ');
    end;
  writeln('s=',sum(a,1):2 :2);
    readln;
    end.

Сообщение отредактировано: volvo - 23.11.2010 10:49

[Romka]

klem4 большое спасибо.Сможешь сделать к этой программе блок схему пожалуйста

[klem4]

б/c ф-ции

:low:

[Romka]

klem4 программу набрал.Почему то пишет ошибку после S:=0;
Что там может быть.

[klem4]

думаю это из-за ошибки в 12 строке .... :D

какая ошибка то ?

[volvo]

какая ошибка то ?

:D Твоя любимая... "Переменная цикла должна быть локальной"

[Romka]

Вот,что пишет Error 116: Must be in 8087 mode to compile this
Если на понял,попробуй себе набрать на паскале и станет всё ястно.
И ещё что такое arrT и extended

[Romka]

Скажите эта программа решена с использованием Функции(мне надо,что бы было с функцией)

[volvo]

Вот,что пишет Error 116: Must be in 8087 mode to compile this

Быть не может - для этого {$n+} стоит первой строкой, чтобы этой ошибки не возникало...

Если на понял,попробуй себе набрать на паскале и станет всё ястно.

У меня например компилируется "на ура"... А ты попробуй представить, что есть не только Turbo Pascal, а еще и другие компиляторы. Ты каким пользуешься?

И ещё что такое arrT и extended

А это тебе в книжках читать нужно ...

[Romka]

volvo да всё работает.Это я ошибся спасибо.И как можно ещё решить эту программу с использованием Function.

Сообщение отредактировано: Romka - 25.05.2005 7:31