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

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

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

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Массивы, одно- и двумерные массивы
сообщение
Сообщение #21


Гуру
*****

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

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


Зад. 3.1
Удаление столбца/строки решалось. Ищи по форуму.

Добавлено через 2 мин.
Цитата
s=0 к той, которую я просил подправить? Тогда он постоянно выводит 0!

Инициализировать матрицу кто будет?
for i:=1 to n do
a[i]:=random(какое_нибудь_число);

В random задай нужный интервал. Например: -100..100
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Новичок
*

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

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


блин, в задачу 2.1 я все-таки не врубаюсь нифига... mega_chok.gif


--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Гуру
*****

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

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


(frac(sqrt(a))=0) {квадрат числа}

Эта часть не понятна?
Берется корень квадратный из числа, например из 4.
Получается - 2.0
Дробная часть числа равна 0. Ф-ция frac дает как раз дробную часть. числа.
Т.е. если дробная часть корня квадр. из числа равна 0, то число есть квадрат.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Новичок
*

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

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


Люди, пожалуйста, напишите полный код к последним 2 задачам, а?.. Первую я полностью сделал с вашей помощью, а вот вторую и третью лабораторки вообще не врубаюсь... Пожалуйста... blush.gif


--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Новичок
*

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

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


подправьте пожалуйста 2.1 blush.gif А то че-то не получается(((
Program org;
const nn=20; mm=20;
var a:array[1..nn,1..mm] of integer;
j,i,n,m,k:integer; s:real;
begin
writeln('input n,m:');
readln(n,m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
s:=0;
k:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (not odd(a)) and (frac(sqrt(a))=0) then
k:=k+1
end;
end;
writeln('s=',s:8:6);
end;
readln;
end.


Сообщение отредактировано: org777 -


--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Гость






Зачем тебе здесь M и N? У тебя по условию только N. И не надо делать циклы в циклах... Все проще:

const
maxn = 20;
var
i, n: integer;
a: array[1 .. maxn] of integer;

begin
readln(n);
for i := 1 to n do begin
writeln('a[', i, '] = '); readln(a[i]);
end;

for i := 1 to n do begin

if (frac(sqrt(a[i])) = 0) and (not odd(trunc(sqrt(a[i]))))
then write(a[i]:5);

end;
end.

Только добавь проверку, что введенное число N не больше 20, иначе будут проблемы...

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Новичок
*

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

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


Спасибо volvo.. Я очень вам всем благодарен!


--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Новичок
*

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

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


Короче, преподша говорит, что мое творение - неверно. Она сказала, что кажется он строки не инициализирует, что ли...
вот код:

Program org;
Var a:array[1..20,1..20] of real;
i,j,m,n:integer;
mins,maxs,mini,maxi,t:real;
begin
writeln('input m,n:');
readln(m,n);
begin
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random*100-50;
mins:=0;
for j:=1 to n do
mins:=mins+a[1,j];
maxs:=mins;
mini:=1;
maxi:=1;
for i:=2 to m do
begin
t:=0;
for j:=1 to n do
t:=t+a[i,j];
if (t>maxs) then
begin
maxs:=t;
maxi:=i;
end
else if (t<mins) then
begin
mins:=t;
mini:=i;
end;
end;
writeln ('Max summ= ',maxs:8:6,'; ','stroki: ',maxi:2:0);
writeln ('Min summ= ',mins:8:6,'; ','stroki: ',mini:2:0);
readln;
end;
end.


Это задача №3 из прикрепленной картинки. Я не врубаюсь, что там неверно, если даже с неделю назад мне здесь сказали, что я все верно сделал.

P.S. Посмотрите пожалуйста задачу, которая в середине из второй картинки, про матрицу. Помогите с ней, если не сложно blush.gif

М
Зачем начинать новую тему для той же задачи?.. Соединил.
Лопарь



Эскизы прикрепленных изображений
Прикрепленное изображение Прикрепленное изображение

--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(org777 @ 8.12.2008 19:10) *
с неделю назад мне здесь сказали, что я все верно сделал.

С неделю назад я тебе сказал, что надо добавить вывод самих строк (а не только номеров), ибо это требуется в условии.
Сейчас добавлю еще, что переменные mini и maxi нужно бы сделать целыми.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(org777 @ 8.12.2008 19:10) *
Посмотрите пожалуйста задачу, которая в середине из второй картинки, про матрицу. Помогите с ней, если не сложно

Вот:
for i:=1 to n do begin
b[i]:=1;
for j:=1 to n do if a[i,j]>0 then begin
b[i]:=a[i,j];
break
end
end;


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #31


Новичок
*

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

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


А что означает break?


--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #32


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

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


Процедура, прерывающая выполнение цикла for\while\repeat..

Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #33


?
***

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

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


break преривание выполнения цикла, не дожидаясь выполнения условий выхода из циклаж
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #34


Новичок
*

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

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


Привет всем!
Люди, такая проблема: задачка не верно работает(((
Сама задача - в прикрепленной картинке, первая сверху.
Код ниже:
Program org;
uses crt;
const nn=4; mm=4;
var a:array[1..nn,1..mm] of integer;
n,i,j,k,l:integer;
begin
clrscr;
randomize;
writeln('Input n,i,j: '); readln(n,i,j);
for k:=1 to n do begin
for l:=1 to n do begin
a[k,l]:=random(100)-50;
write(a[k,l]:8); end; writeln; end;
for k:=1 to n-1 do
for l:=1 to n do
a[k,l]:=a[k+1,l];
for k:=1 to n do
for l:=j to n-1 do
a[k,l]:=a[k,l+1];
for k:=1 to n do a[k,n]:=0;
for k:=1 to n-1 do
begin
for l:=1 to n-1 do
write(a[k,l],' ');
writeln;
end;
readln;
end.


Добавлено через 6 мин.
И помогите пожалуйста, если не сложно с еще одной задачкой - на строки уже. Знаю, что не совсем по теме... но мне кажется, что лишний раз открывать новую тему не стоит.
Задача в прикрепленной картинке, первая сверху)
P.S. По ней у меня совершенно нет мыслей, я вообще не представляю как ее делать(((

Сообщение отредактировано: org777 -


Эскизы прикрепленных изображений
Прикрепленное изображение Прикрепленное изображение

--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #35


Гость






Замени свой фрагмент вот на этот:
for k:=I to n-1 do { <--- удаляем I-тую строку }
for L:=1 to n do
a[k,L]:=a[k+1,L];
for k:=1 to n do
for L:=J to n-1 do { <-- и J-тый столбец }
a[k,L]:=a[k,L+1];

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


Новичок
*

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

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


А блин, я перепутал буквы))) Сессия просто, напряжение, вот и допускаются такие вот ошибки идиотские. Спасибо volvo, очень благодарен тебе! good.gif

P.S. А со строками кто-нибудь может мне помочь, а?... Напишите пожалуйста полненький код ,если не составит труда... blush.gif


--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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