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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2012, 22:03   #1
LegalasAlex
Новичок
Джуниор
 
Регистрация: 25.05.2012
Сообщений: 1
По умолчанию Массивы Х(n) и У(m) (n, m<=15). Найти количество элементов массива не лежащих в диапазоне от А до В. использовать функцию (Паскаль

Люди нужна ваша помощь...
В общем есть задача с условиями :
Условие задачи:

Даны 2 массива: Х из n элементов и У из m элементов(n, m<=15). Найти количество элементов массива Х, не лежащих в диапазоне от 0 до 10, и количество элементов массива У, не лежащих в диапазоне от 1 до 5. Для нахождения количества элементов, не лежащих в диапазоне от А до В использовать подпрограмму функцию.

Программу составил... но не могу понять в чом ошибка..где она я вижу но не понимаю что должен поставить.... :





Код:
Program Task24;Блок-схема:

Type

Massiv = Array [1..15] of Integer;

Procedure Input_Array (Var c : Massiv; k : Integer);

Var

i : Integer;

Begin

Writeln ('Введите элементы массива из  ',k,' элементов');

For i:=1 to k do

begin

Write ('Элемент [',i,']=');

Readln(c[i]);

end;

End;

Procedure Output_Array ( c : Massiv; k : Integer);

Var

i : Integer;

Begin

Writeln ('Массив из ',k,' элементов:');

For i:=1 to k do

Write(c[i]:8);

Writeln;

End;

Function kol_vo (c : Massiv; k,a,b : Integer) : Integer;

Var

i : Integer;

Begin

kol_vo:=0;

For i:=1 to k do

if (c[i]<a) or (c[i]>b) then

kol_vo:=kol_vo+1;

End;

Var

x,y : Massiv;

n,m : Integer;

Begin

Write('n=');

Readln(n);

Writeln ('Массив X:');

Input_Array(x,n);

Output_Array(x,n);

Writeln ('Массив Y:');

Write('m=');

Readln(m);

Input_Array(y,m);

Output_Array(y,m);

Writeln ('Количество элементов в массиве X не лежащих в диапазоне от 0 до 10 :',kol_vo(x,n,0,10));

Writeln ('Количество элементов в массиве Y не лежащих в диапазоне от 1 до 5 :',kol_vo(y,m,1,5));

Readln;

End.


в частности ошибка якобы в :
kol_vo:=kol_vo+1;


кто знает почему отпишите пжл...
Зарание спасибо.



________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 25.05.2012 в 22:48.
LegalasAlex вне форума Ответить с цитированием
Старый 25.05.2012, 22:52   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

не ясно, что у вас за Паскаль, поэтому решение, не самое оптимальное и красивое, зато универсальное (для любого Паскаля подойдёт):

Код:
function kol_vo(c: Massiv; k, a, b: Integer): Integer;
var
  i, kol : Integer;
begin
  kol := 0;
  for i := 1 to k do
    if (c[i] < a) or (c[i] > b) then
      kol := kol + 1;
  kol_vo := kol;
end;
p.s. если у вас компилятор FreePascal или Delphi - тогда внутри функции замените имя kol_vo на служебную переменную Result (описывать её не надо - компилятор интерпретирует этот идентификатор, как результат, возвращаемый функцией!)
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан двумерный массив. Найти сумму и количество элементов в каждом столбце, положительных и лежащих вне главной диагонали Alexbmgn Помощь студентам 1 25.12.2011 22:21
найти количество положительных и кратные 7 элементов массива. только простым способом. Паскаль D1SK Помощь студентам 1 06.12.2011 22:04
Найти среднее арифметическое отрицательных элементов, лежащих в нижней треугольной матрице массива А(m,m) bratello41 Паскаль, Turbo Pascal, PascalABC.NET 11 24.06.2010 18:49
в массиве найти количество злементов лежащих в диапазоне от A до B Deniska112 Общие вопросы C/C++ 14 02.06.2009 17:59
вычислить количество элементов массива, лежащих в диапазоне от А до В Gigatrest Паскаль, Turbo Pascal, PascalABC.NET 16 26.01.2009 14:05