Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Задача на массивы https://www.cyberforum.ru/ pascalabc-net/ thread2140769.html
Даны 2 массива по 15 элементов. определить величину S по правилу: S:= 1,если MAX(x(i))>MAX(y(i)), 0, в противном случае Результат вывести в виде: Массив 1: Массив 2: S=
PascalABC.NET Типизированные файлы в Паскаль
Помогите пожалуйста, нужно очень срочно. Надо написать программу на PascalABCNET, которая создаёт типизированный файл из 40 вещественных чисел. Расположенны они по такому принципу: первые 10- положительные, вторые 10- отрицательные, третьи 10- полижетельные, четвёртые 10- отрицательные (Пример: 1 2 3 4 5 6 7 8 9 10 -11 -12 -13 -14 -15 -16 -17 -18 -19 -20 21 22 23 24...) Нужно создать новый...
PascalABC.NET Получить третий массив, перемножая соответствующие элементы исходных массивов и давая произведению знак большего из пары https://www.cyberforum.ru/ pascalabc-net/ thread2140699.html
Даны 2 массива. Количество элементов не более 20. Получить третий перемножая соответствующие элементы исходных массивов и давая произведению знак большего из пары. В новом массиве подсчитать сумму положительных и количество отрицательных элементов. Расположенных под минимальным.
PascalABC.NET Можно ли в PascalABC программно перемещать курсор мыши? Можно ли в PascalABC программно перемещать курсор мыши? Например, в центр экрана или в левый верхний угол? https://www.cyberforum.ru/ pascalabc-net/ thread2140684.html
PascalABC.NET Палиндром. Ввод и вывод данных
Здравствуйте. Задание состоит в том, что пользователь вводит массив строк и программа должна проверить каждую строку на то, является ли она палиндромом. Программа работает, но я не могу понять одного, когда я её запускаю, у меня почему-то в цикле ввода сразу подставляется пустая строка в процедуру, а сам цикл ввода идет на один шаг меньше, то есть n-1. Не могу понять в чем проблема, так как...
PascalABC.NET Получить массив, состоящий из номеров строк матрицы, в которых второй элемент больше первого вдвое https://www.cyberforum.ru/ pascalabc-net/ thread2139915.html
Дана матрица nxm. Найти количество элементов, лежащих на отрезке (p,q) и их произведение. Получить массив, состоящий из номеров строк, в которых второй элемент больше первого вдвое.
PascalABC.NET Дана квадратная матрица R (M, M). Составить одномерный массив из элементов на главной диагонали, определить максимальный Дана квадратная матрица R (M, M). Составить одномерный массив из элементов на главной диагонали, определить максимальный элемент среди элементов выше главной диагонали. https://www.cyberforum.ru/ pascalabc-net/ thread2139912.html PascalABC.NET Найти все натуральные числа, не превосходящие заданного N и делящиеся на каждую из своих цифр
Используя вложенные циклы найти все натуральные числа, не превосходящие заданного N и делящиеся на каждую из своих цифр.
PascalABC.NET Вывести таблицу значений функции f(x). Задание нужно выполнить используя оператор цикла с параметром (for) https://www.cyberforum.ru/ pascalabc-net/ thread2139881.html
Задание нужно выполнить используя оператор цикла с параметром (for) Даны действительные a, b и натуральное n. Вывести таблицу значений функции f(x). Таблица имеет две колонки, в i-ю строку таблицы заносятся значения xi и yi, где xi=a+ih, h=(b-a)/n, yi=f(xi)(i=0,1...,n). f(x)=(x2+1)cos(x) Вычислить f(a)+f(a+h)+...+f(a+nh) Делал сам, но вышло криво. var a, b, h, x, f, xi, yi: real; n,...
PascalABC.NET Задана таблица a 10 на 20, найти её среднее арифметическое всех её элементов Всем привет. Задана таблица a 10 на 20, найти её среднее арифметическое всех её элементов. Спасибо) https://www.cyberforum.ru/ pascalabc-net/ thread2139854.html
Возвести число в степень (основание и показатель степени записаны в P-ичной системе счисления) PascalABC.NET
Задача в Pascal (модули) Возвести число в степень (основание и показатель степени записаны в P-ичной системе счисления). Результат вывести в P-ичной и десятичной системах. pascal
PascalABC.NET Задача о арифметическим циклам (простой переменной) Напишите программу люди добрые! Фото во вложении☺ https://www.cyberforum.ru/ pascalabc-net/ thread2139764.html
5065 / 2637 / 2348
Регистрация: 10.12.2014
Сообщений: 10,003
22.11.2017, 08:15 0

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

22.11.2017, 08:15. Показов 1985. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Noname1331 как решение

Решение

Вообще неправильное тема!
С „классическими“ стеками не определены такие операции, которыми требуется …
Над ними определены только две операции PUSH и POP!
Ну, раз надо, значит надо… ;–(
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
begin
  var s1 := ReadString('Введите подряд (без пробелов) символы первого стека:');
  var s2 := ReadString('Введите подряд (без пробелов) символы второго стека:');
  
  var st1 := New Stack<char>;
  var st2 := New Stack<char>;
  foreach var c in s1 do st1.Push(c); WriteLn('1 стек : '); st1.Println;
  foreach var c in s2 do st2.Push(c); WriteLn('2 стек : '); st2.Println;
    
  var stMul := New Stack<char>;
  foreach var c in st1 do if st2.Contains(c) then stMul.Push(c);
  WriteLn('Cтек элементов, которые содержатся и в первом и во втором стеках: '); stMul.Println;
end.


Вернуться к обсуждению:
Из двух заданных стеков, хранящих символы, создать новый стек из тех символов первого стека, которые есть и в первом PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2017, 08:15
Готовые ответы и решения:

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

Из двух стеков с целыми числами создать новый стек из элементов первого стека, которых нет во втором
Здравствуйте. Помогите пожалуйста написать код теме: Реализация стека и основных алгоритмов его...

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2017, 08:15
Помогаю со студенческими работами здесь

Создать новый стек, содержащий только те числа из первого стека, которые больше среднего значения всех элементов первого
Общая часть: Создать стек для хранения чисел, значение которых случайно в диапазоне от –50 до +50....

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

Создать новый стек, в который поместить каждый третий элемент первого стека
Помогите, пожалуйста реализовать следующее: создать стек с числами в диапазоне от –50 до +50. После...

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

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