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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.11.2017, 16:21   #1
Romeshek
Пользователь
 
Регистрация: 29.09.2017
Сообщений: 33
По умолчанию [Pascal ABC.NET] Модуль

Проверьте, пожалуйста

Суть задания: написать модуль, который определяет, сколько элементов в двумерном массиве <, > или = заданному числу.

Код:
Unit apple;
interface
const n=10;
const m=10;
Var App: array[1..n,1..m] of integer;
procedure KolVo( i,j:byte ; Var E:integer);
implementation
Var i,j,x:byte;
Procedure KolVo( i,j:byte ; Var E:integer );
Begin
for i:=1 to n do
for j:=1 to m do
Begin
if  (x>0)  then
writeln(' Kol-vo elementov > ' , x)
else
if (x<0) then 
writeln(' Kol-vo elementov < ' , x)
else 
 Writeln('Kol-vo elementov = ', x);
end;
end;
end.

Последний раз редактировалось Romeshek; 06.11.2017 в 16:43.
Romeshek вне форума Ответить с цитированием
Старый 06.11.2017, 18:09   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Модуль.
Код:
unit apple;
interface
const n=10;
const m=10;
type mtr=array[1..n,1..m] of integer;
procedure KolVo(a:mtr; x:integer);
implementation
procedure KolVo(a:mtr; x:integer);//х-число для сравнения
var i,j,kb,km,kr:integer;
Begin
kb:=0;
km:=0;
kr:=0;
for i:=1 to n do
for j:=1 to m do
if  a[i,j]>x  then inc(kb)
else if a[i,j]<x then inc(km)
else inc(kr);
writeln('Количество элементов >',x,'=',kb);
writeln('Количество элементов <',x,'=',km);
writeln('Количество элементов =',x,'=',kr);
end;
end.
Программа.
Код:
uses apple;
var a:mtr;
    x:integer;
begin
for var i:=1 to n do
 begin
  for var j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Введите число для сравнения x=');
readln(x);
KolVo(a,x);
end.
puporev вне форума Ответить с цитированием
Старый 06.11.2017, 19:39   #3
Romeshek
Пользователь
 
Регистрация: 29.09.2017
Сообщений: 33
По умолчанию

Благодарю!
Romeshek вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
pascal abc.net алексей костиков Помощь студентам 0 12.10.2017 20:02
Pascal ABC.NET Передача массива в модуль Константин_В Паскаль, Turbo Pascal, PascalABC.NET 12 30.06.2016 16:44
Pascal abc.net, нужно составить модуль Pon4is Помощь студентам 0 17.12.2015 23:08
действительное число с плавающей точкой, его модуль и квадрат (pascal ABC) программирование Помощь студентам 1 01.05.2013 22:15
Pascal ABC net DiLLe Паскаль, Turbo Pascal, PascalABC.NET 1 08.06.2010 23:20