Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Yastreb111
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 34
#1

Найти столбец с наибольшим количеством положительных элементов - программа с меню

06.03.2013, 07:49. Просмотров 860. Ответов 1
Метки нет (Все метки)

Написать программу, включающую следующие процедуры:
Создать матрицу А(7х7) случайных чисел в диапазоне от –35 до +35.
Напечатать матрицу.
Найти столбец с наибольшим количеством положительных элементов (Напечатать номер найденного столбца)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2013, 07:49
Ответы с готовыми решениями:

Создать матрицу размера nxm. Найти строку с наибольшим количеством положительных элементов
Создать матрицу размера nxm. Найти строку с наибольшим количеством...

Создать матрицу размера nxm. Найти строку с наибольшим количеством отрицательных элементов
Создать матрицу размера nxm. Найти строку с наибольшим количеством...

Определение строки с наибольшим количеством нечетных элементов
не получается программа :Дан двумерный массив целых чисел. Написать программу,...

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

Найти в диапазоне от M до N число с наибольшим количеством делителей.
Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция:...

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
06.03.2013, 10:08 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
  n=7;
var
  a: array[1..n,1..n] of integer;
  i,j,s,jmax,max: byte;
begin
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(71)-35;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  max:=0; jmax:=1;
  for i:=1 to n do
    if a[i,1]>0 then inc(max);
  writeln('В 1-м столбце ',max,' положительных элементов');
  for j:=2 to n do
  begin
    s:=0;
    for i:=1 to n do
      if a[i,j]>0 then inc(s);
    if s>max then
    begin
      max:=s;
      jmax:=j;
    end;
    writeln('В ',j,'-м столбце ',s,' положительных элементов');
  end;
  writeln('Столбец с максимальным количеством положительных: ',jmax);
end.
Добавлено через 14 минут
то же самое с процедурами:
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
const
  n=7;
type
  tar=array[1..n,1..n] of integer;
procedure init(var a: tar);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(71)-35;
end;
procedure output(a: tar);
var i,j: byte;
begin
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
procedure find(a: tar);
var i,j,s,jmax,max: byte;
begin
  max:=0; jmax:=1;
  for i:=1 to n do
    if a[i,1]>0 then inc(max);
  writeln('В 1-м столбце ',max,' положительных элементов');
  for j:=2 to n do
  begin
    s:=0;
    for i:=1 to n do
      if a[i,j]>0 then inc(s);
    if s>max then
    begin
      max:=s;
      jmax:=j;
    end;
    writeln('В ',j,'-м столбце ',s,' положительных элементов');
  end;
  writeln('Столбец с максимальным количеством положительных: ',jmax);
end;
 
var
  a: tar;
begin
  init(a);
  output(a);
  find(a);
end.
вот только не совсем понял из каких функций должно выбирать меню: она всего одна - поиск наибольшего количества положительных в столбце..

Добавлено через 7 минут
включил в меню что есть, тело основной программы замените на это:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a: tar;
  ch: char;
begin
  repeat
    init(a);
    writeln('Чтобы вывести массив на экран - нажмите 1');
    writeln('Чтобы найти столбец с максимальных количеством положительных - нажмите 2');
    writeln('Чтобы выйти из программы - нажмите 0');
    readln(ch);
    case ch of
      '0': break;
      '1': output(a);
      '2': find(a);
    end;
  until ch='0';
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2013, 10:08

Найти число с наибольшим количеством делителей из числового промежутка
Помогите решить задачу, пожалуйста, не понимаю как правильно ее реализовать ...

найти маршрут с наибольшим количеством городов и указать его стоимость
Помогите, пожалуйста, решить вот такую задачку:"Текстовый файл содержит...

Текст и внешние файлы. Найти слова с наибольшим и наименьшим количеством гласных
1. Задан текст. Найти в этом тексте слова с наибольшим и наименьшим количеством...


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

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

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