IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> не знаю решения
степан07
сообщение 21.01.2008 14:59
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: степан

Репутация: -  0  +


1. дан массив B(m,n) M<=10, N<=10.
найти все строки ,сумма квадратов элементов которых >20.напечатать их номера.Подсчитать общее количество таких строк.
2. используя цикл while записать подпрограмму определения идеального веса длявзрослых людей по формуле вес =рост-100.выход из цикла значение роста =200. blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов(1 - 9)
Yevgeny
сообщение 21.01.2008 15:11
Сообщение #2


The matrix has me!!!
**

Группа: Пользователи
Сообщений: 74
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


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

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


--------------------
"Брать производную можно научить даже обезьяну" - мой препод по матану! :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
степан07
сообщение 21.01.2008 15:18
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: степан

Репутация: -  0  +


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

Добавлено через 2 мин.
если не трудно напиши решение всей задачи...
а тоя придется на доп сесию)))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Michael_Rybak
сообщение 21.01.2008 15:28
Сообщение #4


Michael_Rybak
*****

Группа: Модераторы
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


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

Исправляем

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Yevgeny
сообщение 21.01.2008 15:57
Сообщение #5


The matrix has me!!!
**

Группа: Пользователи
Сообщений: 74
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


 
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.


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


--------------------
"Брать производную можно научить даже обезьяну" - мой препод по матану! :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 23.01.2008 0:46
Сообщение #6


Гость






огромное спасибо
 К началу страницы 
+ Ответить 
Гость
сообщение 26.01.2008 18:53
Сообщение #7


Гость






Цитата(степан07 @ 21.01.2008 14:59) *

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

С 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.

 К началу страницы 
+ Ответить 
Гость
сообщение 26.01.2008 18:56
Сообщение #8


Гость






Цитата(степан07 @ 21.01.2008 14:59) *

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

С 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
сообщение 26.01.2008 19:11
Сообщение #9


The matrix has me!!!
**

Группа: Пользователи
Сообщений: 74
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


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

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


--------------------
"Брать производную можно научить даже обезьяну" - мой препод по матану! :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Michael_Rybak
сообщение 26.01.2008 19:23
Сообщение #10


Michael_Rybak
*****

Группа: Модераторы
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


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

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 10:12
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"