Одномерные массивы, Помогите, пожалуйста Опции

[goosberry]

1. В списке указаны суммы вкладов n вкладчиков. Расположить эти суммы в порядке убывания сумм вкладов.
И вот что у меня получилось

 program zadacha;
uses crt;
type sum=array [1..100] of integer;
var vklad:sum;
    i,j,n,k:integer;
begin
     writeln('vvedite razmernost massiva');
     readln(n);
     for i:=1 to n do begin
     writeln('Vvedite summu vklada   ', i, '  vkadchika');
     readln(vklad[i]); end;
     for i:=1 to n-1 do
         for j:=i+1 to n do
             if vklad[i]<vklad[j] then
                begin
                     k:=vklad[j];
                     vklad[j]:=vklad[i];
                     vklad[i]:=k;
                end;
     writeln;
     writeln('Sort. summa vkladov:');
     for i:=1 to n do writeln(vklad[i]);
readkey;
end.

2. Элементы массива y(20) сформированы следующим образом: yi= 2tg(i^2), если i-чётное, cos^2(i/2)-1, если i кратно 5, i^2-10, во всех других случаях.
Найти максимальный и минимальный элементы массива y и поменять их местами.

Я вот начала писать, но что-то такая ерунда, наверное получается... я что-то с этим i элементом не очень поняла...

 
program zadacha;
uses crt;
type M=array [1..20] of real;
var
   y:M;
   i:integer;
begin
     for i:=1 to 20 do begin
     writeln('Vvedite ', i, ' element massiva');
     readln(y[i]);
     if y[i]=i div 2 then y[i]:=2*(sin(i*i)/cos(i*i));
     if y[i]=i div 5 then y[i]:=sqr(cos(i/2))-1 else y[i]:=sqr(i)-10;
   writeln(y[i]);
   end;
end.

Сообщение отредактировано: goosberry - 11.04.2009 12:19

[Айра]

Вообще, как бы одна тема - одна задача, но в первой я ошибок не нашла) Только я циклы сортировки обычно такими делала

     for i:=1 to n-1 do
         for j:=n downto i do

По второй: тебе не нужно вводить элементы вручную, нужно проверять индексы и выполнять соответствующее присваивание:

   for i:=1 to 20 do begin
     if i mod 2 = 0 then y[i]:=2*(sin(i*i)/cos(i*i))  //это если индекс четный (т.е. mod-остаток от деления равен 0)
     else if i mod 5 = 0 then y[i]:=sqr(cos(i/2))-1 //если кратен 5
            else y[i]:=sqr(i)-10; //остальное
   writeln(y[i]:6:4);
   end;

Только не понятно, что делать с 10 и 20, они ж обоим условиям удовлетворяют..

Сообщение отредактировано: Айра - 11.04.2009 0:23

[goosberry]

Спасибо . Я вот тоже задалась вопросом что же делать с 10 и 20...

[goosberry]

program zadacha;
uses crt;
type M=array [1..20] of real;
var
   y:M;
   i:integer;
   min, max,p:real;
begin
     clrscr;
     for i:=1 to 20 do
     begin
          if i mod 2=0 then y[i]:=2*(sin(i*i)/cos(i*i));
          if i mod 5=0 then y[i]:=sqr(cos(i/2))-1 else y[i]:=sqr(i)-10;
     end;
   max:=y[1];
   for i:=2 to 20 do
   if max<y[i] then max:=y[i];
   writeln ('max= ', max:3:3);
   min:=y[1];
   for i:=2 to 20 do
   if min>y[i] then min:=y[i];
   writeln ('min= ', min:3:3);
   for i:=1 to 20 do
   begin
        p:=min;
        if y[i]=min then y[i]:=max;    // я знаю, что тут не так
        if y[i]=max then y[i]:=p;        // но что-то не догадаюсь как по-другому осуществить замену 
        writeln(y[i]:5:5);
   end;
readkey;
end. 

Сообщение отредактировано: goosberry - 11.04.2009 12:00

[Lapp]

          if i mod 2=0 then y[i]:=2*(sin(i*i)/cos(i*i));
          if i mod 5=0 then y[i]:=sqr(cos(i/2))-1 else y[i]:=sqr(i)-10;
     end;

- здесь тоже неправильно. Внимательно посмотри, как у Айры сделано.

По поводу твоего вопроса.. Запоминать нужно не значения, а их индексы. Причем, можно и в одном цикле (сделай min и max целыми):

   max:=1;
   min:=1;
   for i:=2 to 20 do begin
      if y[min]>y[i] then min:=i;
      if y[max]<y[i] then max:=i
   end;
   writeln ('min= ', y[min]:3 :3,'   max= ', y[max]:3 :3);

Тогда змена будет делаться (ессно, без всякого цикла) вот так:

   p:=y[min];
   y[min]:=y[max];
   y[max]:=p;

[goosberry]

Всё, разобралась. Большое спасибо!!!