0 / 0 / 0
Регистрация: 14.03.2016
Сообщений: 24
1

Вывести номера первой и последней строк таблицы, содержащих только положительные элементы

07.04.2016, 18:40. Показов 1899. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана таблица 5x10 заполненная целыми числами. Вывести номера первой и последней строк, содержащих только положительные элементы. Если таких строк нет, то вывести 0.
0
Лучшие ответы (1)
07.04.2016, 18:40
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.04.2016, 18:40
Ответы с готовыми решениями:

Массив: Вывести номера первой и последней строк, содержащих только положительные элементы.
Дана таблица 5x10 заполненная целыми числами. Вывести номера первой и последней строк, содержащих только положительные элементы. Если таких...

Вывести номер первой и последней строки матрицы, содержащих только положительные элементы
.Дана матрица размера 5 x 10. Вывести номер её первой и последней строки, содержащих только положительные элементы. Если таких строк нет,...

Определить номера строк, содержащих только положительные элементы
определить номера строк, содержащих только положительные элементы, если их нет-вывести об этом сообщение.Делфи,помогите решить)):wall:

1
 Аватар для Cyber_Monster_
147 / 128 / 155
Регистрация: 22.03.2016
Сообщений: 502
07.04.2016, 23:31 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Necro_Spider Посмотреть сообщение
таблица
Это в смысле матрица?

Добавлено через 1 час 4 минуты
Если матрица, вот код:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
var
  ///Задает "ширину" массива
  par_x: integer;
  ///Задает "высоту" массива
  par_y: integer;
  ///Задает значения массива от -Rand_Par, до +Rand_Par
  Rand_Par: integer;
  ///Массив
  arr: array [,] of integer;
  ///Счетчик внешнего цикла
  Counter_X: integer;
  ///Счетчик внутренего цикла
  Counter_Y: integer;
  ///Логическая переменная, меняющая значение на "False", при наличии в строке отрицательных эллементов
  Sign_Par: boolean;
  ///Индекс первой "Не отрицательной" строки
  First_Max: integer:=-1;
  ///Индекс последней "Не отрицательной" строки
  Last_Max: integer;
  ///Флаг ошибки ввода
  Error_Flag: boolean;
  ///Входная строка
  Inp_: string;
  ///Флаг продолжения
  Continue_Flag: boolean;
begin
 
  //Данный цикл является необязательным.
  //Вместо него возможно задание переменных вручную
  //par_x:= 5; par_y:= 10; Rand_Par:= 10;
  repeat
    Continue_Flag:= true;
    Writeln('Задайте размерность массива:');
    Write('По X:');
    Readln(Inp_);
    Error_Flag:= TryStrToInt(Inp_,par_x);
    if Error_Flag=false
      then
        begin
          Writeln('Строка: ',Inp_,' Имела неверный формат');
          Continue_Flag:= false;
        end
      else
        begin
          Write('По Y:');
          Readln(Inp_);
          Error_Flag:= TryStrToInt(Inp_,par_y);
          if Error_Flag=false
            then
              begin
                Writeln('Строка: ',Inp_,' Имела неверный формат');
                Continue_Flag:= false;
              end
            else
              begin
                Write('Ведите значение интервала генерации:');
                Readln(Inp_);
                Error_Flag:= TryStrToInt(Inp_,Rand_Par);
                if Error_Flag=false
                  then
                    begin
                      Writeln('Строка: ',Inp_,' Имела неверный формат');
                      Continue_Flag:= false;
                    end
              end;
            
        end;
  until Continue_Flag=true;
 
  Randomize;
  //Инициализация динамического массива
  arr:= new integer [par_x,par_y];
 
  for Counter_X:=0 to par_x-1 do
    begin
      //Вывод номера строки
      Write('* ',Counter_X:3);
      for Counter_Y:= 0 to par_y-1 do
        begin
          //Присвоение случайных значений элементам матрицы
          arr[Counter_X,Counter_Y]:= Random(Rand_Par*2)-Rand_Par;
          //Вывод значения матрицы
          Write(' * ',arr[Counter_X,Counter_Y]:3);
        end;
      Writeln(' *');
    end;
 
  //Цикл обработки массива согласно условию
  for Counter_X:=0 to par_x-1 do
    begin
      Sign_Par:=false;
      for Counter_Y:= 0 to par_y-1 do
        if arr[Counter_X,Counter_Y]<=0
          then
            Sign_Par:=true;
      if (Sign_Par=false) and (First_Max=-1)
        then
          begin
            First_Max:=Counter_X;
            Last_Max:=Counter_X;
          end
        else
          if Sign_Par=false
            then
              Last_Max:=Counter_X;
   end;
 
  //Вывод ответа
  if First_Max=-1
    then
      Writeln('Строк состоящих из положительных элементов не найдено')
    else
      Writeln('Первая строка:',First_Max,' Последняя строка:',Last_Max)
end.

В 111 строке в кавычках вместо сообщения впишите 0
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.04.2016, 23:31
Помогаю со студенческими работами здесь

Определить номера строк матрицы, содержащих только положительные элементы
определить номера строк, содержащих только положительные элементы, если их нет- вывести об этом сообщение.

Определить номера строк массива, содержащих только положительные элементы
Добрый вечер,помогите, пожалуйста, исправить ошибку в программе и не знаю как еще условие добавить var Form9: TForm9; D:array of...

В двумерном массиве определить номера строк, содержащих только положительные элементы
№2 В двумерном массиве определить номера строк, содержащих только положительные элементы. помогите решить задачку))

Определить номера строк двумерной матрицы, содержащих только положительные элементы
Вроде как все сделал но работает не правильно. Вот код: procedure TForm1.Button1Click(Sender: TObject); begin ...

В матрице найти номера строк, содержащих только нулевые элементы, и номера строк, содержащих только чётные элементы,
Задана целочисленная матрица А размерности N x N. Найти номера строк, которые имеют: а) все нулевые элементы; б) все чётные элементы....


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru