Вычислить значения 39 элементов одномерного целочисленного массива F в заданном интервале

@arturuk · Регистрация: 14.05.2015

Author24 — интернет-сервис помощи студентам

можете помочь доделать остальные пункты?
сделал первый пункт 1) вычислить значения 39 элементов одномерного целочисленного массива F в интервале (-10,10) с использованием генератора случайных чисел.

вот остальные: 2) вычислить среднегеометрическое значение четных по значению элементов второй четверти массива;
3) определить значение самое близкое к заданному числу С среди положительных элементов всего массива;
4) упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> {P}_{a}=\sqrt[k]{{a}_{1}{a}_{2}\, ...\, {a}_{n}}=\sqrt[k]{\prod {a}_{i}}<br />$

Pascal

program v7;
var
  f:array [0..1000] of real;
  i: Integer;
 
begin        ////////////////////////////////////////////////////// 1)
 
  Writeln;  // переход на новую строку
  Writeln ('1) Генерируем одномерный массив из 39 элемента в интервале (-10,10):');   //вывод текста
  Write('   ');
  randomize;                        // генерируем рандом
  for i:=1 to 39 do
  begin
     f[i]:=random(10)-10     ;       // генерируем массив
     Write(floattostr(f[i]));
     if i<>39 then Write(', ');     // записываем через запятую
  end;
  Writeln('.');   
  end.// в конце точка

@Puporev · 27.05.2015, 16:37

Сообщение от arturuk

элементов второй четверти массива;....
элементы второй половины массива

Напишите границы второй четверти и второй половины массива из 39 элементов.

@arturuk · 27.05.2015, 18:43 **[ТС]**

всего 19 столбцов
тогда наверно с 6 по 10 столбец вторая четверть

@ZX Spectrum-128 · 28.05.2015, 09:57

arturuk, 19 не делится на 4 и на 2.

Добавлено через 17 секунд
И 39 тоже не делится.

@Cyborg Drone · 29.05.2015, 14:39

Сообщение от arturuk

39 элементов

Уточните задание. Поскольку 39 не делится нацело ни на 4, ни на 2, то где у массива вторая четверть и вторая половина, определить не представляется возможным.

@arturuk · 30.05.2015, 18:24 **[ТС]**

вот похожая задача на вашем сайте...но я не понимаю .. пробовал изменить

Условие
1)Вычислить значение 31 элементов одномерного целочисленного массива F в интервале (-9,6) с использованием генератора случайных чисел
2)Вычислить произведение положительных элементов второй половины массива
3)Определить минимальное значение среди нечетных по номеру элементов третьей четверти массива
4)Упорядочить четные по значению элементы последней четверти массива по убыванию обратных значений
Код программы:

Pascal

    program v26;
var
  f,a:array [0..1000] of real;
  p,min,pr:real;
  i,j,k,n: Integer;
  b: boolean;
 
