Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
JIewsha
0 / 0 / 0
Регистрация: 21.11.2017
Сообщений: 11
#1

Массив: Найти и напечатать числа, которые встречаются в каждом ряду. - Turbo Pascal

28.11.2017, 15:55. Просмотров 167. Ответов 5

Задана матрица А. Числа в каждом ряду матрицы упорядочены по возрастанию. Найти и напечатать числа, которые встречаются в каждом ряду. Если таких чисел нету, напечатать соответствующее замечание.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2017, 15:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Массив: Найти и напечатать числа, которые встречаются в каждом ряду. (Turbo Pascal):

Напечатать те слова, которые встречаются в каждом из двух заданных предложений. - Turbo Pascal
Напечатать те слова, которые встречаются в каждом из двух заданных предложений. Помогите пожалуйста)

Найти множество всех слов, которые встречаются в каждом предложении текста - Turbo Pascal
Добрый день. Есть задание. Тема - множества. Дан некоторый текст (тхт файл). Найти множество всех слов, которые встречаются в каждом...

В ряду символов определить символы, которые встречаются по одному разу - Turbo Pascal
Добрий день товарищи, помогите сделать задачи.. 1. В ряду символов определить символы, которые встречаются по одному разу и напечатать...

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

Заполнить массив случайными числами и выделить в другой массив все числа,которые встречаются более одного раза - Turbo Pascal
Помогите пожалуйста!Вот задание:заполнить массив случайными числами и выделить в другой массив все числа,которые встречаются более одного...

Найти числа, которые встречаются одновременно в 1 и 3 массивах - Turbo Pascal
Задано 3 массива простых чисел в диапазоне от 1 до 20. Найти числа которые встречаются одновременно в 1 и 3 массивах. Помогите пожалуйста!...

5
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3593 / 2580 / 1760
Регистрация: 05.06.2014
Сообщений: 12,345
29.11.2017, 10:23 #2
Есть ли одинаковое число во всех строках матрицы

Добавлено через 27 секунд
Цитата Сообщение от JIewsha Посмотреть сообщение
в каждом ряду
Ряд - это строка или столбец?
0
JIewsha
0 / 0 / 0
Регистрация: 21.11.2017
Сообщений: 11
30.11.2017, 13:59  [ТС] #3
строка
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3602 / 2299 / 1196
Регистрация: 22.11.2013
Сообщений: 6,124
30.11.2017, 14:59 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const m=3; n=20; u=10; W=2;
var
  a: array [1..m,1..n] of Byte;
  t, r: set of 0..u-1;
  i, j: Integer;
begin
  Randomize;
  WriteLn('A ='); r:=[0..u-1];
  for i:=1 to m do begin
    t:=[];
    for j:=1 to n do begin
      a[i,j]:=Random(u); Write(a[i,j]:W); Include(t,a[i,j]);
    end; WriteLn;
    r:=r*t;
  end;
  Write('Во всех строках есть: [');
  for i:=0 to u-1 do if i in r then Write(' ',i);
  WriteLn(' ]');
end.
0
JIewsha
0 / 0 / 0
Регистрация: 21.11.2017
Сообщений: 11
05.12.2017, 19:59  [ТС] #5
Напишите, пожалуйста, блок-схему по данной программе.
0
Cyborg Drone
Модератор
4832 / 3001 / 1207
Регистрация: 17.08.2012
Сообщений: 9,605
08.12.2017, 16:28 #6
Массив: Найти и напечатать числа, которые встречаются в каждом ряду.
0
08.12.2017, 16:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2017, 16:28
Привет! Вот еще темы с ответами:

Выделить в другой массив все числа, которые встречаются более одного раза - Turbo Pascal
Заполнить массив случайными числами и выделить в другой массив все числа, которые встречаются более одного раза.

Распечатать числа, которые встречаются в первом файле, но не встречаются во втором - Turbo Pascal
Как решить эти задачи? И чтобы решение было УНИВЕРСАЛЬНЫМ для любого случая: 1. Даны два файла целых чисел. Распечатать числа, которые...

Массив А(13), напечатать те числа из массива, которые меньше предыдущего числа - Turbo Pascal
Массив А(13), состоящий из элементов, среди которых есть положительные, отртщательные и равные нулю. Напечатать те числа из массива,...

Напечатать в алфавитном ряду все согласные, которые входят в каждое не парное слово - Pascal
Уважаемые форумчани. Первый раз прошу помощи такого рода. Но в жизни бывает разное. Вообщем нужно написать с десяток программ на паскале....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.