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

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

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

 
Closed Topic Открыть новую тему 
> не знаю решения
сообщение
Сообщение #1





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

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


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





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

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


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

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


Michael_Rybak
*****

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

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


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

Исправляем

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






огромное спасибо
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


The matrix has me!!!
**

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

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


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

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


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


Michael_Rybak
*****

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

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


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

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

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

 





- Текстовая версия 27.11.2021 10:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name