Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Lesya18
0 / 0 / 0
Регистрация: 05.12.2018
Сообщений: 18
1

Получить все члены последовательности b1 ... bn, которые не входят в последовательность a1 ... a25

21.03.2019, 16:11. Просмотров 258. Ответов 2

Есть код задачи со вложенными циклами. надо сделать с процедурой.
Помогите пожалуйста, у меня не получается. Выдает ошибку.
Я еще не особо понимаю как работать с процедурой
вот код
Delphi
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
Const
  N=15;
  M=9;
var
  I,J:Integer;
  B:array [1..M] of Integer;
  A:array [1..N] of Integer;
  Flag: Boolean;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  for I:=1 to N do
    begin
      Write ('Ввод A ');
      Readln (A[i]);
    end;
  for J:=1 to M do
    begin
      Write ('Ввод B ');
      Readln (B[j]);
    end;
  for J:=1 to M do
    begin
      Flag := True;
        for I:=1 to N do
          if B[J] = A[I] then
            begin
              Flag := False;
              Break;
            end;
        if Flag = True then
          Writeln(B[J],' ');
    end;
  Readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2019, 16:11
Ответы с готовыми решениями:

Задача с процедурой
Разработать вариант программы с процедурой 1/(1.2*tgx+(x+1) ^1/2)-x и ((ex)^1/3 –(6/7)*x*sinx...

Задача: надо сделать с процедурой...
Если исходная последовательность С1, С2,...,Сm не содержит ни одного элемента, значение которого...

Матрица процедурой
Заставляют проги писать процедурами! Ууу! Вот код, почему подчеркивает строчку и говорит, что...

Выполнить процедурой
Исходники: 1)uses crt; const str=3;{количество строк} sto=3;{количество столбцов} var ...

глюк с процедурой
Здравствуйте! С процедурой у меня что-то неладное: без процедуры всё нормально работает, как только...

2
Puporev
Модератор
57073 / 43578 / 30116
Регистрация: 18.05.2008
Сообщений: 103,896
21.03.2019, 17:03 2
Может условие задачи напишете?
0
Lesya18
0 / 0 / 0
Регистрация: 05.12.2018
Сообщений: 18
21.03.2019, 17:26  [ТС] 3
Даны натуральное число n, целые числа a1 ... a25, b1 ... bn.
Среди a1 ... a25 нет повторяющихся чисел, нет их и среди b1 ... bn.
Получить все члены последовательности b1 ... bn, которые не входят в последовательность a1 ... a25.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2019, 17:26

Массив с процедурой
Написать программу с процедурой, которая находит номер максимального числа в массиве целых чисел....

Программа с процедурой (2)
Задание 6. Написать программу с процедурой: а) Написать программу подсчета количества...

Программа с процедурой
Задание 5. Написать программу с процедурой: а) Написать процедуру для расчета факториала данного...


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

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

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