begin        ////////////////////////////////////////////////////// 1)
 
  Writeln;  // переход на новую строку
  Writeln ('1) Генерируем одномерный массив из 31 элемента в интервале (-9,6):');   //вывод текаста
  Write('   ');
  randomize;                        // генерируем рандом
  for i:=1 to 31 do
  begin
     f[i]:=random(16)-6;            // генерируем массив
     Write(floattostr(f[i]));
     if i<>31 then Write(', ');     // записываем через запятую
  end;
  Writeln('.');                     // в конце точка
 
  ////////////////////////////////////////////////////// 2)
  Writeln;  // переход на новую строку
  Writeln ('2) Произведение второй половины массива:');   //вывод текаста
 
  pr:=1;
  for i:=1 to 31 do
  begin
     if (f[i]>0) and (i>31/2) then    //поиск положительных и элементов второй половины
        pr:=pr*f[i];                  //вычисление произведения
  end;
  Write('   Pr = ');                  //
  Write(floattostr(pr));              //вывод результата
  Writeln('.');
 
  ////////////////////////////////////////////////////// 3)
  Writeln;  // переход на новую строку
  Writeln ('3) минимальное значение среди нечетных по номеру элементов среди третьей четверти массива:');   //вывод текаста
 
  j:=1;       //счетчик четности
  min:=9;
  for i:=1 to 31 do
  begin
     if (j=1) and (i>31/2) and (i<31*3/4) then        //нечетные и третья четверть
        if f[i]<min then min:=f[i];                   //поиск минимального
     if j=1 then j:=j+1 else j:=1;
  end;
  Write('   Min = ');
  Write(floattostr(Min));                                 //вывод результата
  Writeln('.');
 
  ////////////////////////////////////////////////////// 4)
  Writeln;  // переход на новую строку
  Writeln ('4) Упорядочить четные по значению элементы последней четверти массива по убыванию обратных значений:');   //вывод текста
 
  // перенесем в новый массив требуемые значения
  k:=1; // счетчик номера элементов нового массива
  j:=1;       //счетчик четности
  for i:=1 to 31 do
  begin
     if (i>31*3/4) and (j=2) then                 // третья четверть и четные
        begin
          a[k]:=f[i];                             //формирования нового массива
          k:=k+1;
        end;
     if j=1 then j:=j+1 else j:=1;                //считаем четность
 
  end;
 
  Writeln ('   Элементы выбраны:');   //вывод текста
  write('   ');
  for i:=1 to k-1 do
  begin
     Write(floattostr(a[i]));                     // вывод массива
     if i<>k-1 then Write(', ');
  end;
 
 
  n:=k-1;          //убывание обратных значений - это тоже самое, что и возрастание значений массива, сделаем сортировку так, чтобы не было деления на 0
  repeat           // сортировка методом пузырька
   b:= false;
   Dec(n);
   for i:= 1 to n do
    if a[i] < a[i+1] then
     begin
      p:= a[i];
      a[i]:= a[i+1];
      a[i+1]:= p;
      b:= true;
     end;
  until not b;
 
 
  writeln;
  Writeln ('   Выбранные элементы отсортированы:');   //вывод текста
  write('   ');
  for i:=1 to k-1 do
  begin
     Write(floattostr(a[i]));                        //вывод массива
     if i<>k-1 then Write(', ');
  end;
  
        // теперь запишем эти элементы в наш массив обратно
  k:=1; // счетчик номера элементов нового массива
  j:=1;       //счетчик четности
  for i:=1 to 31 do
  begin
     if (i>31*3/4) and (j=2) then                     // третья четверть и четные
        begin
          f[i]:=a[k];                                 // перенос элементов обратно в массив
          k:=k+1;
        end;
     if j=1 then j:=j+1 else j:=1;                    //считаем четность
  end;
  
  Writeln;
  Writeln ('   Получился массив после переноса новых элементов:');   //вывод текста
  write('   ');;
  for i:=1 to 31 do                   // выводим получившийся массив
  begin
     Write(floattostr(f[i]));
     if i<>31 then Write(', ');                  //вывод
  end;
  Writeln('.');
 
end.

@Cyborg Drone · 30.05.2015, 18:52

Это решение также некорректно. К примеру, автор программы считает, что вторая половина массива - это элементы с индексами 16..31. Собственно, почему не 15..31, или вообще, к примеру, не 19..31? Ещё раз. В данном случае, 31 не делится ни на 2, ни на 4. Задача некорректная.

И автор ещё всяких вольностей в решении понаделал. Например, при объявлении массива индексы начинаются с 0, в программе же элементы массива с индексом 0 не используются. В чём тайный смысл такого несоответствия - неясно.

В операторах сравнения к целочисленным переменным применяется операция "/", а не операция "div", смысла данных действий я также не понимаю.

Нет корректного задания - не будет решения. Уточните задание у Вашего преподавателя. Или вы всё ещё считаете, что, к примеру, 39 человек можно поделить на 2 или 4 равные группы?

