не знаю решения Опции

[степан07]

1. дан массив B(m,n) M<=10, N<=10.
найти все строки ,сумма квадратов элементов которых >20.напечатать их номера.Подсчитать общее количество таких строк.
2. используя цикл while записать подпрограмму определения идеального веса длявзрослых людей по формуле вес =рост-100.выход из цикла значение роста =200.

[Yevgeny]

считай для каждой строки сумму квадратов элементов вот так: S:=S+sqr(B[i,j]), где B[i,j] - это элемент твоего массива B, с координатами i, j
если S>20, то выводишь значение i, и увеличиваешь счётчик таких строк, например какой-нить k...

По поводу второй, я так понимаю, надо написать процедуру или функцию, а ты не можешь поконкретнее написать, что дано, что будет её параметрами?

[степан07]

по поводу второй точней ничего сказать точно не могу это все условие...дело в том что у меня сейчас экзамен а я тлком ничего не знаю

Добавлено через 2 мин.
если не трудно напиши решение всей задачи...
а тоя придется на доп сесию)))

[Michael_Rybak]

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... Исправляем

[Yevgeny]

 
Program Matrix;
Const m=3; n=3; {любые значения}
Type
t=array[1..n] of integer;
tt=array[1..m] of t;
Var
x:tt; i,j,s,k:integer;
Begin
for i:=1 to m do
 for j:=1 to n do read(x[i,j]);

k:=0;
For i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do s:=s+sqr(x[i,j]);
  if s > 20 then begin
                 writeln('stroka: ',i);
                 k:=k+1;
                 end;
 end;

Writeln('vsego:',k);
for i:=1 to m do begin
 for j:=1 to n do write(x[i,j]:3);
 writeln end;
End.

удачи, надеюсь правильно...

[Гость]

огромное спасибо

[Гость]

2. используя цикл while записать подпрограмму определения идеального веса длявзрослых людей по формуле вес =рост-100.выход из цикла значение роста =200.

С While не получилось...получилось просто так...

uses
crt;
var
rost,Ves:integer;
procedure Ves1(rost:integer);
 begin
   Ves:=rost-100;
 end;
begin
 clrscr;
 writeln('rost');
 readln(rost);
  if rost<200 then
   begin
    ves1(rost);
    writeln(ves);
   end
 else
   begin
    write('ERROR!');
    readln;
   end;
   end.

[Гость]

2. используя цикл while записать подпрограмму определения идеального веса длявзрослых людей по формуле вес =рост-100.выход из цикла значение роста =200.

С While не получилось...получилось просто так...

uses
crt;
var
rost,Ves:integer;
procedure Ves1(rost:integer);
 begin
   Ves:=rost-100;
 end;
begin
 clrscr;
 writeln('rost');
 readln(rost);
  if rost<200 then
   begin
    ves1(rost);
    writeln(ves);
   end
 else
   begin
    write('ERROR!');
    readln;
   end;
   end.

[Yevgeny]

Тока это всё должно было быть процедурой, и фишка вся в том, чтоб в процедуре был While!!!

для взрослых людей

Потому что именно для людей, а не для одного человека, вот он где этот While!!!
А так же, что будет если этот человек окажется карликом и его рост - 90, тогда что, его вес отрицательный???
И если не ошибаюсь, то выходной параметр процедуры должен быть с var'ом, тем более для глобальной переменной!

[Michael_Rybak]

!

Закрыто, см. выше.