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

Создать третий стек из тех символов первого стека, которые есть и в первом и во втором стеке

15.11.2017, 15:13. Показов 889. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Из двух заданных стеков, хранящих символы, создать новый стек из тех символов первого стека, которые есть и в первом и во втором стеке
пример

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
Type 
  Tinfo=real;
 
  PElem=^TElem;  // моделирование стека на основе односвязного списка
  TElem=record
          Info: Tinfo;
          Next: PElem;
  End;
 
StackTop: PElem; // вершина стека
 
// дополнительная процедура перекладывания элемента из одного стека в другой
procedure TopToTop(var StackTop, Dop: PElem);
var Elem: PElem;
begin
   Elem:=StackTop;
   StackTop:= StackTop^.next;
   Elem^.Next:= Dop;
   Dop:= Elem;
end;
 
//найти сумму элементов стека
function naiti(StackTop: PElem):real;
var
  Dop: PElem; // вершина дополнительного стека
  Sum: real; // сумма элементов стека
Begin
  Dop:=nil; Sum:=0;
  While StackTop<>nil do {1. Разбор стека }
  Begin
     Sum:=Sum+ StackTop^.info;
     TopToTop(StackTop, Dop);
  End;
 
  While Dop<>nil do {2. Возвращение элементов }
  Begin
     TopToTop(Dop, StackTop);
  End;
  Naiti:=Sum;
End;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2017, 15:13
Ответы с готовыми решениями:

Создать третий одномерный массив x состоящий из чисел, которые есть и в первом и во втором массиве
Даны два одномерных массива a и b.Числа вводятся с клавиатуры.Создать третий одномерный массив x...

Создать новый стек из тех символов первого стека которые есть во втором
Из двух заданных стеков, хранящих символы создать новый стек из тех символов первого стека которые...

Из двух заданных стеков, хранящих символы, создать новый стек из тех символов первого стека, которые есть и в первом
Из двух заданных стеков, хранящих символы, создать новый стек из тех символов первого стека,...

Переписать в третий файл только те строчки, которые есть и в первом, и во втором файлах.
Заданы 2 текстовых файла. Переписать в третий только те строчки, которые есть и в первом, и во...

5
ZX Spectrum-128
26.11.2017, 19:01
  #2
 Комментарий модератора 
Noname1331, дубль вашей темы удален.
Пожалуйста, НЕ дублируйте темы!
0
0 / 0 / 0
Регистрация: 26.09.2017
Сообщений: 62
04.12.2017, 12:46  [ТС] 3
До конца можно пожалуйста?
0
0 / 0 / 0
Регистрация: 26.09.2017
Сообщений: 62
08.12.2017, 16:22  [ТС] 4
Вставляю в паскаль и ничего, не работает
0
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
08.12.2017, 17:04 5
Цитата Сообщение от Noname1331 Посмотреть сообщение
Вставляю в паскаль и ничего, не работает
Программа не до конца. Вернитесь на тот сайт, откуда вы её взяли и возьмите полный вариант.
0
0 / 0 / 0
Регистрация: 26.09.2017
Сообщений: 62
11.12.2017, 11:52  [ТС] 6
Я не брал ни с какого сайта, до конца поможете ?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2017, 11:52
Помогаю со студенческими работами здесь

Записать в третий файл только те строки, которые есть и в первом, и во втором файлах
Даны два текстовых файла. Записать в третий только те строки, которые есть и в первом, и во втором...

Записать в третий файл только те строки, которые есть и в первом, и во втором файлах
Program lab8; uses crt; var f,f1,f2:text; s,s1:String; begin Assign(f,'D:\222.txt'); ...

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

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


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

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

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