Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N. 1) Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N. 2) Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1-A+A^2-A^3+...+(-1)^N*A^N. https://www.cyberforum.ru/ pascal/ thread119818.html найти в массиве 5 и более одинаковых элементов Pascal
помогите разобраться! найти в массиве(тип интегер, n элементов) 5 и более одинаковых элементов и вывести этот элемент for i:=1 to n do k:=1; for j:=1 to n do begin if a=a and (i<>j) then k:=k+1;//k-количество повторяющихся элементов
Pascal Удалить минимальную компоненту из файла Люди пожалуйста помогите напишите часть программы я уже с ума сошел не могу додуматься Удалить минимальную компоненту из файла(вспомогательный файл не использовать, последовательность в файле не нарушать) ну я какпонялместоположение надо будет искать и т.д и т.п хз(((((((( https://www.cyberforum.ru/ pascal/ thread119808.html Pascal многомодльные программы https://www.cyberforum.ru/ pascal/ thread119801.html
помогите написать программу(должна быть многомодульная) Если среднее арифметическое положительных элементов в матрице A превышает среднее арифметическое положительных элементов в матрице В, задать элементам одномерного массива C значения тех элементов матриц A и В, которые больше наименьшего из найденных средних арифметических положительных в А и в В.
Pascal многомодульный принцип построения программы с использованием двумерных массивов
очень нужно написать программу, если можете-помогите пожалуйста... Если среднее арифметическое положительных элементов в матрице A превышает среднее арифметическое положительных элементов в матрице В, задать элементам одномерного массива C значения тех элементов матриц A и В, которые больше наименьшего из найденных средних арифметических положительных в А и в В.
Pascal Найти значения минимального элемента среди позитивных элементов матрицы https://www.cyberforum.ru/ pascal/ thread119789.html
Задана матрица L(A,B). Найти значения минимального элемента среди позитивных эдементов матрицы и и узнать индекс первого порядка элемента, значения которого равно значению минимального элемента, если читать матрицу по рядках... прошу помощи Добавлено через 14 часов 39 минут Помогите...очень нужно
Pascal Русская математика https://www.cyberforum.ru/ pascal/ thread119787.html
Дан текст на русском языке. Напечатать в алфавитном порядке все согласные буквы, которые входят в каждое нечетное слово и не входят ни в одно четное слово.
Pascal идеальный газ
переделайте пожалуйста прогу так, чтобы не было процедур, срочно надо) Добавлено через 1 минуту вот сама прога https://www.cyberforum.ru/attachment.php?attachmentid=23488&d=1267973549
Pascal Составить программу-тест Решительны ли вы? https://www.cyberforum.ru/ pascal/ thread119785.html
Составить программу - тест " Решительны ли вы? ", на экране по очереди появляется 12 вопросов. На каждый из них нужно ответить (да или нет). В зависимости от вопроса и ответа к общей сумме прибавляется определенное число очков. После окончания опроса по общей сумме очков делается заключение по поводу решительности опрашиваемого.
Pascal Даны три множестваX1,X2,X3 Даны три множестваX1,X2,X3, содержащие целые числа из диапазона 100..200.Известно, что мощность каждого из этих множеств равна 10. Сформировать новое множество Y=(X1 X2)(X1 X3). На печать вывести множества X1, X2, X3 и Y. https://www.cyberforum.ru/ pascal/ thread119784.html
Pascal Заменить единицами сроку и столбец, содержащие максимальный среди тех элементов, значения которых кратны двум
Ввести целочисленный двумерный массив , вывести его. Заменить единицами сроку и столбец, содержащие максимальный среди тех элементов, значения которых кратны двум. программу и блок схему плз!!!!
Pascal Немогу устранить ошибку , двумерный массив. Вообщем есть у меня задание, практически выполнено, но ступор стал на однок куске, не могу понять что не так. С 31 по 58 строку ищется непарный столбец в котором следующий элемент больше предидущего минимум в 2 раза;Если такого столбца нету, берется последняя строка массива program q; uses crt; var i,j,kStr,kStb,verifiX2,numColumn:integer; z,x,u,g,gg:real; a:array of real; ... https://www.cyberforum.ru/ pascal/ thread119780.html
 Аватар для iYoung
1 / 1 / 0
Регистрация: 06.10.2009
Сообщений: 24
0

Слияние упорядоченных списков в третий (найдите ошибку) - Pascal - Ответ 675290

21.04.2010, 07:28. Показов 2224. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый вечер , возникла сложность с решением задачи :

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

Пользуясь лекциями и гуглом , я написал какое - то не совсем понятное для меня решение . Проблема заключается в том , что ответ выдает не сосем верный . например , если L1 - 1,2,3 , а L2 - 6,7,8 ,то L3 получается 1,2,3,4,6,7,8 . Не понимаю от куда берется 4 . Заранее спасибо .


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
type
   PList = ^TList; {Ukazatel}
   TList = record { Element }
     info : integer;    { Informacionnaya chast }
     next : PList; { Ukazatel na sled. element }
    end;
VAR
  head1,head2:PList;
  t:integer;
{procedura formiruet spisok so storogem}
Procedure MakeList (var head:PList);
var
  p,last:PList;
  r:integer;
begin
new(head);
last:=head;
readln(R);
  while R<>0 do
   begin
    new(p);
    p^.info:=r;
    last^.next:=p;
    last:=p;
    readln(R);
   end;
 last^.next:=NIL;
end;
 
Procedure PrintList (head:PList);
var
  p:PList;
begin
p:=head^.next;
  while p<>NIL do
   begin
    write (p^.info:6);
    p:=p^.next;
   end;
end;
 
 
{Procedura proizvodit sliyanie 2x spiskov}
Procedure Unite (var head1, head2 : PList);
  var cur : PList;
  begin
 {esli 2 spisok pystoi nichego ne delat}
    if head2<>nil then
      begin
 { esli 1 spisok pystoi to, vixodnim spiskom budet 2}
    if head1=nil then
       head1:=head2
    else  { perebor 1 spiska do poslednego elementa}
     begin  cur:=head1;
      while cur^.next<>nil do
           cur:=cur^.next;
      { Poslednii element 1 spiska ykazivaet na nachalo 2}
      cur^.next:=head2;
     end;
     head2:=nil; { 2 spisok anyliruetsya}
  end;end;
 
begin
 writeln ('vvedite chisla do 0');
 makelist (head1);
 makelist (head2);
 writeln ('pervii spisok');
 printlist (head1);
 writeln ('vtoroi spisok');
 printlist (head2);
 unite (head1,head2);
 writeln ('Otvet-');
 printlist (head1);
readln;
end.
Добавлено через 7 часов 57 минут
никто не поможет ?

Вернуться к обсуждению:
Слияние упорядоченных списков в третий (найдите ошибку) Pascal
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.04.2010, 07:28
Готовые ответы и решения:

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

Слияние двух упорядоченных списков
Всем привет! Можете подсказать как делать? Условие: Провести слияние двух упорядоченных списков. В качестве элементов первого списка...

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

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.04.2010, 07:28
Помогаю со студенческими работами здесь

Слияние упорядоченных списков
Даны два упорядоченных по возрастанию числовых списка. Объединить их с сохранением упорядоченности. Пример: (1 2 5 6 11) и (-1 0 3 4 7...

Слияние двух упорядоченных списков с сохранением алфавитного порядка
Задача (TASM): Провести слияние двух упорядоченных списков вида &quot;Фамилия И.О.&quot; с сохранением алфавитного порядка. Исходные и конечный...

Выполнить пересечение двух упорядоченных по возрастанию списков в третий
Необходимо сделать программу для Visual Prolog, которая выполняет пересечение двух упорядоченных по возрастанию списков - L1 и L2 в третий,...

Слияние упорядоченных массивов
Доброго времени суток господа программисты. Помогите пожалуйста решить задачу: Даны два массива с одинаковым количеством элементов. Пусть...

Слияние упорядоченных по возрастанию массивов
заданы три упорядоченных по возрастанию массива f(0:n-1), g(0:m-1), h:k-1 Составить программу слияния этих массивов

0
Новые блоги и статьи
Микросервис с нуля на Go с Kafka
stackoverflow 12.02.2025
Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .
Микросервис с нуля на C# с RabbitMQ
stackoverflow 12.02.2025
Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .
Docker для начинающих
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .
Создание бота для Телеграм на C#
stackoverflow 12.02.2025
В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .
Операторы сравнения (== и ===) в JavaScript
hw_wired 12.02.2025
JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован
hw_wired 12.02.2025
Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .
Объединение нескольких коммитов Git в один
hw_wired 12.02.2025
Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .
Как добавить локальную ветку в удалённый репозиторий Git
hw_wired 12.02.2025
Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .
Статическое отражение в C++
stackoverflow 12.02.2025
Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .
C++ в 21 веке - Бьярне Страуструп
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru