Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Построить график функции Turbo Pascal
Вычислить корень с заданной точностью 0.01 методом простой итерации.... уравнение: 0.4 + arctg(Sqrt(x)) - x = 0 и построить график этого же уравнения.... кто чем может помогите) кто чем может помогите) График. uses graph; function F(x:real):real; begin F:=0.4+arctan(sqrt(x))-x; end; var xn,xk,x,y,mx,my,dx:real; x0,y0,i:integer; s:string;
Turbo Pascal Найти корни квадратного уравнения Используя ООП, определить объект КВАДРАТНОЕ УРАВНЕНИЕ. Найти корни квадратного уравнения. Не понимаю как сделать через наследования INHERITED. Помогите . как сделать через наследования А что от чего нужно наследовать? Добавлено через 17 минут Вот пример наследования квадратного уравнения от линейного. uses crt; type tlinur=object{линейное... https://www.cyberforum.ru/ turbo-pascal/ thread1345891.html
Turbo Pascal Копирование текста с паскаля на word https://www.cyberforum.ru/ turbo-pascal/ thread1345337.html
Подскажите пожалуйста, можно ли текст набранный с паскаля переместить в word и обратно Теоретически все можно, но вот затраченные на это усилия могут быть очень большими. Напрямую в формат ворда весьма непросто, а вот в некий промежуточный формат очень даже реально. rtf - файл вполне...
Turbo Pascal Если число является положительным, то прибавить к нему 1 https://www.cyberforum.ru/ turbo-pascal/ thread1345917.html
дано целое число. если оно является положительным , то прибавить к нему 1;в противном случае вычесть из него 2.Вывести полученное число. Анастасия190, какой язык программирования?
Turbo Pascal Вычислить значение суммы https://www.cyberforum.ru/ turbo-pascal/ thread1345530.html
можно пожалуйста программу целиком 1)S=cos2x+cos3x+cos4x+...+cos10x 2)S=2cos2x+3cos3+..+15cos15 Function S1(x : Real; n : Byte) : Real; Begin If n>1 then S1:=cos(n*x)+S1(x,n-1) else S1:=0; end; Function S2(x : Real; n : Byte) : Real; Begin If n>1 then S2:=n*cos(n*x)+S2(x,n-1) else...
Turbo Pascal Перечисляемый тип Можно как-то схитрить и все же вывести какой-то из компонентов пользовательского перечисляемого типа? Если объявлен например тип type per=(a1,b1,c1,d1); то в Турбо Паскале нельзя напрямую вывести имена переменных a1,b1.... Обычно создают строковый массив с их расшифровкой. Пример... https://www.cyberforum.ru/ turbo-pascal/ thread1345953.html
Turbo Pascal Вычислить значение суммы 1) \sum 1/(2i)^2 2)\sum_{i=1}^{n} x/2^i 1. s:=0; for i:=1 to n do s:=s+1/sqr(2*i); 2. t:=1; s:=0; for i:=1 to n do begin t:=t*2; https://www.cyberforum.ru/ turbo-pascal/ thread1345453.html Turbo Pascal Работа с типизироваными файлами var f : file of integer; k,i,s : integer; begin assign(f,'1.txt'); rewrite(f); s:=-1; k:=-2; i:=-3; write(f,s,k, i); close(f); end. Простенькая программа, которая должна записать -1,... Потому что файл типизированный и в нем содержатся не вводимые символы, а информация про них. И читать такой файл можно только программой. Если хотите читать в файле, используйте текстовый файл. var... https://www.cyberforum.ru/ turbo-pascal/ thread1345440.html
Turbo Pascal Даны 2 вектора и значение А. Вычислить Z
Здравствуйте! помогите пожалуйста разобраться, есть 2 вектора, то есть по сути 2 массива, и какое то значение А, надо вычислить Z. Вот с этим и проблема=) в функции идёт условие мол если П(x-0.5) <... я не понимаю что такое П. Это произведение ряда элементов. В задании ошибка, во втором произведении либо верху должно быть 10, а не 15,либо не x, a y
Turbo Pascal Построить множество, элементами которого являются символы от А до К и от 10 до 20 https://www.cyberforum.ru/ turbo-pascal/ thread1345184.html
Program mn; uses crt; var A, S: set of char; i: char; begin clrscr; S:=; A:=; writeln('введите буквы и цифры '); repeat а символы входящие во множество от 10 до 20 не выводит? Интересно что это за символы по Вашему?
Как ввести пустую строку с клавиатуры? Turbo Pascal
{как ввести пустую строку с клавиатуры? readln(s) } { ввожу ENTER, не идёт дальше ... ждёт строку.... ? } program pustaia_stroka; var s:string; k:integer; begin write('stroka:... {как ввести пустую строку с клавиатуры? readln(s) } В Турбо Паскале все срабатывает.
Инициализация графики в цикле Turbo Pascal
Помогите пожалуйста решить проблему ниже формула программы позволяющее решить некоторую архитектурную задачу. В цикле FOR не могу запустить графику. Прога в текстовом режиме спрашивает периметр...
0 / 0 / 0
Регистрация: 13.12.2014
Сообщений: 13
04.01.2015, 18:57  [ТС] 0

Слияние двух упорядоченных списков - Turbo Pascal - Ответ 7067655

04.01.2015, 18:57. Показов 2314. Ответов 4
Метки (Все метки)

Ответ

нет, не так!
вот аналогичный пример:
Составим первый список из упорядоченных букв фамилии: веенорст
Пусть head1 указывает на первый элемент “в” этого списка.
Пусть p1 – указатель на текущий элемент этого списка.
Составим второй список из упорядоченных букв имени: аадеклнрс
Пусть head2 указывает на первый элемент “а” этого списка.
Пусть p2 – указатель на текущий элемент этого списка.
Пусть head3 указывает на первый элемент нового списка. Сначала head3 = nil
Пусть p3 – указатель на текущий элемент нового списка.
Пусть каждый элемент списков представляет из себя структуру с полями:
data – информационная часть,
next – указатель на следующий элемент списка.
Установим текущие указатели на начала списков:
P1 := head1;
P2 := head2;
Проверяем P1^.data <= P2^.data? нет.
И Head3 = nil, а значит head3 := p2; p3 := p2; P2 := p2^.next
Получаем третий список: а
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аа
Проверяем P1^.data <= P2^.data? да.
Значит p3^.next := p1; p3 := p1; P1 := p1^.next
Получаем третий список: аав
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аавд
Проверяем P1^.data <= P2^.data? да.
Значит p3^.next := p1; p3 := p1; P1 := p1^.next
Получаем третий список: аавде
Проверяем P1^.data <= P2^.data? да.
Значит p3^.next := p1; p3 := p1; P1 := p1^.next
Получаем третий список: аавдее
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аавдеее
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аавдееек
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аавдееекл
Проверяем P1^.data <= P2^.data? да.
Значит p3^.next := p1; p3 := p1; P1 := p1^.next
Получаем третий список: аавдеееклн
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аавдеееклнн
Проверяем P1^.data <= P2^.data? да.
Значит p3^.next := p1; p3 := p1; P1 := p1^.next
Получаем третий список: аавдеееклнно
Проверяем P1^.data <= P2^.data? да.
Значит p3^.next := p1; p3 := p1; P1 := p1^.next
Получаем третий список: аавдеееклннор
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аавдеееклннорр
Проверяем P1^.data <= P2^.data? да.
Значит p3^.next := p1; p3 := p1; P1 := p1^.next
Получаем третий список: аавдеееклнноррс
Проверяем P1^.data <= P2^.data? нет.
Значит p3^.next := p2; p3 := p2; P2 := p2^.next
Получаем третий список: аавдеееклнноррсс
P2 = nil, а значит второй список закончился. Добавим остаток первого списка к новому списку.
Значит p3^.next := p1
Получаем третий список: аавдеееклнноррсст

Вернуться к обсуждению:
Слияние двух упорядоченных списков Turbo Pascal
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.01.2015, 18:57
Готовые ответы и решения:

Слияние двух односвязных упорядоченных по неубыванию линейных списков
Разработайте программу слияния двух односвязных упорядоченных по неубыванию линейных списков в один упорядоченный список.

Слияние двух упорядоченных массивов.
Вот условие задачи: Из двух упорядоченных по невозрастанию массивов A(M) и B(N) получить путем слияния упорядоченный по убыванию...

Слияние однонаправленных динамических списков
Задачка ТурбоПаскаль: Слить 2 списка (оба- возрастающая последовательность целых чисел) в третий который тоже должен быть упорядочен. Еще...

4
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.01.2015, 18:57
Помогаю со студенческими работами здесь

Слияние двух файлов. type FI:=file of integer;
Условие задачи: Дано type FI:=file of integer; Пусть в каждом из файлов x и y элементы упорядочены по неубыванию. Требуется слить эти...

Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону
вот, что получилось, как-то не очень работает program zd115; uses crt; var b:array of integer; a:array of integer; c:array ...

Слияние двух упорядоченных списков в один упорядоченный
Даны два списка упорядоченные по не убыванию.Объединить их в третий список упорядоченный по не убыванию. Не могу разобраться с процедурой...

Слияние упорядоченных списков в третий (найдите ошибку)
Добрый вечер , возникла сложность с решением задачи : Слияние упорядоченных списков в третий. Даны два списка L1 и L2. Считая, что...

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

0
Новые блоги и статьи
Система безопасности в 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-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru