Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Одномерный массив https://www.cyberforum.ru/ turbo-pascal/ thread299815.html Дан одномерный массив из n чисел,надо вписать его по спирали,начиная изнутри? Помогите сделать программу,а то информатик в четверти плохую оценку поставит :cry:	По введенному k – числу грибов напечатать фразу «Мы нашли в лесу k грибов» Turbo Pascal Составьте программу, которая по введенному вами k – числу грибов печатает фразу «Мы нашли в лесу k грибов», причем согласовывает окончание слова «гриб» с k. (Количество грибов может быть любым целым положительным числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.) РЕБЯТКИ! СПАСАЙТЕ" В ДУШЕ НЕ ЗНАЮ КАК ОСУЩЕСТВИТЬ ЗАДАЧУ:cry::-\|:-\|:-\|
Turbo Pascal Дан текст. Удалить из текста все символы арифметических операций и найти количество цифр, встречающихся в нем. помогите написать программу; Дан текст. Удалить из текста все символы арифметических операций и найти количество цифр, встречающихся в нем. https://www.cyberforum.ru/ turbo-pascal/ thread299806.html	Turbo Pascal Рекурсия Описать рекурсивную функцию Combin2(N, K) целого типа, находящую C(N, K) — число сочетаний из N элементов по K — с помощью рекуррентного соотношения: C(N, 0) = C(N, N) = 1, C(N, K) = C(N – 1, K) + C(N – 1, K – 1) при 0 < K < N. Параметры функции — целые числа; N > 0, 0 ≤ K ≤ N. Считать, что параметр N не превосходит 20. Для уменьшения количества рекурсивных вызовов описать... https://www.cyberforum.ru/ turbo-pascal/ thread299784.html
как добавить сохранение и загрузку?? Turbo Pascal Добавить к программе след действия: Сохранение и загрузка информации в текст. файл. Сохранение и загрузка информации в типизированный файл. uses crt; const n=100; type sotrud = record oklad: integer; fam,name,podrazd : string;	Turbo Pascal Процедура DoubleX(A,N,X) Описать процедуру DoubleX(A,N,X), дублирующую элементы, равные числу X, в массиве А целых чисел размера N. Массив А и число N являются входными и выходными параметрами. С помощью этой процедуры продублировать в массивах A, B, C размера NA, NB, NC каждое вхождение чисел XA, XB, XC соответственно. https://www.cyberforum.ru/ turbo-pascal/ thread299772.html
Turbo Pascal Выяснить если в последовательности символов группа из трех точек https://www.cyberforum.ru/ turbo-pascal/ thread299763.html помогите пожалуйста с задачкой: дано натуральное n и символы s1,s2,...sn.Выяснить если в данной последовательности символов группа из трех точек ("..."). Необходимо использовать данные типа char	Turbo Pascal ООП на Паскале Нужен любой пример использования объектов в Турбо Паскале
Turbo Pascal Записать в массив сначала все положительные числа, а затем все отрицательные числа и нули https://www.cyberforum.ru/ turbo-pascal/ thread299749.html Дан массив целых чисел, содержащих 30 элементов. Записать в этот массив сначала все положительные числа, а затем все отрицательные числа и нули, сохраняя порядок их следования. Добавлено через 2 минуты Дан массив целых чисел, содержащих 30 элементов. Записать в этот массив сначала все положительные числа, а затем все отрицательные числа и нули, сохраняя порядок их следования.	Turbo Pascal Дописать программу тестирования Парни помоги пожалуйста, сказали сделать прогу для тестирования, накидал вот небольшие наброски, а дальше не могу......помоги тем кто сможет помощь................я буду очень благодарен, если смогу сделать модуль и запустить программу эту.и еще создать файл с расширение EXE https://www.cyberforum.ru/ turbo-pascal/ thread299734.html
Последовательность чисел Turbo Pascal Помогите пожалуйста с задачкой. Дана последовательность из n вещественных чисел. Определить количество элементов последовательности попадающих в заданный интервал П.с. Извините если такой вопрос уже был.	Turbo Pascal Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке https://www.cyberforum.ru/ turbo-pascal/ thread299727.html Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке. РЕШЕНА НО НЕ ИДЕТ:( ПОСМОТРИТЕ ПОЖАЛУЙСТО ЧТО С НЕЙ НЕ ТАК:sigh: program pr1; var f1,f2:file of integer; n,kl:byte; ch:array of integer; (процедура создания первого файла) procedure InputFile; var i:byte; ch:integer; begin writeln('Kolichestvo chisel'); readln(n); ...

swillrocker

338 / 127 / 114

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

Сообщений: 246

Получить упорядоченную по невозрастанию последовательность длины n+m из членов исходных - Turbo Pascal - Ответ 1668485

19.05.2011, 18:31. Показов 1394. Ответов 3

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

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

Даны две упорядоченные по невозрастанию последовательности a(1..m) и b(1..n) . Получить упорядоченную по невозрастанию последовательность длины n+m из членов данных последовательностей.

(Разбить задачу на подзадачи таким образом, чтобы решение каждой подзадачи описывалось подпрограммой, а основная программа состояла бы из последовательности вызовов подпрограмм)

Pascal

Program lab4rr;
const
  m=3;
  n=4;
type
  TA = array [1..m] of integer;
  TB = array [1..n] of integer;
  TC = array [1..m+n] of integer;
procedure someproc(a:TA;b:TB;var c:TC);
var
  i:integer;
  ixA,ixB:integer;
begin
  ixA:=1;
  ixB:=1;
  for i := 1 to m+n do
    if (a[ixA]>b[ixB]) or (ixB>n) then
      begin
        c[i]:=a[ixA];
        inc(ixA)
      end
    else
      begin
        c[i]:=b[ixB];
        inc(ixB)
      end
end;
var
  a:TA;
  b:TB;
  c:TC;
  i:integer;
begin
  a[1]:=3;
  a[2]:=2;
  a[3]:=1;
  b[1]:=8;
  b[2]:=5;
  b[3]:=3;
  b[4]:=1;
  someproc(a,b,c);
  writeln;
  for i := 1 to m+n do
    write(c[i],',');
  writeln;
  readln;
end.

Программа работает, но не для всех последовательностей.
Например при a=12 11 10 и b=4 3 2 1 происходит выход за границы.
Исправьте пожалуйста, буду чрезмерно благодарен.
Да и ввод нужно сделать с клавиатуры, а не так:

Pascal

begin
  a[1]:=3;
  a[2]:=2;
  a[3]:=1;
  b[1]:=8;
  b[2]:=5;
  b[3]:=3;
  b[4]:=1;

Вернуться к обсуждению:
Получить упорядоченную по невозрастанию последовательность длины n+m из членов исходных Turbo Pascal

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

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #1669157

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

19.05.2011, 18:31

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

Получить упорядоченную по невозрастанию последовательность длины n+m из членов данных последовательностей
Задание: Даны две упорядоченные по невозрастанию последовательности a длины n и b длины m. Получить...

Получить упорядоченную по невозрастанию последовательность
Даны две последовательности. Получить упорядоченную по невозрастанию последовательность, состоящую...

Получить упорядоченную по невозрастанию последовательность
Даны две упорядоченные по невозрастанию последовательности a(1..m) и b(1..n) . Получить...

Получить упорядоченную по невозрастанию последовательность, состоящую из тех членов первой последовательности, которых нет во второй
кот Бегемот, а на Паскале можешь первую задачу написать?

	19.05.2011, 18:31

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

19.05.2011, 18:31

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

Получить упорядоченную по невозрастанию последовательность, состоящую из тех членов первой последовательности, которых нет во второй
Даны две последовательности. Получить упорядоченную по невозрастанию последовательность, состоящую...

Получить упорядоченную по убыванию последовательность, состоящую из всех различных членов исходной
Дана целочисленная последовательность. Получить упорядоченную по убыванию последовательность ,...

Получить упорядоченную по возрастанию последовательность
Дана целочисленная последовательность. Получить упорядоченную по возрастанию последовательность,...

Получить упорядоченную последовательность чисел, встречающихся в массиве более двух раз
Не могу написать прогу(...Дан массивы x целых чисел получить упорядоченную последовательность чисел...

Наверх