|
|
| Другие темы раздела | |
| 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 |
|
1 / 1 / 1
Регистрация: 29.05.2014
Сообщений: 6
|
|
| 0 | |
Слейте два упорядоченных по невозрастанию списка в один - Turbo Pascal - Ответ 625021530.05.2014, 16:42. Показов 3411. Ответов 2
Метки (Все метки)
Вернуться к обсуждению: Слейте два упорядоченных по невозрастанию списка в один Turbo Pascal
0
|
|
Лучшие ответы (1)
| 30.05.2014, 16:42 | |
|
Готовые ответы и решения:
2
Объединить два упорядоченных списка в один, тоже упорядоченный Объединить два упорядоченных по неубыванию списка М1 и М2 в один упорядоченный Два упорядоченных по убыванию списка объединить в один, не нарушив порядка |
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 30.05.2014, 16:42 | |
|
Помогаю со студенческими работами здесь
0
Описать функцию, которая объединяет два упорядоченных по возрастанию списка в один Объединить два упорядоченных связанных списка в один через функцию merge
|
Новые блоги и статьи
|
||||
|
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
|
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
|
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
|
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
|
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
|
|
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
|
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
|
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
|
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
|
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
|
Наверх