0 / 0 / 0
Регистрация: 27.03.2018
Сообщений: 8
1

Найти сумму положительных элементов очереди и сам результат поместить в очередь

07.06.2018, 23:15. Показов 1110. Ответов 2
Метки нет (Все метки)

Вместо найти сумму минимального и последнего элемента очереди.
Нужно найти сумму положительных элементов очереди ну и сам результат поместить в очередь.

Прога:

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
program fdsfk; 
const maxqueue=11; 
type Queue=array[1..maxqueue] of integer; 
var q:queue; 
free,first,j,code,summ,min,op:integer; 
x:integer;
procedure init(var q:queue; var free,first:integer); 
begin 
First:=1; 
free:=1; 
end; 
Function empty(var q:queue; var free,first:integer):boolean; 
begin 
if first=free then empty:=true else empty:=false; 
end; 
procedure insQue(var q:queue; var free,first,code,x:integer); 
begin 
if free>maxqueue then 
begin 
code:=1; 
exit; 
end; 
q[free]:=x; 
free:=free+1; 
code:=0; 
end; 
procedure remque(var q:queue; var free,first,code,x:integer); 
begin 
if empty(q,first,free) then begin 
code:=2; 
exit; 
end; 
x:=q[first]; 
first:=first+1; 
code:=0; 
end; 
procedure print(var q:queue; var first,free:integer); 
var i:integer; 
begin 
for i:=first to free-1 do 
write(q[i]:4); 
end; 
begin 
init(q,free,first); 
for j:=1 to 11 do 
begin 
x:=(random(5)-1);
insque(q,free,first,code,x); 
end; 
print(q,first,free); 
writeln; 
min:=q[1]; 
for j:=first to free-1 do 
begin 
if q[j]>min then
min:=q[j];
end;  
writeln('Максимальное число=',min); 
begin 
summ:=+min+q[11];
end;  
writeln('сумма чисел=',summ);  
insque(q,free,first,code,summ); 
print(q,first,free); 
writeln; 
for j:=1 to 1 do 
remque(q,free,first,code,x); 
print(q,first,free); 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2018, 23:15
Ответы с готовыми решениями:

Найти сумму положительных элементов очереди
Заполнить очередь 11 случайными вещественными числами из интервала . Найти сумму положительных...

Найти корень из положительных чисел в ячейках от D1 до D9 и поместить результат в ячейки от E1 до E9
Напишите в двух вариантах (for...next, while…wend) программу, которая находит корень из...

Найти сумму кратных трем положительных элементов файла и полученый результат записать в новый файл
Создать файл из вещественных чисел и найти сумму кратных трем положительных элементов файла и...

В очередь Och2 поместить элементы из Och1, кратные 3, и найти их сумму
Помогите новичку в изучении С++ Описать структуры данных, процедуры и функции, необходимые для...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32245 / 20885 / 8086
Регистрация: 22.10.2011
Сообщений: 36,127
Записей в блоге: 7
08.06.2018, 00:50 2
Для выполнения этого задания весь вышеприведенный ужас не нужен. Достаточно:
Pascal
1
2
3
4
5
6
7
begin
  var q := new Queue<integer>(ArrRandom(11, -1, 4));
  q.Println;
  
  q.Enqueue(q.Where(v -> v > 0).Sum);
  q.Println
end.
0
0 / 0 / 0
Регистрация: 27.03.2018
Сообщений: 8
10.06.2018, 01:45  [ТС] 3
Я это понимаю
Но мой преподаватель хочет именно так как я написал
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2018, 01:45
Помогаю со студенческими работами здесь

Подсчитать сумму всех положительных элементов массива. На экран вывести сам массив и сумму
Здравствуйте! Помоги пожалуйста решить задачку. Дан одномерный массив А, элементы которого...

Классы: в очередь Och2 поместить все неотрицательные элементы из Och1 и найти их сумму
Помогите написать программу. Описать классы, необходимые для работы с заданной динамической...

Очередь на динамическом списке. Поместить гласные и согласные буквы в разные очереди. Исправить код.
Здравствуйте всем. У меня не получается доделать задачу, помогите пожалуйста. Вот само задание:...

Сформировать очередь, содержащую целые числа. Построить новую очередь, состоящую из элементов первоначальной очереди Q,
Сформировать очередь, содержащую целые числа. Построить новую очередь, состоящую из элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru