Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вывести те слова, длина которых больше заданного числа https://www.cyberforum.ru/ pascalabc/ thread1004302.html Дан текст, в котором слова отделяются пробелами, в конце стоит точка.Определить количество слов в тексте и вывести те слова, длина которых больше заданного числа. есть почти такая : program ex1;... var S, t: string; G: array of string; i, j, n, A, count: integer; b: boolean; begin writeln('Введите строку:'); readln(S); write('Введите контрольное число: А = ');	Задача про лыжников Pascal ABC Условие: Для тренировки спортсменов-лыжников выбрали маршруты по следующим траекториям: а) Первый спортсмен по прямой линии, второй - по гиперболе. Определить максимальное число возможных встреч...
Циклы (while,repeat,for) Pascal ABC Написать программу при помощи циклов. "В клетке сидят фазаны и кролики. Известно, что всего у них 35 голов и 94 ноги. Определить количество фазанов и кроликов."	Pascal ABC Дан текстовый файл f1. Исключить пробелы, стоящие в концах его строк Ребята помогите с заданием! Дан текстовый файл f1. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f2. While not Eof(f1) do Begin readln(f1,s); While s=' ' do Delete(s,Length(s),1); writeln(f2,s); End; https://www.cyberforum.ru/ pascalabc/ thread1004054.html
Pascal ABC Массив записей-игрушки Пускай данный массив, который имеет возведения про игрушки: указывается название игрушки, её цена в копейках и возвраст детей , для которых игрушка предназаначена ( например: для дитей от 2 до 5...	Pascal ABC В заданном натуральном числе удалить цифры 0 и 5 изменив порядок записи остальных цифр на обратный. https://www.cyberforum.ru/ pascalabc/ thread1004347.html Условие: В заданном натуральном числе удалить цифры 0 и 5 изменив порядок записи остальных цифр на обратный. Пример : (195005 нужно получить число 91). Задачу нужно решить с использованием цикла... uses crt; var n,m,c:integer; begin write('n='); read(n); m:=0; while n>0 do begin c:=n mod 10; if not(c in )then m:=m*10+c;
Pascal ABC Определить номера строк матрицы R[M, N], хотя бы один элемент которых равен c, и элементы этих строк умножить на d https://www.cyberforum.ru/ pascalabc/ thread1004439.html Помогите пожалуйста: Определить номера строк матрицы R, хотя бы один элемент которых равен c, и элементы этих строк умножить на d. Первую часть получилось сделать, а со второй никак. Первую часть получилось сделать Так код свой приложите в тему.	Pascal ABC В строке имеется символ ";". Подсчитать количество символов до него и после него в строке имеется символ ";". Подсчитать количество символов до него и после него. Помогите пожалуйста! var S: string; i, count1, count2: byte; bln: boolean; begin writeln('Введите строку:'); readln(S); count1 := 0; //Количество символов до знака сначала равно 0 count2 := 0;...
Pascal ABC Указать (n - 1)звездную не самопересекающуюся незамкнутую ломаную, проходящую через все эти точки https://www.cyberforum.ru/ pascalabc/ thread1004052.html Дано n точек на плоскости. Указать (n - 1)звездную не самопересекающуюся незамкнутую ломаную, проходящую через все эти точки. (Соединим отрезкам ломаной разрешается лежать на одной прямой).Подсказка.... uses crt; const nmax=19; type point=record x,y:integer; end; var t:array of point; n,i,j:byte; x:point; begin randomize;	Pascal ABC Гонки Доброй ночи! Помогите решить задачу. Гонки проводятся 2-мя группами по 10 человек. Результаты соревнований показаны списками участников по каждой группе в порядке занятых ими местами. Необходимо... Сортировка слиянием двух массивов https://www.cyberforum.ru/post175170.html Если это на тип записи, то сортировка точно также по полю результат. https://www.cyberforum.ru/ pascalabc/ thread1004103.html
Pascal ABC Сформировать массив, в котором будут располагаться сначала положительные элементы, а затем отрицательные Сформировать массив, в котором будут располагаться сначала положительные элементы, а затем отрицательные элементы данного массива. С вводом элементов массива. а размерность массива? https://www.cyberforum.ru/ pascalabc/ thread1004085.html	Pascal ABC Из 10 последовательно вводимых с клавиатуры чисел выбрать числа меньших 20 Написать программу: Из 10 последовательно вводимых с клавиатуры чисел выбрать числа меньших 20 и найти из сумму и количество... СРОЧНО! За ранее спасибо. var a:array of real; i,n:integer; sum:real; begin n:=0; for i:=1 to 10 do begin readln(a); if a<20 then https://www.cyberforum.ru/ pascalabc/ thread1004057.html

alinochka121

0 / 0 / 0

Регистрация: 11.11.2013

Сообщений: 15

Слияние двух упорядоченных массивов - Pascal ABC - Ответ 5319342

11.11.2013, 16:36. Показов 5848. Ответов 1

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Задача: Даны упорядоченные массивы a и b из x и y элементов соответственно. Нам требуется сформировать массив с, состоящий из элементов массива а и массива b, упорядоченных по возрастанию.

Input
Со стандартного устройства ввода в первой строке вводится 2 натуральных числа, не превышающих 1000 – x и y. Во второй строке через пробел даны x целых чисел, не превосходящих по модулю 1000 – массив a. В третьей строке таким же образом записан массив b.
Output
Нужно выдать на стандартное устройство вывода в одну строку массив c, после каждого элемента ставя пробел.

Sample Input
7 5
1 3 7 7 40 48 777
7 30 33 666 667

Sample Output
1 3 7 7 7 30 33 40 48 666 667 777

И вот тут то с примером возникает одна небольшая проблема. При выдаче массива c программа все выполняет правильно, пока дело не доходит до посл. элемента: вместо 777 выдает 0. Прошу помочь найти, в чем же проблема
(Программу брала отсюда же, с сайта)

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
var  x,y:integer;
a:array[-1000..1000] of integer;
b:array[-1000..1000] of integer;
c:array[-1000..1000] of integer;
    i,j,k,m: byte;
begin
readln(x, y);
    for i := 1 to x do
        read(a[i] );
    for j := 1 to y do
        read(b[j] );
 
 
    i := 1; j := 1; k := 1;
    while (i <= x) and (j <= y) do begin
   if (i<=x) and (j<=y) then 
     begin
       if a[i]<b[j] then 
        begin
         c[k]:= a[i];
         inc (i); 
         inc (k); 
        end
       else
        begin
         c[k]:= b[j];
         inc (j);
         inc (k);
        end
     end
   else if j>y then 
     begin 
       c[k]:= a[i];
       inc (i);
       inc (k);
     end
   else if i>x then
     begin
       c[k]:= b[j];
       inc (j);
       inc (k);
     end;
  end;
 
    for i := 1 to x+y do
        write(c[i],' ');
 
end.

Вернуться к обсуждению:
Слияние двух упорядоченных массивов Pascal ABC

Следующий ответ

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

11.11.2013, 16:36

Готовые ответы и решения:

Создать из двух упорядоченных массивов третий упорядоченный
создать из 2 упорядоченных массивов 3 упорядоченный препод валит...

Определить количество совпадающих элементов двух упорядоченных массивов
Дано: упорядоченные по возрастанию массивы A(N), B(N), C(M), D(M). Определить количество совпадающих элементов двух упорядоченных массивов...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

11.11.2013, 16:36

Помогаю со студенческими работами здесь

Массив: Из двух упорядоченных по невозрастанию массивов А(n) и В(n) получить путем слияния упорядоченный по убыванию массив С
Из двух упорядоченных по невозрастанию массивов А(n) и В(n) получить путем слияния упорядоченный по убыванию массив С; удаляемые элементы...

Объединение упорядоченных одномерных массивов
В связи с экономическим кризисом в стране и сокращением средств на нужды образования в школе два 10 класса по 18 учеников в каждом были...

Одномерные массивы. Слияние массивов.
2)заданы 2 однамерных масива, ссостоящие из произвольного числа элементов, упорядоченных по неубыванию. Составить програму формирования...

