С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Текстовый файл содержит несколько целых чисел. Преобразовать каждое число так, чтобы его цифры располагались в порядке убывания. Текстовый файл содержит несколько целых чисел. Преобразовать каждое число так, чтобы его цифры располагались в порядке убывания. Вывести в другой текстовый файл данные для построения гистограммы, показывающей зависимость количества различных цифр в записи числа от его порядкового номера. :curtsy: https://www.cyberforum.ru/ turbo-pascal/ thread116026.html написать программу, которая будет выводит на экран текст расшифрованного заклинания Turbo Pascal
помогите составить програмку Разработка в среде Turbo Раsсаl программы, обеспечивающей ввод и обработку текстового файла с занесением результатов обработки в новый файл. На вход программе подается текст заклинания, состоящего не более, чем из 200 символов, заканчивающийся точкой (другие точки во входных данных отсутствуют). Оно было зашифровано Гарри Поттером следующим образом. Сначала Гарри...
Turbo Pascal Построение правильной фигуры! вот я написал программу которая чертит привильные фигуры в зависимомти от того какое кол-во вершин укажет пользователь! вот мне надо чтобы по желанию пользователя если вершин 5 или больше выводилась звезда(даже с внутренними вершинами) как это сделать...хотябы просто объясните популярно...необязательно программу!пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread115996.html Turbo Pascal В файле найти произведение последних пяти элементов. Полученным значением заменить каждую вторую компоненту файла В файле F1 найти произведение последних пяти элементов. Полученным значением заменить каждую вторую компоненту файла. Результат вывести на экран. Добавлено через 1 час 0 минут ббблллиииннн(((((ну помагите пожалуйста((((завтра уже сдавать((((((((((((:( Добавлено через 41 минуту :wall: https://www.cyberforum.ru/ turbo-pascal/ thread115990.html
Turbo Pascal Определить какая из цифр з-х.числа наибольшая
Составить программу с комментариями: Дано трехзначное число N.Определить,какая из его цифр наибольшая. Наибольшая цифра трехзначного числа. Введите трехзначное число N: 175 Вторая цифра числа -наибольшая.
Turbo Pascal Составить программу высота цилиндра Составить программу вместе с комментариями: Сосуд имеет форму полушара радиуса R см, дополненного цилиндром. Какой высоты должна быть цилиндрическая часть, чтобы сосуд имел объем V куб.см ? Высота цилиндра. Введите исходные данные: радиус полушара R (см): 5 объем сосуда V (куб.см) :250 Проверка: Высота цилиндра равна 2,52 https://www.cyberforum.ru/ turbo-pascal/ thread115972.html
Turbo Pascal Ошибка графического режима https://www.cyberforum.ru/ turbo-pascal/ thread115961.html
Помогите плиз! как исправить ошибку? запускаю паскаль в графическом режиме и пишет http://s002.***********/i197/1004/73/caf37084b635.jpg а так обычно работает ОС семерка
Turbo Pascal Блок-схема сокращения дробей
uses crt; type Natur = 1..high(longInt);{натуральные числа типа longint} {ввод дробей} procedure Vvod(var a,b,c,d:Natur); var i:integer; begin writeln('Введите числители и знаменатели двух дробей '); writeln(' Первая дробь:'); write(' числитель=');readln(a);
Turbo Pascal Определить значение и положение двух заданных элементов матрицы https://www.cyberforum.ru/ turbo-pascal/ thread115941.html
Задана вещественная квадратная матрица A(n*n). Определить значение и положение двух элементов a и a, для которых параметр P=sin|a - a| максимальное значение. Для каждой пары элементов параметр P должен вычисляться только один раз.
Turbo Pascal Символьные файлы https://www.cyberforum.ru/ turbo-pascal/ thread115903.html
Даны два символьные файла F1 и F2. Файл F1 содержит произвольный текст, слова которого разделены пробелами и знаками препинания. В файле F2 записаны m пар слов (m  10), которые разделены запятыми (длина слова не превышает n символов, n  16). Первое слово пары считается заменяемым, второе - заменяющим. Найти в файле F1 все за-меняемые слова и заменить их на соответствующие заменяющие...
Turbo Pascal В типизированном файле с вещественными компонентами обменять местами мак-симальный элемент с первым нулевым элементом этого файла
В типизированном файле с вещественными компонентами обменять местами мак-симальный элемент с первым нулевым элементом этого файла, если в нем имеется такой элемент. Учесть, что в частном случае максимальный элемент может быть равен нулю.
Turbo Pascal Выбрать из точек четыре разные, которые являются вершинами квадрата наибольшего периметра https://www.cyberforum.ru/ turbo-pascal/ thread115889.html
Задано множество точек на плоскости. Выбрать из низ четыре разные точки, которые являются вершинами квадрата наибольшего периметра. (Т.А)
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
15.04.2010, 00:05 0

Вывести на экран элементы списка, которые больше своих соседей - Turbo Pascal - Ответ 662019

15.04.2010, 00:05. Показов 2288. Ответов 6
Метки (Все метки)

Ответ

МаргаритаC, Как-то Вы перемудрили) Можно как-то вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Max(head:Plist);
var 
  p,h,f:Plist;
begin
  p:=head
  while p<>nil do
  begin
    if p^.prev<>nil then
      if p^.next<>nil then
        if (p^.info > p^.prev^.info) and (p^.info > p^.next^.info) then
          writeln(p^.info);  
    p:=p^.next;
  end;
end;
Не компилировал

Вернуться к обсуждению:
Вывести на экран элементы списка, которые больше своих соседей Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2010, 00:05
Готовые ответы и решения:

Вывести на экран элементы списка, которые больше своих соседей
Дан список из n целых чисел a1,a2,..,an. Вывести на экран те элементы списка, которые больше своих...

Вывести те значения массива, которые больше своих соседей, и подсчитать их количество
Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения...

Типизированные файлы. Числа. Вывести количество чисел, которые больше своих "соседей"
Типизированные файлы. Программно создать файл, состоящий из 50 целых чисел в диапазоне . Описать...

Вывести на экран те элементы списка, которые больше своих соседей
Дан список из n целых чисел a1,a2,..,an. Вывести на экран те элементы списка, которые больше своих...

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

Переписать в массив Y те элементы исходного массива, которые строго больше своих соседей
Задан целочисленный массив Х из 20 элементов! Переписать в массив Y те элементы исходного массива,...

Определить количество и номера элементов, которые больше своих соседей
Задана последовательность точек плоскости P1(x, y); P2(x, y); …..; Pn(x, y). Определить количество...

Сформировать вектор М из элементов массива А, которые больше своих соседей; сдвинуть его на одну позицию влево
Помогите с задачей (Pascal). Дан массив А(n), nЈ 15, целого типа. Сформировать вектор М из...

Дан список чисел. Определите, сколько в этом списке элементов, которые больше двух своих соседей и выведите ко
Дан список чисел. Определите, сколько в этом списке элементов, которые больше двух своих соседей и...

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