Задача на одномерные массивы

[serge-first]

Pascal ABC.net ИНТЕРЕСУЕТ ВЫДЕЛЕННОЕ ЖИРНЫМ

Задание 1: Cоздайте программу в СП PascalABC.NET, генерирующую массив целых чисел из n элементов (n задается с клавиатуры и n<=100) случайным образом из диапазона [a;b].

Исходные данные: количество элементов массива n—целое число;

границы диапазона, из которого берутся элементы массива a и b—целые числа.

Результат: массив целых чисел—mas.

Метод решения

Решение задачи разобьем на три блока: блок ввода исходных данных, блок генерации массива и блок вывода массива на экран.

Создавать массив можно с помощью генератора случайных чисел. Для этого используется функция random. Эта функция без параметров возвращает случайное вещественное число в диапазоне 0<=x<1. Если функция используется с параметром random(n), где n – целое число, то она возвращает случайное целое число в диапазоне 0<=x<n. Но прежде чем пользоваться функцией random, надо выполнить процедуру randomize, которая инициализирует генератор случайных чисел. Таким образом, если параметры n, a и b определены выше, то блок генерации массива можно реализовать так:

Randomize;

for i:=1 to n do

mas[i]:=a+random(abs(b-a+1));

? Подумайте, почему элемент массива вычисляется по такой формуле.

? Самостоятельно опишите блок ввода исходных данных и блок вывода массива на экран.

Задание 2: Измените блок вывода массива на экран таким образом, чтобы сначала выводились отрицательные элементы массива, а затем положительные и нули.

Задание 3: Дополните программу блоком вычисления сумм положительных и сумм отрицательных элементов по отдельности. Организуйте вывод полученных сумм. Реализуйте блок-схему алгоритма

Код Pascal

var
  a, b, i, n, c : integer;
  mas : array[1..100] of integer;
begin
  repeat
    writeln('введите n');
    readln(n);
    writeln('введите a и b');
    readln(a, b);
  until (n > 1) and (n < 100) and (a < b);
  randomize;
  for i := 1 to n do
  begin
    c := b - a;
    mas[i] := random(c+1) - abs(a);    
    write(mas[i]: 4)
  end;
  writeln
end.

Доработанный вариант:

var
  a, b, i, n, c : integer;
  mas : array[1..100] of integer;
begin
  repeat
    writeln('введите n');
    readln(n)
  until (n > 1) and (n < 100);
  repeat
    writeln('введите a и b');
    readln(a, b)
  until (a < b);
  randomize;
  for i := 1 to n do
  begin
    c := abs(b - a);
    if a < 0 then mas[i] := random(c+1) - abs(a);
    if a >= 0 then mas[i] := random(c+1) + a; 
    write(mas[i]: 4)
  end;
  writeln
end.

[Vanta11a]

until (n > 1) and (n < 100);

Зачем первая проверка (n > 1)? Она избыточна.

repeat
writeln('введите a и b');
readln(a, b)
until (a < b);

Хорошо бы добавить сообщение, если a > b, или уточнение, что а должно быть больше b

c := abs(b - a);
if a < 0 then mas[i] := random(c+1) - abs(a);
if a >= 0 then mas[i] := random(c+1) + a; 
write(mas[i]: 4)

Чушь. Для заполнения массива полностью хватит строки

mas[i]:=a+random(abs(b-a+1));

Дальше следим за руками. Вывод сначала отрицательных, потом положительных и нулей. Для этого дважды проходим массив.
При первом проходе проверяем, что элемент < 0, и если условие истинно, выводим элемент.
При втором проходе проверяем, что элемент >= 0, и если условие истинно, выводим элемент.
Как-то так:

if (mas[i] < 0) then write(mas[i]);

При первом проходе можно также суммировать все выводимые элементы, будет сумма отрицательных.
При втором проходе сделать дополнительную проверку, что элемент > 0 (поскольку в задаче сказано "положительные", а 0 относится к "неотрицательным") и суммировать элементы.
Блок-схема будет элементарной, посмотрите примеры и Visio Вам в помощь.

[serge-first]

Спасибо!!!

Если честно, то я вообще запутался с этой задачей) В голове каша))

c := abs(b - a);
if a < 0 then mas[i] := random(c+1) - abs(a);
if a >= 0 then mas[i] := random(c+1) + a; 
write(mas[i]: 4)

Чушь. Для заполнения массива полностью хватит строки

Не понял, что исправить выше и куда записать:

mas[i]:=a+random(abs(b-a+1));

[Vanta11a]

Вместо

c := abs(b - a);
if a < 0 then mas[i] := random(c+1) - abs(a);
if a >= 0 then mas[i] := random(c+1) + a;

Оставить только

mas[i]:=a+random(abs(b-a+1));

[serge-first]

т.е. код будет иметь следующий вид?

var a, b, i, n, c : integer;
mas : array[1..100] of integer;

begin

repeat
writeln('введите n');
readln(n)

repeat
writeln('введите a и b');
readln(a, b)

until (a < b);

randomize;
for i := 1 to n do

begin

mas[i]:=a+random(abs(b-a+1));

end;

writeln

end.

хотя нет ошибка

и переменная - с - лишняя получается

[Vanta11a]

Ну у Вас пропущен в двух местах символ ";", + не закрытый repeat.
Поправил детские ошибки, код выглядит так:

var
  a, b, i, n, c: integer;
  mas: array[1..100] of integer;

begin
  writeln('введите n');
  readln(n);
  repeat
    writeln('введите a и b');
    readln(a, b)
  until (a < b);
  randomize;
  for i := 1 to n do
  begin
    mas[i] := a + random(abs(b - a + 1));
  end;
  writeln();
end.

Теперь Ваша задача просто вывести содержимое массива на экран, без сортировки, группировки и т.п.. Для этого делаете цикл "for i := 1 to n do", в котором через write() выводите значения элементов массива, после цикла вставляете writeln().

Следующая задача - вывести только отрицательные. Для этого в вышеупомянутом цикле используете условие "if (*элемент массива* < 0) then", выводите элементы так же через write().

Далее - вывести неотрицательные элементы, для этого в условие вместо "< 0" вставляете ">= 0", и так же через write() выводите.

[serge-first]

Благодарю за помощь, надеюсь больше не потревожу)