Изменить таблицу, заменив каждый ее элемент на сумму исходных элементов, лежащих не выше и не правее его

@DoktorXX · Регистрация: 20.11.2015

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Есть не большая проблемка, программа работает нормально, без ошибок, но когда идет вызов процедуры она её просто на просто пропускает. В чем может быть ошибка?
Функция выполняет вот это требование -
Изменить таблицу, заменив каждый ее элемент на сумму исходных элементов, лежащих не выше и не правее его

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program P1;
Uses crt;
const nn=25; mm=25;
      sx=5;
      dx=1;
 Type
Telem=single;
Ttable=array[1..nn,1..mm] of Telem;
 
Procedure M1(var a:Ttable; n,m:integer);
  var W,E,i,j:integer;
       s:Telem;
 begin
 For i:=1 to n do
 for j:=m downto 1 do
 begin
 
    s:=0;
  for W:=i to n do
  for E:=1 to j do
     s:=s+a[W,E];
 
   a[i,j]:=s;
 
  writeln(i,' ', j,' ', s);
  end;
 
 end;

Кликните здесь для просмотра всего текста

Pascal
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 var W{Строка},n,m,E{Столбик},Q{№ пункта}:integer;
     a:Ttable;
Begin
randomize;
Repeat
clrscr;
   Writeln('1)Задать размеры');
   Writeln('2) Заполнить таблицу с клавиатуры ');
   Writeln('3) Заполнить таблицу случайным образом');
   Writeln('4) Вывести таблицу');
   Writeln('5) Вызов процедуры');
   Writeln('6) Выход');
 Writeln;
   Writeln('Введите номер пункта'); readln(Q);
 
 
 Case Q of
      1: Begin
          Writeln('Введите значение строки, столбца');
          Readln(n,m);
         end;
      2: Begin
          For w:= 1 to n do
           For e:= 1 to m do
            Read(a[w,e]);
             Readln;
         end;
      3: Begin
          For w:= 1 to n do
          begin
          For e:= 1 to m do
           a[w,e]:=random(11);
             end;
 
         end;
      4: Begin
          for w:=1 to n do
          Begin
          for e:=1 to m do
           Write (a[w,e]:sx:dx);
           Writeln;
           end;
           readln;
         end;
      5:begin
      M1(a,n,m);
      Write('ok');
      readln;
      end;
      end;{case}
      Until Q=6;
 
 
         end.

@Puporev · 20.11.2015, 09:49

Сообщение от DoktorXX

программа работает нормально

А где программа?

@DoktorXX · 20.11.2015, 13:35 **[ТС]**

Начоло написанно, все остальное под шапкой

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@DoktorXX 0 / 0 / 0 Регистрация: 20.11.2015 Сообщений: 11
	20.11.2015, 13:35 [ТС]
	Начоло написанно, все остальное под шапкой 0