Найти симметрическую разность двух упорядоченных файлов за один проход
Найти разность f3 двух упорядоченных файлов f1, f2 ∈ file of T, T=real. •1 проход!

Содержимое массивов сортируется по возрастанию. Затем из двух массивов (длины K и N) сформируйте массив
Всем приветы 8-) Помогите с 2 задачами: 2)Напишите программу, которая организует хранение в одномерных массивах K и N различных...

Новые блоги и статьи Все статьи Все блоги /
Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .	Работа с метаданными EXIF и JPEG в JavaScript run.dev 19.03.2025 Работа с изображениями в веб-разработке нередко выходит за рамки простого отображения картинки. Современные задачи требуют глубокого понимания структуры файлов и умения манипулировать их внутренними. . .	Чеклист для Kubernetes в продакшене: Лучшие практики для SRE Mr. Docker 19.03.2025 Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .	Разработка продвинутого ИИ в Unity с использованием Behavior Graph GameUnited 19.03.2025 В разработке игр искусственный интеллект персонажей часто становится тем элементом, который превращает хорошую игру в выдающуюся. До недавнего времени разработчикам под Unity приходилось либо писать. . .	Словари в Python: методы работы, оптимизация, сериализация py-thonny 19.03.2025 Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .
Реализация паттерна CQRS с Event Sourcing в PHP Jason-Webb 19.03.2025 CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .	std::span в C++: Подпредставления и срезы NullReferenced 18.03.2025 Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .	std::span в C++: Доступ к элементам и итерирование NullReferenced 18.03.2025 В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .	Утечки памяти в C# UnmanagedCoder 18.03.2025 Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .	std::span в C++: Введение в невладеющее представление NullReferenced 18.03.2025 С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .

Наверх