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

@Владуля · Регистрация: 12.12.2012

Студворк — интернет-сервис помощи студентам

Очень прошу, Помогите! Паскаль мне не подвластен!

Составить блок-схему алгоритма обработки матрицы, используя для построения цикла графический символ "модификация". Написать программу на языке Паскаль с использованием оператора цикла FOR.
Имя матрицы: F
Кол-во строк: 80
Кол-во столбцов: 90
Найти: отношение наибольшего элемента к количеству положительных элементов

@Давид · 12.12.2012, 16:15

Владуля, что именно подразумевается под понятием "отношение"?
больше/меньше, процентное соотношение или?

@Владуля · 12.12.2012, 16:19 **[ТС]**

Давид, даа
Больше/ меньше

@Давид · 12.12.2012, 16:38

Владуля, Держи, проверял на маленькой размерности, переправь под свою.А я пока тебе блок-схему начеркаю.

Pascal

program matrica;
  uses crt;
  var f:array [1..5,1..10] of integer;
      i,j:integer;
      max,kol:integer;
begin
  clrscr;
  randomize;
  for i:=1 to 5 do
    for j:=1 to 10 do
      f[i,j]:=random(31)-15;
  writeln ('Получена матрица:');
  for i:=1 to 5 do
   begin
    for j:=1 to 10 do
      write(f[i,j]:4);
      writeln;
   end;
  max:=f[1,1];
  for i:=1 to 5 do
   begin
    for j:=1 to 10 do
     if f[i,j]>max then max:=f[i,j];
   end;
  writeln ('Максимальный элемент = ',max);
  for i:=1 to 5 do
   begin
    for j:=1 to 10 do
     if f[i,j]>0 then kol:=kol+1;
   end;
  writeln (' Количество элементов больше 0 = ',kol);
  if max=kol then writeln('Числа равны между собой') else
  if max>kol then writeln ('Максимальное число больше чем количество') else
  writeln ('Максимальное число меньше чем количество');
  readln
end.

@Давид · 12.12.2012, 16:51

Блок с хема с модификаторами будет выглядеть примерно так!Там уже сам отсеки все лишнее, подправь к виду которому вас учат и вуаля ---> радуйся!

@Владуля · 12.12.2012, 17:14 **[ТС]**

Давид,огромное тебе спасибо! Ты меня ну оочень выручил. Скоро сдавать контрольную работу,а у меня ничего не сделано! Я в паскале полный ноль!Единственное что не поняла, смотри, я когда буду в тетрадку переписывать паскаль, то что написано красными буквами у тебя, мне тоже самое писать?или как?не поняла

@Давид · 12.12.2012, 20:06

Владуля, Ну для начала я тебе советую запустить программу у себя и посмотреть принцип её работы.
То что написано красными буквами, ни что иное как ответы, которые будут отображаться при выполнении программы.Переписывать их нужно, на всякий случай распечатай код программы и сделай вкладыш.
И не забудь подставить свою размерность матрицы.
Если есть еще задания - выкладывай!

@Владуля · 19.12.2012, 19:08 **[ТС]**

Давид,спасибо!
[удалено]

@Владуля · 20.12.2012, 14:04 **[ТС]**

Давид, посмотри, я там ещё одно задание написала вчера. сможешь?

@Давид · 20.12.2012, 14:38

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

Комментарий модератора

Обсуждение задач только на форуме.

@Владуля · 20.12.2012, 14:46 **[ТС]**

Давид, сможешь ещё одно решить?
я кидала в задания вчера

@Давид · 20.12.2012, 14:48

Сообщение от Владуля

я кидала в задания вчера

Всмысле новую тему создавала?

@Владуля · 20.12.2012, 15:13 **[ТС]**

вот, я сегодня пару минут назад новую тему создала,посмотри)

@Владуля 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 10
	20.12.2012, 14:46 [ТС]	11
	Давид, сможешь ещё одно решить? я кидала в задания вчера 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	12.12.2012, 16:15	2
	Владуля, что именно подразумевается под понятием "отношение"? больше/меньше, процентное соотношение или? 1

@Владуля 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 10
	12.12.2012, 16:19 [ТС]	3
	Давид, даа Больше/ меньше 0

@Владуля 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 10
	12.12.2012, 17:14 [ТС]	6
	Давид,огромное тебе спасибо! Ты меня ну оочень выручил. Скоро сдавать контрольную работу,а у меня ничего не сделано! Я в паскале полный ноль!Единственное что не поняла, смотри, я когда буду в тетрадку переписывать паскаль, то что написано красными буквами у тебя, мне тоже самое писать?или как?не поняла 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	12.12.2012, 20:06	7
	Владуля, Ну для начала я тебе советую запустить программу у себя и посмотреть принцип её работы. То что написано красными буквами, ни что иное как ответы, которые будут отображаться при выполнении программы.Переписывать их нужно, на всякий случай распечатай код программы и сделай вкладыш. И не забудь подставить свою размерность матрицы. Если есть еще задания - выкладывай! 1

@Владуля 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 10
	19.12.2012, 19:08 [ТС]	8
	Давид,спасибо! [удалено] 0

@Владуля 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 10
	20.12.2012, 14:04 [ТС]	9
	Давид, посмотри, я там ещё одно задание написала вчера. сможешь? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	20.12.2012, 14:48	12
	Сообщение от Владуля я кидала в задания вчера Всмысле новую тему создавала? 0

@Владуля 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 10
	20.12.2012, 15:13 [ТС]	13
	вот, я сегодня пару минут назад новую тему создала,посмотри) 0

Опции темы