![]() |
|
Другие темы раздела | |
Построить график функции 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 - Ответ 706765504.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
|
04.01.2015, 18:57 | |
Готовые ответы и решения:
4
Слияние двух односвязных упорядоченных по неубыванию линейных списков Слияние двух упорядоченных массивов. Слияние однонаправленных динамических списков |
04.01.2015, 18:57 | |
Помогаю со студенческими работами здесь
0
Слияние двух файлов. type FI:=file of integer; Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону Слияние двух упорядоченных списков в один упорядоченный Слияние упорядоченных списков в третий (найдите ошибку) слияние двух упорядоченных массивов в один упорядоченный |
Новые блоги и статьи
![]() |
||||
Система безопасности в 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-фреймворков, отлично. . .
|