Помощь - Поиск - Пользователи - Календарь
Полная версия: Поясните как сосчитать кол-во строк по условию?
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Pavel
В добавленном файле есть та самая программа о которой пойдёт речь далее.
Задача: Нужно подсчитать сумму всех элементов матрицы, также подсчитать сумму строк, удовлетворяющих условию: A[i,1]<A[i,2]<...<A[i,n]
У меня проблема с подсчётом количества строк! помогите пожалуйста!

Код

program a_2_5_2_1;
uses crt;
var
n,i,j,k:integer;
a:array [1..100,1..100] of real;
      s:real;
begin
      textcolor(yellow);
clrscr;
      s:=0;
      k:=0;
      writeln('vvedi razmer matricy=');
      read(n);
      for i:=1 to n do
      for j:=1 to n do
        begin
        write('vvedite a[',i,',',j,']=');
                readln(a[i,j]);
                s:=s+(a[i,j]);
                end;
           Writeln('');
for i:=1 to n do
 Begin
  writeln;
  for j:=1 to n do
   Write(a[i,j]:5:0);
   writeln('');
         end;
        for j:=1 to n do
        for i:=1 to n do
        begin
          if (a[i,j]<a[i,j+1]) then begin
          k:=k+1;
          end;
          end;
        textcolor(15);
        writeln('');
        writeln('vyvod:',s:1:1);
        writeln('');
        writeln('stroki:',k:1);
       textcolor(green);
       Writeln('');
       writeln('Thank you for use my program!');
       readkey;

           End.


volvo
Pavel, замени свой код подсчета количества строк, вот на этот, например:
  k := 0; { не забываем обнулять }
  for i := 1 to n do begin
    is_ok := true;
    for j := 1 to n - 1 do
      is_ok := is_ok and (a[i, j] < a[i, j + 1]);
    if is_ok then k := k + 1;
  end;

и не забудь в начале описАть переменную is_ok: Boolean... cool.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.