Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Записи библиотека https://www.cyberforum.ru/ pascal/ thread97697.html
Помогите решить задачу: В библиотеке для каждого заказывающего книгу читателя заполняется карточка: фамилия, дата заказа, дата выдачи книги. Определить, кому выдали книги 25.09.2008 		Сумма отрицательных элементов массива. Pascal
В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1. Сумму отрицательных элементов массива. 2. Произведение элементов массива, расположенных между максимальным и минимальным...
Pascal С помощью процедуры записать в текст t все цифры из строки s. Задание: type stroka=array of char; textfile=file of char; Описать процедуру cifer(s,t),которая записывает в текст t все цифры из строки s. Моя программа: program pro; type stroka=array of... https://www.cyberforum.ru/ pascal/ thread97666.html Pascal Матрица процедурой https://www.cyberforum.ru/ pascal/ thread97661.html
Заставляют проги писать процедурами! Ууу! Вот код, почему подчеркивает строчку и говорит, что неизвестный идентификатор, я же его объявил! (программа заполнения матрицы по схеме, но это не важно) ...
Pascal Перестановка элементов массива
Дан двухмерный массив.Поменять местами первый максимальный и последний минимальный элементы матрицы.Матрица просматривается построчно сверху вниз,а в каждой строке-слева направо. Помогите решить... 		Pascal Найти количество строк (столбцов) матрицы, похожих на первую (последнюю) строку (столбец) Дана целочисленная матрица размера M на N. Различные строки (столбцы) матрицы назовем похожими, если совпадают множества чисел, встречающихся в этих строках(столбцах). Найти количество строк... https://www.cyberforum.ru/ pascal/ thread97632.html
Pascal Процедуру с параметрами https://www.cyberforum.ru/ pascal/ thread97629.html
Написать программу, использующую процедуру с параметрами, котораяпо введённому значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Организовать... 		Удалить из матрицы строку или столбец с номером k. Pascal
Дано число k и матрица размеров 4*10. Удалить строку или столбец с номером k. СПАСИТЕ!!!!!
Pascal Отсортировать элементы в чётных столбцах по возрастанию, а в нечётных по убываю https://www.cyberforum.ru/ pascal/ thread97621.html
отсортировать элементы в чётных столбцах по возрастанию, а не в чётных по убываю 		Pascal Написать процедуру, которая рисовала бы лестницу https://www.cyberforum.ru/ pascal/ thread97607.html
Написать процедуру, которая рисовала бы лестницу. Данные: число ступенек, длина самой маленькой, величина, на которую изменяется длина каждой следующей ступеньки. Помогите если возможно...
Pascal Задача на курсач
Пожалуйста, помогите составить программу или хотя бы подскажите что тут делать!!! Задание: а) Массив А(n,2) представляет данные о координатах точек опробования. Элемент А(n,1) - координата X, А(n,2)... 		Pascal стрелочка Стрелка состоит из отрезка прямой и равностороннего треугольника - острия. Сторона треугольника, пересекающая отрезок, образует с ним прямой угол; точка пересечения делит отрезок в отношении 1:5.... https://www.cyberforum.ru/ pascal/ thread97578.html
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 8
0

Получить все члены последовательности - Pascal - Ответ 559520

21.02.2010, 12:37. Показов 723. Ответов 2
Метки (Все метки)
Студворк — интернет-сервис помощи студентам
Помогите пожалуйста решить такую задачу:
Даны натуральное число n, целые числа A1..A25 и B1..Bn.
Среди A1..A25 и B1..Bn нет повторяющихся.
Получить все члены последовательности B1..Bn.

Я почти решил ее, только у меня среди массивов повторяющиеся элементы заменяются, а внутри самих массивов - нет.
Вот мой код:
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

uses CRT;
const n=25;
type  myarray = array[1..25] of integer;
      myarray1= array[1..n]  of integer;
var   a:myarray;
      b:myarray1;
      
procedure Init(var a,b:myarray); {Процедура генерации массивов и замены одинаковых}
var   i,j:integer;
begin
     randomize;
     for i:=1 to 25 do                 {Цикл генерации массива A}
         a[i]:=random(100);
     for j:=1 to n do                  {Цикл генерации массива B}
         b[j]:=random(100);         
     for i:=1 to 25 do                 {Цикл замены одинаковых элементов массивов на случайно генерируемые}
         for j:=1 to n do
             if a[i]=b[j] then b[j]:=random(100);
end;
 
procedure Print(a,b:myarray);  {Процедура вывода массивов}
var  i,j:integer;
begin
     for i:=1 to 25 do
         Write(a[i]:5);
     Writeln;
     Writeln;
     Writeln;
     for j:=1 to n do
         Write(b[j]:5);
end;
 
begin
     Init(a,b);
     Print(a,b);
end.
Что туда добавить нужно чтобы вообще все одинаковые элементы заменялись?
И вообще - правильно ли я решаю?

Вернуться к обсуждению:
Получить все члены последовательности Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 21.02.2010, 12:37
Готовые ответы и решения:

Получить все члены последовательности b1 ... bn, которые не входят в последовательность a1 ... a25
Есть код задачи со вложенными циклами. надо сделать с процедурой. Помогите пожалуйста, у меня не...

Получить "сглаженные" значения a1,., a50, заменив в исходной последовательности все члены, кроме первого и последнего
Даны действительные числа a1,..., a50. Получить "сглаженные" значения a1,..., a50, заменив в...

Получить члены последовательности
Помогите решить задачку пожалуйста. -- Дано натуральное число n и целые числа A1....An.Получить все...

Все отрицательные члены последовательности увеличить на 0.5, а все неотрицательные заменить на 0.1
Дана натуральное число n, действительные числа а1....аn, в последовательности а1...аn все...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 21.02.2010, 12:37
Помогаю со студенческими работами здесь

Заменить все отрицательные члены последовательности ее минимальным элементом, а все положительные - максимальным
Дано натуральное число n и последовательность действительных чисел a1,a2...an.Заменить все...

В последовательности а1, а2, ..., аn все отрицательные члены увеличить на 0,5
Пусть дано натуральное число п и вещественные числа а1, а2, ..., аn. В последовательности а1, а2,...

В последовательности все члены, следующие за наибольшим, заменить на 0.5
Даны действительные числа a1...an, b1...bm. В последовательности a1...an и в последовательности...

Все отрицательные члены последовательности заменить наибольшим элементом
Помогите пожалуйста с заданием. буду очень благодарен. Даны натуральное число n и...

Найти все члены последовательности, что удовлетворяют условию
не могу никак написать программу =( помогите, может у кого нибудь есть похожая Даны...

Получить X1Y1+...+XsYs, где X1...Xp - отрицательные члены последовательности r1...r17, взятые в порядке их следования...
Помогите разобраться, не правильно работает скрипт, идей больше нет. Условие : Даны...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru