![]() |
|
Другие темы раздела | |
Turbo Pascal Найти позицию а) первой и б) последней запятой в строке. Дана строка символов.Найти такое натуральное i, что а) si – первая по порядку запятая; б) si – последняя по порядку запятая. Var s:string; i,inn,ik:byte; Begin write('Введите строку: ');readln(s); For i:=1 to Length(s) do if (s=',')and(inn=0) then inn:=i else if (s=',') then ik:=i; ... https://www.cyberforum.ru/ turbo-pascal/ thread1193501.html |
Turbo Pascal Определить, сколько слов в ведённой строке оканчивается буквой "я"
https://www.cyberforum.ru/ turbo-pascal/ thread1193716.html Написать программу, определяющую, сколько слов в ведённой строке оканчивается буквой “я”, если известно, что после слова обязательно стоит либо пробел, либо точка. В начало кода надо добавить: St := St + ' '; {Или: St := St + '.';} |
Turbo Pascal Все элементы массива, начиная с первого положительного, уменьшить на 0,5. Дан массив А из n действительных чисел: a1, …, an. Все элементы массива, начиная с первого положительного, уменьшить на 0,5. Получить: min(a2, a4,…)+ max(a1, a3,…). |
Turbo Pascal Дан текст имеющий вид а1+а2 +а3+...+аi. Составить программу, вычисляющую эту сумму Дан текст имеющий вид а1+а2 +а3+...+аi. Где аi – целые числа (0<=аi<=9). Составить программу, вычисляющую эту сумму. Помогите пожалуйста sum:=0; for i:=1 to length(text) do if text in then sum:=sum+ord(text)-48; https://www.cyberforum.ru/ turbo-pascal/ thread1193459.html |
Turbo Pascal Работа с типизированными файлами. Расписание поездов.
https://www.cyberforum.ru/ turbo-pascal/ thread1193606.html В расписании поездов указано: номер поезда, пункт отправления, пункт назначения, время отправления, время в пути, цена билета. Вывести информацию о поездах, следующих из Москвы в Санкт-Петербург,... |
Turbo Pascal Выводит ошибку Exitcode 200 Program jjknjk3; var x:integer;y:real; begin x:=-10; writeln(' x y '); while x<>-3 do begin y:=((3)/x)+(2*x/(x+1)); writeln(x:4,' | ',y:5:2); x:=x+1; end; Так задание напиши, ибо в программе сплошная ахинея написана. |
Turbo Pascal Вычислить путь, пройденный свободно падающим телом за t секунд Вычислить путь, пройденный свободно падающим телом за t секунд. Программу составить таким образом, чтобы можно было вычислить пройденный телом путь при имеющимся пройденном начальном пути. Помогите,... https://www.cyberforum.ru/ turbo-pascal/ thread1193751.html | Turbo Pascal Построить график интерполяционного полинома помогите написать программу построения графика интерполяционного полинома с использованием формулы кубического сплайна значения в узлах: X0=12 Y0=56 X1=13 Y1=80 X2=14 Y2=150 X3=15 Y3=100... https://www.cyberforum.ru/ turbo-pascal/ thread1193607.html |
Почему на выделение записи new(f) уходит 128Б? Turbo Pascal Объясните пожалуйста,почему на выделение записи new(f) уходит 128б. Указатель занимает 4б,integer 2б.Должно быть кратно 8.Почему 128? Program uk; uses crt; Type MyFile = File of Integer; Var... Объясните пожалуйста,почему на выделение записи new(f) уходит 128б. Указатель занимает 4б,integer 2б.Должно быть кратно 8.Почему 128? Здесь "Integer" совершенно не причём. В программе есть... |
Turbo Pascal Записать в текстовый файл текст на русском языке Записать в текстовый файл текст на русском языке. Выполнить следующие операции с созданным файлом: - Определить, сколько раз встречается в нем самое длинное слово; - Провести частотный анализ... https://www.cyberforum.ru/ turbo-pascal/ thread1193555.html |
Turbo Pascal Поменять местами первую и вторую половины массива
https://www.cyberforum.ru/ turbo-pascal/ thread1193455.html Дан массив из 10 целых положительных и отрицательных чисел, заполненный с клавиатуры. Поменять местами первую и вторую половины массива. Помогите решить n:=10; for i:=1 to n div 2 do begin x:=a; a:=a; a:=x; end; |
Turbo Pascal Все неотрицательные элементы массива, не принадлежащие отрезку, заменить на единицу Сижу на практике,осталась 1 задача. Вообще внепонятия как ее решить. Хелп. Дан массив A из действительных чисел: a1, ... an. Вычислить: \sqrt{10+a_1^2}+...+\sqrt{10+a_n^2} Все... uses crt; const nmax=100; var a:array of real; n,i,k1,k2:byte; s:real; begin clrscr; randomize; repeat write('Размер массива А от 2 до ',nmax,' n='); https://www.cyberforum.ru/ turbo-pascal/ thread1193416.html |
![]() 13108 / 5889 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
|
||||||
01.06.2014, 01:39 | 0 | |||||
Слейте два упорядоченных по невозрастанию списка в один - Turbo Pascal - Ответ 625620501.06.2014, 01:39. Показов 3411. Ответов 2
Метки (Все метки)
![]() Решение
Если слияние выполняется на некотором списке, то перед слиянием только этот список должен быть упорядочен. А упорядоченность в других списках не имеет никакого значения. В добавок, в формулировке задачи сказано, что слияние нужно проводить на новом списке. Т. е., в этом случае начальная упорядоченность вообще никакой роли не играет.
![]() Слияние с сохранением упорядоченности реализуется с помощью специальной процедуры вставки элемента в список. Эта процедура должна находить положение в списке, где при вставке нового элемента упорядоченность не нарушится. И раз уж в задаче требуется начальная упорядоченность списков, тогда просто заполнять эти списки нужно через эту самую специальную процедуру вставки. Решение может выглядеть так:
Вернуться к обсуждению: Слейте два упорядоченных по невозрастанию списка в один Turbo Pascal
0
|
01.06.2014, 01:39 | |
Готовые ответы и решения:
2
Объединить два упорядоченных списка в один, тоже упорядоченный Объединить два упорядоченных по неубыванию списка М1 и М2 в один упорядоченный Два упорядоченных по убыванию списка объединить в один, не нарушив порядка |
01.06.2014, 01:39 | |
Помогаю со студенческими работами здесь
0
Описать функцию, которая объединяет два упорядоченных по возрастанию списка в один Объединить два упорядоченных связанных списка в один через функцию merge
|
Новые блоги и статьи
![]() |
||||
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
|
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
|
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
|
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
|
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
|
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
|
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
|
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
|
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
|
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
|