|
|
Другие темы раздела | |
Turbo Pascal перевод
https://www.cyberforum.ru/ turbo-pascal/ thread77369.html помогите пожалуйста перевести на паскаль #include "stdafx.h" #include "iostream" #include "math.h" using namespace std; double f(double); |
Вывести самое длинное слово в строке и его длину Turbo Pascal Напишите пожалуйста программу!СПАСИБО! Задана строка символов. Группы символов, разделенные пробелом, будем называть словами. Вывести самое длинное слово в строке и его длину. |
Turbo Pascal Яляются ли числа делителями значения суммы
https://www.cyberforum.ru/ turbo-pascal/ thread77325.html Ребята, хэлп, скоро зачёт по информатике, не шарю в паскале вообще, помогите написать программу в Turbo Pascal'е, плиз Даны целые числа m и n. Определить, являются ли они делителями значения суммы первой и предпоследней цифры заданного четырёхзначного числа.:wall: |
Turbo Pascal Вычислить значение выражения
https://www.cyberforum.ru/ turbo-pascal/ thread77301.html Здравствуйте! Помогите пожалуйста решить такую задачу в Паскале: Y=(1-X5/5+X10/10-X15/15+X20/20)*1/2 (иксы в степени) Заранее большое спасибо! |
найти наименьшее положительное целое число, которого нет на ленте. Turbo Pascal Помогите пожалуйста с задачкой... На длинной перфоленте записаны N попарно различных положительных целых чисел. Ваша ЭВМ может перематывать ленту на начало и считывать числа одно за другим. Внутренняя память машины может хранить только несколько целых чисел. Требуется найти наименьшее положительное целое число, которого нет на ленте. Опишите алгоритм, который сделает это за небольшое... |
Turbo Pascal Вывести на экран график функции
https://www.cyberforum.ru/ turbo-pascal/ thread77283.html Вывести на экран график функции.Отобразить координатную плоскость. Вывод графика производить попиксельно с задержкой и звуковым сигналом. y=2*x*x Добавлено через 1 час 45 минут Напишите плиз программу!СПАСИБО! |
Turbo Pascal пример на рекуррентные отношения
https://www.cyberforum.ru/ turbo-pascal/ thread77257.html Здравствуйте! Помогите пожалуйста решить такую задачу в Паскале: Y=(1-X5/5+X10/10-X15/15+X20/20)*1/2 (иксы в степени) Заранее большое спасибо! |
Turbo Pascal Ребус, табулирование функции. Срочно нужна помощь в решении задач. 1. Решение ребуса. uses crt; var p,r,a,c,o,s,e,x:longint; begin clrscr; for p:=1 to 9 do for r:=0 to 9 do for a:=0 to 9 do |
Turbo Pascal Получить все числа, которые входят в последовательность по одному разу Пожалуйста , помогите одну единственную задачку решить!!!!! что-то не выполняется программа!!!=(((((((( Даны целые числа a1,...,an. Получить все числа, которые входят в последовательность по одному разу. https://www.cyberforum.ru/ turbo-pascal/ thread77116.html |
Turbo Pascal Как скопировать?
https://www.cyberforum.ru/ turbo-pascal/ thread77055.html С обычного txt файла в Turbo Pascal 7? ctrl+c - ctrl+v не действует, подскажите. Добавлено через 3 минуты DELETE Решил проблему. |
Turbo Pascal Про шахматных коней (на перебор) Дана исходная расстановка трех черных и трех белых шахматных коней на доске 3*3. Найти цепочку ходов, при которой белые и черные кони меняются местами. Белые и черные ходят по очереди. Помогите пожалуйста... Очень прошу... Добавлено через 5 минут Или мне конец((( Добавлено через 20 минут (( |
Turbo Pascal реккурентные отношения Здравствуйте! Помогите пожалуйста решить такую задачу в Паскале: Y=(1-X5/5+X10/10-X15/15+X20/20)*1/2 (иксы в степени) Заранее большое спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread77018.html |
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
|
||||||||||||
16.01.2010, 12:23 [ТС] | 0 | |||||||||||
Динамические структуры данных (списки, очереди, стеки, деревья) - Turbo Pascal - Ответ 48277016.01.2010, 12:23. Показов 220097. Ответов 8
Метки (Все метки)
Ответ
Приступим к работе с очередью.
Работа с очередями похожа на работу со стеком, только лишь изменится способ удаления элементов. И так, прочитав информацию на Википедии из предыдущих сообщений Вы уже имеете представление о том что такое стек, почитайте ещё вот эту статейку ссылка на Википедию. Очередь строится также как и стек. Каждый элемент "видит" предшествующий ему элемент. А теперь пройдёмся по процедурам и функция реализованными мной: 1) procedure AddElem(var nach,ends:List;znach1:TInf); 2) procedure Print(spis1:List); 3) Procedure FreeStek(spis1:List); 4) Function SearchElemZnach(spis1:List;znach1:TInf):List; 5) Procedure DelElem(var spis1,spis2:List;tmp:List); 6) procedure DelElemZnach(var Spis1,spis2:List;znach1:TInf); 7) Procedure DelElemPos(var spis1,spis2:List;posi:integer); 8) procedure SortBublInf(nach:list); 9) procedure SortBublLink(var nach,ends:List); Описания действия выполняемыми процедурами/функциями описаны выше, в предыдущих постах. Вот и сам код:
Вернуться к обсуждению: Динамические структуры данных (списки, очереди, стеки, деревья) Turbo Pascal
18
|
16.01.2010, 12:23 | |
Готовые ответы и решения:
8
Динамические структуры данных (списки, очереди, стеки, деревья) Рaспeчaтaть слова, имeющие мaксимальную длинy (списки\стеки\очереди). Какое решение тут хотят? Динамические списки, стеки, очереди Динамические структуры данных: списки |
16.01.2010, 12:23 | |
16.01.2010, 12:23 | |
Помогаю со студенческими работами здесь
0
Динамические структуры данных. Списки Стеки, списки, деревья, графы. Динамические структуры данных. Линейные списки Динамические структуры данных. Простые списки |