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

[org777]

Привет всем. Спасибо за помощь с предыдущими заданиями!))
Задала еще лабораторки
Объясните пожалуйста популярно, как это все делается?
P.S. на первой фотке задания с 1 по 3, на других фотках - только самое верхнее задание

[Lapp]

Объясните пожалуйста популярно, как это все делается?

А на лекциях/семинарах/в методичках/учебниках это не объясняется популярно?


Добавлено через 1 мин.
Или мы должны повторить тебе твой курс?

[org777]

В том-то и дело, что не объясняют((( нам дают листок формата А4, на котором приведен всего 1 пример. И с помощь этого 1 примера мы должны сделать штук 5 других разных задач. Преподше главное пихнуть нам этот листок, а самой потом сидеть и со своими делами разбираться.
Учебников у нас тоже нет, мы "обучаемся" только по этим листочкам А4.
Вы мне ничего не должны. Я просто надеюсь на вашу помощь... Если нет - что ж, извините, наверное ошибся адресом...

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

[Lapp]

Я просто надеюсь на вашу помощь... Если нет - что ж, извините, наверное ошибся адресом...

Помощь не то же самое, что дать списать. Ты хотя бы пробовал начать? Первая задача (остальные не смотрел) совсем легкая. Покажи, что у тебя получается. Поможем.

[org777]

Кому легкая, а кому нет...
Я попытался 3 сделать, только она у меня криво как-то выходит...

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);
 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:8:6);
 writeln ('Min summ= ',mins:8:6,' ','stroki: ',mini:8:6);
 readln;
end.

[Lapp]

Я попытался 3 сделать, только она у меня криво как-то выходит...

И что тут такого кривого?.. На мой взгляд все прекрасно. Только добавь вывод самой строки, как в условии.
Продолжай в том же духе.

P.S.
Ставь паскалевские теги, а не просто код, пожалуйста.

[org777]

Он числа рандомом не выводит...
Паскалевские теги - это в смысле выделять черным все эти команды, типа begin, if, then и т.д.?

[Lapp]

Он числа рандомом не выводит...

Что сие могло бы означать?..
В задании ничего не сказано про "вывод чисел рандомом". Если тебе это все-таки нужно, объясни, что ты под этим словосочетанием понимаешь.

Паскалевские теги - это в смысле выделять черным все эти команды, типа begin, if, then и т.д.?

Нет, конечно То есть смысл тот, но этим занимаются два специальных тега (точнее - один с закрытием):

[cоde=pas]
... тут прога ...
[/cоde]

Ты ставишь простые теги [cоde] [/cоde], а нужно с параметром "pas". Обычно это делается выделением программы в блок и выбором нужного пункта из меню CODE над окном ввода текста. Только не пытайся копировать их из этого сообщения - тут я их специально испортил, чтоб они были видны, а не отрабатывали.

[org777]

Под ранодомом я понимаю то, чтобы он сам задавал числа в случайном порядке, а не чтобы их приходилось вводить собственноручно. Чтобы максимально оптимизировать и автоматизировать этот код. Так во-всяком случае это понимаю я. Может неправильно понимаю, т.к. как я уже говорил - нам толком ничего не объясняют...

[Ozzя]

Вот это и есть задание массива из случайных элементов.

for i:=1 to m do
   for j:=1 to n do
    a[i,j]:=random*100-50;

А вот так пришлось бы вводить вручную.

for i:=1 to m do
   for j:=1 to n do
    readln(a[i,j]);

[org777]

т.е. я типа все правильно сделал?..

[volvo]

Чтобы максимально оптимизировать и автоматизировать этот код

можно еще автоматически выбирать размеры матрицы, например от 2-х до 20 (меньше двух - бессмысленно, больше 20 - нельзя, ты ограничил тип именно 20-ю). Насколько я вижу, про размерность в задании ничего нет, это противоречить условию не будет.

[Ozzя]

В 1-й задаче должно быть "массива А, удовлетворяющих условию -2<a[i]<2

...
k:=0;
sum:=0;
for i:=1 to n do
  if (a[i]<2) and (a[i]>-2) then {выбираем только те элементы массива, которые удовл. условию}
    begin
       sum:=sum+a[i]; {Считаем их сумму...}
       k:=k+1;  {... и количество}
    end;
sum:=sum/k; {средн. ариф-кое}
...

Сообщение отредактировано: Ozzя - 2.12.2008 18:52

[org777]

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

[Ozzя]

Зад. 2.2

...
k:=0;
readln(n);
for i:=1 to n do
  begin
     readln(a); {вводим очередной элемент последовательности}
     if (not odd(i)) {четный порядковый номер } and (odd(a))  {четный элемент } then 
        k:=k+1;
  end;
...

[org777]

подправьте пожалуйста, если что не так...)))

Program org;
const nn=10;
var a:array[1..nn] of real;
i,n,k:integer; s:real;
begin
writeln('input n:');
readln(n);
k:=0;
s:=1;
for i:=1 to n do
  if (a[i]<2) and (a[i]>-2) then
    begin
       s:=s+a[i];
       k:=k+1;
    end;
s:=s/k;
writeln('s=',s:8:5);
readln;
end.

[Ozzя]

2.1

...
if (not odd(a)) {четное} and (frac(sqrt(a))=0) {квадрат числа} then 
  k:=k+1
...

[org777]

Зад. 2.2

это ты про задачу "..... имеющих четные порядковые номера и являющихся нечетными числами"?
Если да, то она мне не нужна))) Во 2 и 3 фотке мои задачи - только первые сверху))

[Ozzя]

s:=0;  // !!!

[org777]

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

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