Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.12.2013, 15:21   #1
Victor1995
Пользователь
 
Регистрация: 19.12.2013
Сообщений: 12
По умолчанию Процедуры

Эту программу нужно расписать с помощью процедур
Код:
program laba4;
var
A: array [1..100,1..100] of integer;
X: array [1..100] of integer;
i, j, M: integer;
begin
   writeln('ввод M=');
   readln(M);
{*цикл ввода массива*}
   writeln('ввод массива  A:');
   for i:=1 to M do
      for j:=1 to M do
      begin
      write('A[',i,',',j,']=');
      readln(A[i,j]);
      end;
{*цикл вывода массива*}
   writeln('массив A:');
   for i:=1 to M do
      begin
      for j:=1 to M do
      write(A[i,j]:4);
      writeln;
      end;
   j:=1;
{*цикл обработки массива*}
   for i:=1 to 2*M do
    if (i mod 2)<>0 then X[i]:=A[j,j]
                    else begin
                          X[i]:=A[j,M-j+1];
                          j:=j+1;
                          end;
{*цикл вывода получившегося массива*}
   writeln('массив X:');
   for i:=1 to 2*M do
   write(X[i],' ');
   writeln();
end.
я вроде расписал, но в результате выводятся нули, МОЖЕТ ПОДСКАЖИТЕ, ЧТО НЕ ТАК, ПОЖАЛУЙСТА.

Код:
program laba5;
Type MAS2= array [1..100,1..100] of integer;
     MAS1= array [1..100] of integer;
var i,j,M:integer;
    A:MAS2;
    X:MAS1;
procedure vvod(var A1:MAS2;M1:integer);
var i,j:integer;
   begin
     for i:=1 to M1 do
      for j:=1 to M1 do
       begin
       write('A1[',i,',',j,']=');
       readln(A1[i,j]);
       end;
   end;
procedure vivod(var A1:MAS2;M1:integer);
var i,j:integer;
   begin
   writeln('массив A:');
   for i:=1  to M1 do
     begin
     for j:=1 to M1 do
     write(A1[i,j]:4);
     writeln;
     end;
   end;
procedure obrabotka(X1:MAS1;A1:MAS2;M1:integer);
var i,j:integer;
 begin
 j:=1;
    for i:=1 to 2*M1 do
    if (i mod 2)<>0 then X1[i]:=A1[j,j]
                    else begin
                          X1[i]:=A1[j,M1-j+1];
                          j:=j+1;
                          end;
 end;
procedure VIV(var X1:MAS1;M1:integer);
var i:integer;
  begin
  writeln('массив X');
  for i:=1 to 2*M1 do
  write(X1[i],' ');
  writeln();
  end;
begin
  write('M=');
  readln(M);
  vvod(A,M);
  vivod(A,M);
  obrabotka(X,A,M);
  VIV(X,M);
end.
Victor1995 вне форума
Старый 23.12.2013, 15:32   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

procedure obrabotka(var X1:MAS1;A1:MAS2;M1:integer);
I'm learning to live...
Stilet вне форума
Старый 24.12.2013, 07:09   #3
Victor1995
Пользователь
 
Регистрация: 19.12.2013
Сообщений: 12
По умолчанию

Точно, спасибо большое
Victor1995 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры и функции - Заданы три двумерных массива одинаковой размерности. Написать фукнции и процедуры их обработки sekirei Паскаль, Turbo Pascal, PascalABC.NET 8 21.11.2013 15:45
Определение имени процедуры из нутри самой процедуры RISagitov Microsoft Office Excel 8 28.09.2012 17:15
Использование имени процедуры в качестве параметра другой процедуры Alexey355 Помощь студентам 1 23.04.2011 13:59
закончить выполнение процедуры из тела другой процедуры Alaysor Общие вопросы Delphi 14 23.01.2011 05:26
Управляющие структуры, процедуры Function и процедуры Sub Natalo4ka Помощь студентам 0 17.05.2010 22:00