|
|
| Другие темы раздела | |
|
Pascal типизированные файлы
https://www.cyberforum.ru/ pascal/ thread314935.html создать файл телефонный справочник. найдите номер АТС(первые две цифры номера телефона), имеющий наибольшее число абонентов. |
Пересечение треугольника и окружности Pascal На плоскости заданы множество точек и окружность радиусом R с центром в начале координат. Постройте множество всех треугольников с вершинами в заданных точках, имеющих непустое пересечение с окружностью. |
|
Pascal ознакомиться с терой по интервальной математике и создать модуль по выполнению 4 арифметических действий(+,-,/,*)
https://www.cyberforum.ru/ pascal/ thread314899.html Ознакомиться с терой по интервальной математике и создать модуль по выполнению 4 арифметических действий(+,-,/,*).Пожалуйста помогите,мне нужно срочно! |
Pascal Надо написать 2 программы, суть которых в определении количества чисел (по заданным критериям) в последовательности с неизвестным кол-вом чисел. Помогите, пожалуйста, написать две программки: 1. Программа, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 7. Программа получает на вход целые числа, количество которых неизвестно. Последовательность заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000, сами числа по модулю не превышают 30... https://www.cyberforum.ru/ pascal/ thread314872.html |
|
Ошибка в коде Pascal помогите плиз Program kurs_2; Uses crt; Type mas=array of real; Var x,y:mas; Rq,Int:real; f1,f2:text; l,k,i:integer; begin clrscr; |
Pascal Рекурсивная программа для вычисления функции
https://www.cyberforum.ru/ pascal/ thread314567.html Написать рекурсивную программу для вычисления |
|
Pascal Исправить 3адачу: дана строка длиной n символов, Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его сре
https://www.cyberforum.ru/ pascal/ thread314539.html дана строка, между словами не менее одного пробела, в конце точка. Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его среднюю букву. В чем у меня может быть ошибка? Не обрабатывается последнее слово.. uses crt; var str,s2,newstr:string; i,j,n,x,k,s,w:integer; |
Pascal Программирование алгоритмов циклической структуры Помогите составить программу, проверяющую, верно ли утверждение, что введенное Вами целое число является нечетным.(с помощью цикла) Заранее спасибо..) |
|
Pascal Создайте программу для вычисления суммы квадратов
https://www.cyberforum.ru/ pascal/ thread314509.html Создайте программу для вычисления суммы квадратов простых чисел, лежащих в интервале (M,N) |
Pascal Найти значение функции
https://www.cyberforum.ru/ pascal/ thread314507.html Даны: A,B,C - массивы из 20 элементов, состоящие из случайных целых чисел от 1 до 100. Найти значение функции F1: MIN(a1,a2,...,a20)/MAX(b1,b2,...,b20), если MIN(c1,c2,...,c20)>0 MAX(a1+b2,..., a20+b20) |
|
Pascal Матрица.Создать Сформировать матрицу размерности 10х10 случайных натуральных чисел, значения которых не превышают 200. Выдать ее на экран. Сжать матрицу, удалив из нее все четные строки. Выдать на экран. Сжать матрицу, удалив из нее нечетные строки. Выдать ее на экран (в программе должны быть процедуры выдачи матрицы на экран и процедура удаления некоторой строки из матрицы). |
Pascal Паскаль с матрицей
https://www.cyberforum.ru/ pascal/ thread314505.html Помогите пожалуйста решить,очень нужно! Если кто решит,буду очень благодарен! И если получится,напишите блок-схему. Я в паскале не бум-бум... А зачет не поставят без задачи :cry: P.S. Нижний лист сначала идет |
|
vertikon
|
|
| 0 | |
создать стек в памяти из этих чисел таким образом, чтобы на вершине стека было самое большое число. Удалить из стека все отрицательные элементы. - Pascal - Ответ 173510407.06.2011, 13:48. Показов 1908. Ответов 3
Метки (Все метки)
В файл записывается последовательность целых чисел. Прочитать последовательность из файла и создать стек в памяти из этих чисел таким образом, чтобы на вершине стека было самое большое число. Удалить из стека все отрицательные элементы. Вывести исходный и результирующий стеки на экран. Вернуться к обсуждению: создать стек в памяти из этих чисел таким образом, чтобы на вершине стека было самое большое число. Удалить из стека все отрицательные элементы. Pascal |
|
|
|
| 07.06.2011, 13:48 | |
|
Готовые ответы и решения:
3
*. В файле из вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом Дан указатель P1 на вершину стека (если стек пуст, то P1 = nil). Извлечь из стека все элементы и вывести их значения |
| 07.06.2011, 13:48 | |
|
Помогаю со студенческими работами здесь
0
Если x равен вершине «стека», то удалить из «очереди» элемент и поместить его в «стек» В стек Stek2 поместить все отрицательные элементы стека Stek1 и найти их произведение Создать два новых стека, переместив в первый из них все элементы исходного стека с четными значениями
|