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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2014, 06:57   #1
cska1325
Пользователь
 
Регистрация: 19.12.2014
Сообщений: 16
По умолчанию Разработать программы для выполнения операций над матрицей размера 5х5. Сделать модуль

Задание:
Разработать программы для выполнения над матрицей размера 5х5 операций в соответствии с вариантом. На печать вывести исходную матрицу и полученный результат с текстовым комментарием.

Вариант 13
1. Вычисление количества элементов матрицы, кратных 5.
2. Замена на «0» всех элементов матрицы, кратных 5.

И на основе этой программы нужно сделать модули.

Прошу, если это возможно, сделать это за сегодня, завтра.
Заранее спасибо!
cska1325 вне форума Ответить с цитированием
Старый 20.12.2014, 07:31   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var p:array[1..5,1..5] of byte;
    i,j,c:byte;
begin
   Randomize;
   c:=0;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
         If p[i,j] mod 5=0 then
         begin
            p[i,j]:=0;
            c:=c+1;
         end;
      end;
      Writeln('');
   end;
   Writeln('c = ',c);
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
         Write(p[i,j],'  ');
      Writeln('');
   end;
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 20.12.2014, 08:28   #3
cska1325
Пользователь
 
Регистрация: 19.12.2014
Сообщений: 16
По умолчанию

Да,спасибо.
Теперь осталось из этой программы сделать модули.

Из этой подпрограммы нужно написать модули (хотя бы один).
Код:
var p:array[1..5,1..5] of byte;
    i,j,c:byte;
begin
   Randomize;
   c:=0;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
         If p[i,j] mod 5=0 then
         begin
            p[i,j]:=0;
            c:=c+1;
         end;
      end;
      Writeln('');
   end;
   Writeln('c = ',c);
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
         Write(p[i,j],'  ');
      Writeln('');
   end;
   Readln;
end.
напишите мне , пожалуйста , из этой подпрограммы процедуру или функцию, а модуль я сам напишу.
Заранее спасибо.

Последний раз редактировалось Stilet; 21.12.2014 в 10:51.
cska1325 вне форума Ответить с цитированием
Старый 21.12.2014, 10:03   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

так, что ли?

Код:
const n = 5;
type TMyArray = array[1..n,1..n] of byte;

{заполенение массива случайными числами}
procedure FillArrayByRandom(var A : TMyArray);
var i, j : integer;
begin
 Randomize;
 For i:=1 to n do
   For j:=1 to n do
      A[i,j]:=Random(21);
end;

{печать содержимого массива}
procedure PrinArray(A : TMyArray);
var i, j : integer;
begin
 For i:=1 to n do
 begin
   For j:=1 to n do Write(A[i,j]:2,' ');
   WriteLn
 end;
end;

{функция подсчёта элементов массива, кратных пяти, и обнуление этих элементов}
function CountAndZeroMod5(var A : TMyArray) : integer;
var i, j, c : integer;
begin
 c := 0;
 For i:=1 to n do
   For j:=1 to n do
     If A[i,j] mod 5=0 then
         begin
            A[i,j]:=0;
            c:=c+1;
         end;
 CountAndZeroMod5 := c
end;

var p: TMyArray;
  c : integer;
begin

 { заполним массив случайнымии числами }
 FillArrayByRandom(P);
 
 { выведедем содержимое массива на экран }
 WriteLn('Начальный массив:');
 PrinArray(P);
 WriteLn;

 { посчитаем число элементов,кратных пяти и обнулим эти элементы }
 c := CountAndZeroMod5( P );
 Writeln('c = ',c);


 { выведедем содержимое массива на экран }
 WriteLn('Массив после обработки:');
 PrinArray(P);
 WriteLn;
 
 Readln;
 end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.12.2014, 10:20   #5
cska1325
Пользователь
 
Регистрация: 19.12.2014
Сообщений: 16
По умолчанию

Да ,спасибо!!

Блин, что-то у меня не получается модуль слепить((
Помогите мне слепить модуль.

Последний раз редактировалось cska1325; 21.12.2014 в 12:12.
cska1325 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
набор подпрограмм для выполнения операций над числами ( 1.Определение является ли число палиндромом; 2.Реверсирование числа) tweeker Паскаль, Turbo Pascal, PascalABC.NET 1 18.12.2013 19:33
Алгоритм выполнения операций над числами в одной строке. LeoDiz Общие вопросы по Java, Java SE, Kotlin 2 25.12.2012 17:28
Создание программы по выполнению вычислительных операций над матрицами andrew_1 Помощь студентам 5 19.11.2011 17:09