Массивы, одно- и двумерные массивы Опции

[Ozzя]

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

Добавлено через 2 мин.

s=0 к той, которую я просил подправить? Тогда он постоянно выводит 0!

Инициализировать матрицу кто будет?

for i:=1 to n do
  a[i]:=random(какое_нибудь_число);

В random задай нужный интервал. Например: -100..100

[org777]

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

[Ozzя]

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

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

[org777]

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

[org777]

подправьте пожалуйста 2.1 А то че-то не получается(((

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 - 4.12.2008 12:33

[volvo]

Зачем тебе здесь 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 - 4.12.2008 12:45

[org777]

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

[org777]

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

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. Посмотрите пожалуйста задачу, которая в середине из второй картинки, про матрицу. Помогите с ней, если не сложно

М

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

[Lapp]

с неделю назад мне здесь сказали, что я все верно сделал.

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

[Lapp]

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

Вот:

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;

[org777]

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

[Айра]

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

Сообщение отредактировано: Айра - 8.12.2008 21:46

[amega]

break преривание выполнения цикла, не дожидаясь выполнения условий выхода из циклаж

[org777]

Привет всем!
Люди, такая проблема: задачка не верно работает(((
Сама задача - в прикрепленной картинке, первая сверху.
Код ниже:

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 - 16.12.2008 19:30

[volvo]

Замени свой фрагмент вот на этот:

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];

[org777]

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

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