Добавлено через 6 минут
Да, и посмотрите, может быть, в задании указано: "вычислить значения элементов 0..39 одномерного целочисленного массива F"? Если индексация массива начинается с 0, тогда элементов получится 40, и задача будет корректной.

@arturuk · 30.05.2015, 21:10 **[ТС]**

пусть тогда индексация массива начинается с 0, тогда вы сможете написать программу?

@Cyborg Drone · 31.05.2015, 00:17

Конечно.

Pascal

const n = 39;
var f: array [0..n] of integer;
    i, j, k, p: integer;
    sg, c: real;
begin
  randomize;
  Writeln ('1) Генерируем одномерный массив из ', n + 1, ' элементов в интервале (-10, 10):');
  for i := 0 to n do
    begin
       f[i] := -10 + random(21);
       write(f[i]:4)
    end;
  writeln;
  writeln('2) Вычисляем среднее геометрическое чётных по значению элементов 2 четверти:');
  sg := 1;
  p := 0;
  k := (n + 1) div 4;
  for i := k to k * 2 - 1 do
    if not odd(f[i])
      then begin
        sg := sg * f[i];
        inc(p);
      end;
  if p = 0
    then writeln('Не найдено чётных по значению элементов во 2 четверти массива')
    else if not odd(p) and (sg < 0)
      then begin
        writeln('Среднее геометрическое не вычислено, ошибка:');
        writeln('попытка вычисления корня степени ', p, ' из числа ', sg:0:0)
      end
      else begin
        if sg > 0
          then sg := exp(ln(sg) / p)
          else if sg < 0
            then sg := -exp(ln(-sg) / p);
        writeln('Среднее геометрическое чётных по значению элементов 2 четверти массива:');
        writeln(sg:0:10)
      end;
  writeln;
  writeln('3) Определяем ближайшее к числу С значение среди положительных элементов');
  p := 0;
  write('C = ');
  readln(c);
  for i := 0 to n do
    if f[i] > 0
      then if p = 0
        then p := i
        else if abs(f[i] - c) < abs(f[p] - c)
          then p := i;
  if p = 0
    then writeln('Положительных элементов массива не найдено')
    else writeln('Ближайшее к числу C значение среди положительных элементов: ', f[p]);
  writeln;
  writeln('4) упорядочиваем положительные элементы 2 половины массива');
  writeln('   по убыванию модулей обратных значений');
  for i := (n + 1) div 2 to n - 1 do
    if f[i] > 0
      then begin
        k := i;
        for j := i + 1 to n do if (f[j] > 0) and (abs(1 / f[k]) < abs(1 / f[j])) then k := j;
        if k > i
          then begin
            p := f[i];
            f[i] := f[k];
            f[k] := p
          end
      end;
  writeln('Упорядоченный массив:');
  for i := 0 to n do write(f[i]:4);
  writeln;
  write('Нажмите клавишу <Enter> для выхода из программы');
  readln
end.

Замечу, что вот эта часть задания идиотская:

Сообщение от arturuk

4) упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений.

если рассматриваются только положительные элементы, модуль вычислять незачем. А по убыванию обратных значений это то же самое, что по возрастанию значений. В программе я написал строго по заданию, но, если не желаете выглядеть капитаном Очевидность, то замените:

Pascal

60	for j := i + 1 to n do if (f[j] > 0) and (f[k] > f[j]) then k := j;

Добавлено через 21 минуту
Да, чуть не забыл. В написанном Вами фрагменте программы ошибки и некорректности. Неверно вычисляются значения элементов массива. По заданию массив целочисленный, у Вас объявлено, что массив вещественный, а это неприемлемо, потому что вещественные числа не бывают чётными или нечётными. Незачем в операторах write или writeln использовать функцию floattostr. Незачем назначать размер массива более необходимого. Массив может выводиться неверно: при строке длиннее 80 символов перенос после 80 символа будет в любом случае, и может получиться нечто такое:

