Выполнить задание по одномерным массивам

@forget89 · Регистрация: 02.05.2020

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

Всем привет, преподаватель проверил работу и оставил комментарий: "Программа не соответствует алгоритму. Основная программа (вывод массива)."
Вот данная работа, скажите пожалуйста что он имел ввиду и как это исправить если нашли что то не так, вот сама работа:Проверить пжлст.pdf
Буду очень благодарен если проверите и скажите что имел ввиду преподаватель

@Puporev · 12.05.2020, 13:11

Задание на программу и код программы выложите в тему в текстовом формате.

@forget89 · 12.05.2020, 13:31 **[ТС]**

Задание:
1. Проанализировать задание: понять задание; если требуется,
формализовать задачу; выяснить исходные данные каждой задачи,
результаты, последовательность решения; подготовить тестовые примеры
расчета, спланировать форму ввода исходных данных и вывода результатов
расчёта (разработать интерфейс программы).
2. Описать алгоритм решения. Основное требование к алгоритму:
решение задачи в общем виде, при любых значениях исходных данных. При
создании алгоритма рекомендуется использовать метод нисходящего
проектирования (постепенного уточнения): сначала описать общую
последовательность решения задач задания в виде нескольких крупных
действий основного алгоритма, затем подробно описать алгоритмы решения
отдельных задач. Для описания алгоритма решения любой задачи задания
нужно сначала выбрать определенный типовой алгоритм, потом
адаптировать его для конкретной задачи и оформить в виде отдельного
алгоритмического модуля.
3. Составить программу. При составлении программы предусмотреть
ввод данных в диалоговой форме, вывод данных с пояснениями.
Алгоритмические модули программировать в виде функций и процедур
(подпрограмм).
4. Отладить программу. Ввести программу в память ЭВМ, найти и
исправить все ошибки в программе, подтвердить правильность программы
тестовыми расчетами.
5. Выполнить расчеты. Выполнить серию расчетов с целью проверки
работоспособности программы в широком диапазоне изменения исходных
данных.
6. Отчитаться по выполненной работе. Продемонстрировать
преподавателю работу программы, представить отчет и защитить его.
Номер варианта, количество задач в индивидуальном задании,
требования к программе и форму отчетности назначает преподаватель.

Код на паскале abc net:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Program Work_4;
 Type vector=array[1..100] of integer;
 var Vw, n, i, a, b, min : integer;
 W: vector;
 S: real;
Procedure Part_1(Vw,n,a,b:integer; var W:vector);
 var i:integer;
Begin
 if Vw<>1 then randomize;
 for i:=1 to n do w[i]:=a+round((b-a)*Random(100)/100);
end;
Procedure Part_2(n:integer; W:vector; var S:real);
 var i:integer;
Begin
 S:=1;
 For i:=(n - (n div 5)) to n do
 If (w[i]<>0) then
 S:=S*w[i];
end;
Procedure Part_3(n,a,b:integer; W:vector; var min:integer);
 var i,M:integer;
Begin
 M:=maxint;
 min:=M;
 For i:=1 to n div 3 do
 If i<>0 then
 begin
 if w[i]<min then
 begin
 min:=w[i];
 end;
 end;
end;
Procedure Part_4(n:integer; var W:vector);
 var i,j,k,buf:integer;
Begin
 For i:=n div n to (n div 4) do
 If (w[i] mod 2) <>0 then
 begin
 k:=i;
 For j:=i to n do
 If (w[j] mod 2) <>0 then
 If 1/(w[j]+0.1e-30) > 1/(w[k]+0.1e-30) then k:=j;
 buf:=w[i];
 w[i]:=w[k];
 w[k]:=buf;
 end;
end;
Begin
 write('vvedite variant racheta Vw => ');
12
 readln(Vw);
 if Vw=0 then
 begin
 n:=12; a:=-3; b:=5;
 w[1]:=-1; w[2]:=0; w[3]:=4; w[4]:=3; w[5]:=5; w[6]:=-2;
 w[7]:=-1; w[8]:=0; w[9]:=-3; w[10]:=-2; w[11]:=1; w[12]:=5;
 end
 else
 begin
 Write('vvedite n,a,b => '); readln(n,a,b);
 Part_1(Vw,n,a,b,w);
 end;
 