-2, 0, -4, -7, -2, 7, -3, 4, 9, 1, 0, -4, 0, 7, -10, 5, 5, 10, 10, 7, -5, -9, -1
0, 3, -5, -3, 5, 7, 3, -6, 5, -8, -7, -8, 1, 7, 6, -8, 0, -9.

Здесь элемент f[22]=-10 порезало: -1 напечаталась в конце первой строки, а 0 напечатался в начале второй строки.

@arturuk · 18.06.2015, 14:12 **[ТС]**

а можете эту программу поменять так чтобы вот эти 4 пункта выполнялись через оператор выбора (case of)?
вводишь число например 3 и выполняется 3 пункт :Определяем ближайшее к числу С значение среди положительных элементов. Потом дальше можно вводить другое число 2 например и выполняется это.
я попробовал переделать..но у меня выходит ошибка в строке: for i := 0 to n do . Якобы встречено for ,а ожидалось выражение?

@Cyborg Drone · 18.06.2015, 18:13

Сообщение от arturuk

встречено for ,а ожидалось выражение

Ну, в синтаксисе что-то перепутали... Паскаль он такой, неточностей не допускает...

Вот, добавил менюшку. Переменная v - выбор пункта меню. При старте программы сразу генерируется массив, из-за лени, естественно, чтобы не менять вид меню из-за того, сгенерирован массив или нет.

Pascal

const n = 39;
var f: array [0..n] of integer;
    i, j, k, p: integer;
    sg, c: real;
    v: string;
begin
  randomize;
  v := '1'; {при старте программы сразу генерируем массив}
  repeat
    writeln;
    case v[1] of
     '1': begin {генерируем массив}
            writeln('Сгенерирован одномерный массив из ', n + 1, ' элементов в интервале (-10, 10):');
            for i := 0 to n do
            begin
               f[i] := -10 + random(21);
               write(f[i]:4)
            end;
          end;
     '2': begin {вычисляем среднее геометрическое чётных по значению элементов 2 четверти}
            writeln('Исходный массив:');
            for i := 0 to n do write(f[i]:4);
            sg := 1;
            p := 0;
            k := (n + 1) div 4;
            for i := k to k * 2 - 1 do
              if not odd(f[i])
                then begin
                  sg := sg * f[i];
                  inc(p);
                end;
            if p = 0
              then writeln('Не найдено чётных по значению элементов во 2 четверти массива')
              else if not odd(p) and (sg < 0)
                then begin
                  writeln('Среднее геометрическое не вычислено, ошибка:');
                  writeln('попытка вычисления корня степени ', p, ' из числа ', sg:0:0)
                end
                else begin
                  if sg > 0
                    then sg := exp(ln(sg) / p)
                    else if sg < 0
                      then sg := -exp(ln(-sg) / p);
                  writeln('Среднее геометрическое чётных по значению элементов 2 четверти массива:');
                  writeln(sg:0:10)
                end
          end;
     '3': begin {определяем ближайшее к числу С значение среди положительных элементов}
            writeln('Исходный массив:');
            for i := 0 to n do write(f[i]:4);
            p := 0;
            write('C = ');
            readln(c);
            for i := 0 to n do
              if f[i] > 0
                then if p = 0
                  then p := i
                  else if abs(f[i] - c) < abs(f[p] - c)
                    then p := i;
            if p = 0
              then writeln('Положительных элементов массива не найдено')
              else writeln('Ближайшее к числу C значение среди положительных элементов: ', f[p])
          end;
     '4': begin {упорядочиваем положительные элементы 2 половины массива по убыванию модулей обратных значений}
            writeln('Исходный массив:');
            for i := 0 to n do write(f[i]:4);
            for i := (n + 1) div 2 to n - 1 do
              if f[i] > 0
                then begin
                  k := i;
                  for j := i + 1 to n do if (f[j] > 0) and (abs(1 / f[k]) < abs(1 / f[j])) then k := j;
                  if k > i
                    then begin
                      p := f[i];
                      f[i] := f[k];
                      f[k] := p
                    end
                end;
            writeln('Упорядоченный массив:');
            for i := 0 to n do write(f[i]:4);
            writeln
          end
     else writeln('Введено неверное значение, повторите ввод')
    end;
    writeln;
    Writeln('1 - Сгенерировать заново массив из ', n + 1, ' элементов в интервале [-10, 10]');
    writeln('2 - Вычислить среднее геометрическое чётных по значению элементов 2 четверти');
    writeln('3 - Определить ближайшее к числу С значение среди положительных элементов');
    writeln('4 - Упорядочить положительные элементы 2 половины массива');
    writeln('5 - Выйти из программы');
    writeln;
    Write('    Выберите действие: ');
    readln(v);
    if length(v) = 0 then v := '0'
  until v = '5'
end.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.05.2015, 16:37	2
	Сообщение от arturuk элементов второй четверти массива;.... элементы второй половины массива Напишите границы второй четверти и второй половины массива из 39 элементов. 0

@arturuk 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 17
	27.05.2015, 18:43 [ТС]	3
	всего 19 столбцов тогда наверно с 6 по 10 столбец вторая четверть 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	28.05.2015, 09:57	4
	arturuk, 19 не делится на 4 и на 2. Добавлено через 17 секунд И 39 тоже не делится. 0

@Cyborg Drone Модератор 9874 / 5242 / 3306 Регистрация: 17.08.2012 Сообщений: 16,011
	29.05.2015, 14:39	5
	Сообщение от arturuk 39 элементов Уточните задание. Поскольку 39 не делится нацело ни на 4, ни на 2, то где у массива вторая четверть и вторая половина, определить не представляется возможным. 0

@Cyborg Drone Модератор 9874 / 5242 / 3306 Регистрация: 17.08.2012 Сообщений: 16,011
	30.05.2015, 18:52	7
	Это решение также некорректно. К примеру, автор программы считает, что вторая половина массива - это элементы с индексами 16..31. Собственно, почему не 15..31, или вообще, к примеру, не 19..31? Ещё раз. В данном случае, 31 не делится ни на 2, ни на 4. Задача некорректная. И автор ещё всяких вольностей в решении понаделал. Например, при объявлении массива индексы начинаются с 0, в программе же элементы массива с индексом 0 не используются. В чём тайный смысл такого несоответствия - неясно. В операторах сравнения к целочисленным переменным применяется операция "/", а не операция "div", смысла данных действий я также не понимаю. Нет корректного задания - не будет решения. Уточните задание у Вашего преподавателя. Или вы всё ещё считаете, что, к примеру, 39 человек можно поделить на 2 или 4 равные группы? Добавлено через 6 минут Да, и посмотрите, может быть, в задании указано: "вычислить значения элементов 0..39 одномерного целочисленного массива F"? Если индексация массива начинается с 0, тогда элементов получится 40, и задача будет корректной. 0

@arturuk 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 17
	30.05.2015, 21:10 [ТС]	8
	пусть тогда индексация массива начинается с 0, тогда вы сможете написать программу? 0

@arturuk 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 17
	18.06.2015, 14:12 [ТС]	10
	а можете эту программу поменять так чтобы вот эти 4 пункта выполнялись через оператор выбора (case of)? вводишь число например 3 и выполняется 3 пункт :Определяем ближайшее к числу С значение среди положительных элементов. Потом дальше можно вводить другое число 2 например и выполняется это. я попробовал переделать..но у меня выходит ошибка в строке: for i := 0 to n do . Якобы встречено for ,а ожидалось выражение? 0

	18.06.2015, 18:13

Вычислить значения 39 элементов одномерного целочисленного массива F в заданном интервале

Решение