writeln('*********************************************************
');
 writeln('Ishodniy massiv:');
 For i:=1 to n do
 begin
 write(w[i]:3);
 if i = n div 2 then writeln;
 end;
 writeln;
 
writeln('*********************************************************
');
 part_2(n,w,s);
 writeln('Proizvedenie S=',S);
 
writeln('*********************************************************
');
 part_3(n,a,b,w,min);
 writeln('Minimum min=',min);
 
writeln('*********************************************************
');
 part_4(n,w);
 writeln('Yporyado4niy massiv:');
 for i:=1 to n do
 begin
 write(w[i]:3);
 if i = n div 2 then writeln;
 end;
 writeln;
writeln('*********************************************************
');
end.

@ValentinNemo · 12.05.2020, 15:05

Насколько я понял, ваше задание - это вот этот текст, который был извлечен из pdf файла:

Часть 1. Вычислить значения 31 элементов одномерного целочисленного массива W в интервале (-10, 6) с использованием генератора случайных чисел.
Для получения целого случайного числа x на отрезке [a, b] в языке Паскале используется следующий оператор:
x := a + ROUND((b-a)RANDOM (100)100).
Чтобы при каждом новом запуске программы получить новую последовательность случайных чисел, необходимо в начале программы исполнить оператор RANDOMIZE.
Часть 2. Вычислить произведение нечетных по значению элементов последней четверти массива
Произведение нечетных по значению элементов заданного массива A = {a1, a2, a3, …, an} вычисляется по формуле:
X=a1•a2•a3…an;
Часть 3. Определить минимальное значение среди ненулевых элементов первой трети массива.
Определить элемент массива – это значит найти его положение (индекс) в массиве и его значение. Если требуемому условию удовлетворяют несколько элементов, то нужно установить индекс и значение каждого из них.
Часть 4. Упорядочить нечётные по значению элементы первой четверти массива по возрастанию квадратов значений.

@forget89 · 12.05.2020, 15:07 **[ТС]**

Да там у каждого варианта свое задание

@ValentinNemo · 12.05.2020, 15:10

Так это ваше задание или чужое?

@forget89 · 12.05.2020, 15:12 **[ТС]**

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

Так это ваше задание или чужое?

да мое, мой номер варианта 178, и каждое число значит задание т.е. ты его составляешь, могу кинуть саму лабораторную в пдф формате

@ValentinNemo · 12.05.2020, 15:30

Ох, как же трудно порой бывает с элементарными вопросами! Всей почтенной публике наплевать на номер вашего задания.
pdf файл с заданием вы уже привели. Из этого pdf файла было извлечено четкое и понятное задание.
Я еще раз спрашиваю - это задание предназначено для вас? Извлеченный текст, который я привел - это именно то, что требует от вас преподаватель?

@forget89 · 12.05.2020, 15:37 **[ТС]**

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

Ох, как же трудно порой бывает с элементарными вопросами! Всей почтенной публике наплевать на номер вашего задания.
pdf файл с заданием вы уже привели. Из этого pdf файла было извлечено четкое и понятное задание.
Я еще раз спрашиваю - это задание предназначено для вас? Извлеченный текст, который я привел - это именно то, что требует от вас преподаватель?

Да!

@ValentinNemo · 12.05.2020, 16:28

1. Ваше задание требует вычисления 31 элемента массива, а у вас 12. Диапазон генератора случайных чисел в задании a:=-10; b:=6; а у вас в программе a:=-3; b:=5; Вы вводите данные вручную, хотя значения заданы жестко. Дополнительные разъяснения к созданию программы требуют от вас, чтобы было 3 варианта тестирования: с фиксированными числами, с случайными числами без randomize, с случайными числами с randomize. По факту - только два.
2. Задание требует вычислить произведение нечетных по значению чисел, а вы проверяете элемент на ненулевое значение.
3. Задание требует от вас нахождения не только минимального значения, но и индексов элемента - этого нет, а также задание требует найти все элементы с минимальным значением - это еще дополнительный код, которого нет.
4. Задание требует от вас упорядочить нечетные по значению элементы по квадратам значений, а у вас - обратные числа.

@forget89 · 16.05.2020, 12:25 **[ТС]**

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

1. Ваше задание требует вычисления 31 элемента массива, а у вас 12. Диапазон генератора случайных чисел в задании a:=-10; b:=6; а у вас в программе a:=-3; b:=5; Вы вводите данные вручную, хотя значения заданы жестко. Дополнительные разъяснения к созданию программы требуют от вас, чтобы было 3 варианта тестирования: с фиксированными числами, с случайными числами без randomize, с случайными числами с randomize. По факту - только два.
2. Задание требует вычислить произведение нечетных по значению чисел, а вы проверяете элемент на ненулевое значение.
3. Задание требует от вас нахождения не только минимального значения, но и индексов элемента - этого нет, а также задание требует найти все элементы с минимальным значением - это еще дополнительный код, которого нет.
4. Задание требует от вас упорядочить нечетные по значению элементы по квадратам значений, а у вас - обратные числа.

Можете помочь исправить программу пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Program Work_4;
Const Title='Л.Р.№4 Выполнил ст.гр. БУС-19-01 Гарипов А.Р.';
  Type vector=array[1..100] of integer;
  var Vw, n, i, a, b, min : integer;
                   W: vector;
                   S: real;
Procedure Part_1(Vw,n,a,b:integer; var W:vector);
  var i:integer;
Begin
  if Vw<>1 then randomize;
  for i:=1 to n do w[i]:=a+round((b-a)*Random(100)/100);
end;
Procedure Part_2(n:integer; W:vector; var S:real);
  var i:integer;
Begin
  S:=1;
  For i:=(n - (n div 5)) to n do
    If (w[i]<>0) then
      S:=S*w[i];
end;
Procedure Part_3(n,a,b:integer; W:vector; var min:integer);
  var i,M:integer;
Begin
  M:=maxint;
  min:=M;
  For i:=1 to n div 3 do
    If i<>0 then
      begin
        if w[i]<min then 
        begin
         min:=w[i];
        end;
      end;
end;
Procedure Part_4(n:integer; var W:vector);
  var i,j,k,buf:integer;
Begin
  For i:=n div n to (n div 4) do
   If (w[i] mod 2) <>0 then
    begin
     k:=i;
     For j:=i to n  do
       If (w[j] mod 2) <>0 then
         If 1/(w[j]+0.1e-36) > 1/(w[k]+0.1e-36) then k:=j;
           buf:=w[i];
           w[i]:=w[k];
           w[k]:=buf;
   end;
end;
Begin
  write('Введите вариант расчета Vw => ');
  readln(Vw);
  if Vw=0 then
    begin
     n:=12; a:=-3; b:=5;
     w[1]:=-1; w[2]:=0; w[3]:=4; w[4]:=3; w[5]:=5; w[6]:=-2;
     w[7]:=-1; w[8]:=0; w[9]:=-3; w[10]:=-2; w[11]:=1; w[12]:=5;
    end
        else
        begin
         Write('Введите n,a,b => '); readln(n,a,b);
         Part_1(Vw,n,a,b,w);
        end;
  writeln('*********************************************************');
  writeln('Исходный массив:');
  For i:=1 to n do
    begin
     write(w[i]:3);
     if i = n div 2 then writeln;
    end;
  writeln;
  writeln('*********************************************************');
  part_2(n,w,s);
  writeln('Произведение S=',S);
  writeln('*********************************************************');
  part_3(n,a,b,w,min);
  writeln('Минимальное значение min=',min);
  writeln('*********************************************************');
  part_4(n,w);
  writeln('Упорядоченный массив:');
  for i:=1 to n do
    begin
     write(w[i]:3);
     if i = n div 2 then writeln;
    end;
  writeln;
writeln('*********************************************************');
end.

@forget89 · 16.05.2020, 20:02 **[ТС]**

Помогите пожалуйста написать программу по одномерным массивам, буду очень благодарен

Часть 1. Вычислить значения 31 элементов одномерного целочисленного массива W в интервале (-10, 6) с использованием генератора случайных чисел.
Для получения целого случайного числа x на отрезке [a, b] в языке Паскале используется следующий оператор:
x := a + ROUND((b-a)RANDOM (100)100).
Чтобы при каждом новом запуске программы получить новую последовательность случайных чисел, необходимо в начале программы исполнить оператор RANDOMIZE.
Часть 2. Вычислить произведение нечетных по значению элементов последней четверти массива
Произведение нечетных по значению элементов заданного массива A = {a1, a2, a3, …, an} вычисляется по формуле:
X=a1•a2•a3…an;
Часть 3. Определить минимальное значение среди ненулевых элементов первой трети массива.
Определить элемент массива – это значит найти его положение (индекс) в массиве и его значение. Если требуемому условию удовлетворяют несколько элементов, то нужно установить индекс и значение каждого из них.
Часть 4. Упорядочить нечётные по значению элементы первой четверти массива по возрастанию квадратов значений.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@forget89 0 / 0 / 0 Регистрация: 02.05.2020 Сообщений: 13

	Выполнить задание по одномерным массивам 12.05.2020, 11:39. Показов 1342. Ответов 11 Метки pascal, pascal abc, pascal abc net, блок схемы, лаба, лабораторная, массив, массив pascal, массивы, одномерные массивы (Все метки) Всем привет, преподаватель проверил работу и оставил комментарий: "Программа не соответствует алгоритму. Основная программа (вывод массива)." Вот данная работа, скажите пожалуйста что он имел ввиду и как это исправить если нашли что то не так, вот сама работа:Проверить пжлст.pdf Буду очень благодарен если проверите и скажите что имел ввиду преподаватель 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	12.05.2020, 13:11
	Задание на программу и код программы выложите в тему в текстовом формате. 0

@ValentinNemo 2374 / 776 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	12.05.2020, 15:05
	Насколько я понял, ваше задание - это вот этот текст, который был извлечен из pdf файла: Часть 1. Вычислить значения 31 элементов одномерного целочисленного массива W в интервале (-10, 6) с использованием генератора случайных чисел. Для получения целого случайного числа x на отрезке [a, b] в языке Паскале используется следующий оператор: x := a + ROUND((b-a)RANDOM (100)100). Чтобы при каждом новом запуске программы получить новую последовательность случайных чисел, необходимо в начале программы исполнить оператор RANDOMIZE. Часть 2. Вычислить произведение нечетных по значению элементов последней четверти массива Произведение нечетных по значению элементов заданного массива A = {a1, a2, a3, …, an} вычисляется по формуле: X=a1•a2•a3…an; Часть 3. Определить минимальное значение среди ненулевых элементов первой трети массива. Определить элемент массива – это значит найти его положение (индекс) в массиве и его значение. Если требуемому условию удовлетворяют несколько элементов, то нужно установить индекс и значение каждого из них. Часть 4. Упорядочить нечётные по значению элементы первой четверти массива по возрастанию квадратов значений. 0

@forget89 0 / 0 / 0 Регистрация: 02.05.2020 Сообщений: 13
	12.05.2020, 15:07 [ТС]
	Да там у каждого варианта свое задание 0

@ValentinNemo 2374 / 776 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	12.05.2020, 15:10
	Так это ваше задание или чужое? 0

@ValentinNemo 2374 / 776 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	12.05.2020, 15:30
	Ох, как же трудно порой бывает с элементарными вопросами! Всей почтенной публике наплевать на номер вашего задания. pdf файл с заданием вы уже привели. Из этого pdf файла было извлечено четкое и понятное задание. Я еще раз спрашиваю - это задание предназначено для вас? Извлеченный текст, который я привел - это именно то, что требует от вас преподаватель? 0

@ValentinNemo 2374 / 776 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	12.05.2020, 16:28
	1. Ваше задание требует вычисления 31 элемента массива, а у вас 12. Диапазон генератора случайных чисел в задании a:=-10; b:=6; а у вас в программе a:=-3; b:=5; Вы вводите данные вручную, хотя значения заданы жестко. Дополнительные разъяснения к созданию программы требуют от вас, чтобы было 3 варианта тестирования: с фиксированными числами, с случайными числами без randomize, с случайными числами с randomize. По факту - только два. 2. Задание требует вычислить произведение нечетных по значению чисел, а вы проверяете элемент на ненулевое значение. 3. Задание требует от вас нахождения не только минимального значения, но и индексов элемента - этого нет, а также задание требует найти все элементы с минимальным значением - это еще дополнительный код, которого нет. 4. Задание требует от вас упорядочить нечетные по значению элементы по квадратам значений, а у вас - обратные числа. 1

@forget89 0 / 0 / 0 Регистрация: 02.05.2020 Сообщений: 13
	16.05.2020, 20:02 [ТС]
	Помогите пожалуйста написать программу по одномерным массивам, буду очень благодарен Часть 1. Вычислить значения 31 элементов одномерного целочисленного массива W в интервале (-10, 6) с использованием генератора случайных чисел. Для получения целого случайного числа x на отрезке [a, b] в языке Паскале используется следующий оператор: x := a + ROUND((b-a)RANDOM (100)100). Чтобы при каждом новом запуске программы получить новую последовательность случайных чисел, необходимо в начале программы исполнить оператор RANDOMIZE. Часть 2. Вычислить произведение нечетных по значению элементов последней четверти массива Произведение нечетных по значению элементов заданного массива A = {a1, a2, a3, …, an} вычисляется по формуле: X=a1•a2•a3…an; Часть 3. Определить минимальное значение среди ненулевых элементов первой трети массива. Определить элемент массива – это значит найти его положение (индекс) в массиве и его значение. Если требуемому условию удовлетворяют несколько элементов, то нужно установить индекс и значение каждого из них. Часть 4. Упорядочить нечётные по значению элементы первой четверти массива по возрастанию квадратов значений. 0