Тупые процеДуры и ФУнкции

[Mary Yu]

Надо описать выражение

http://img399.imageshack.us/my.php?image=01bg5.jpg
вот старая прога
http://img399.imageshack.us/my.php?imag ... 146br3.jpg
а надо описать
в процеДурах и ФУнкциях(лучше традиционных)

Ктонить опишите мне!Не успеваю!Спать хочу,3ое суток сплю по 4 часа!
Чувствую себя трупом..

[Serge_Bliznykov]

Программа в картинках.. Это круто ;-)
Мари, ну кто же будет программу с картинку набирать!?!?
Кидайте Вашу программу прямо сюда (только тэги [ CODE] ..ваша программа [ /CODE]
не забудьте...

[Mary Yu]

Программа в картинках.. Это круто ;-)
Мари, ну кто же будет программу с картинку набирать!?!?
Кидайте Вашу программу прямо сюда (только тэги [ CODE] ..ваша программа [ /CODE]
не забудьте...

Спаси за совет!
Кому надо тот и наберет)))
Если б приспичило-то набрала.
К программному черту их!я разобралась!
Помогите лучше с матрицами

Задание намбэ уан:
1.Дан целочисленный масив размера N.Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов,а затем-все нечетные числа в порядке убывания их индексов.
-||- ту:
2.Дан массив ненулевых целых чисел размера N.Проверить образуют ли его элементы геометрическую прогрессию,если образуют прогрессию-вывети знаментель,если нет-вывести 0.

Заранее ОРИГАТО годзаймасу!








ну такая тупая в матрицах=^^=

[somewhere]

Кому надо тот и наберет)))

Сильно сказано...)) **задумался кому это надо**

[Mary Yu]

иэх..снова придетцо разбираться самой..Т.Т грустно

[Serge_Bliznykov]

1.Дан целочисленный масив размера N.Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов,а затем-все нечетные числа в порядке убывания их индексов.

Код: Выделить всё

const N = 10;
var
  A : array[1..N] of integer;
  i : integer;
begin
  Randomize;
  for i:=1 to N do A[i] := Random(10); {заполнили сл.числами} 

  {выведем массив на экран - просто для красоты :-) }
  for i:=1 to N do Write(A[i]:4);
  WriteLn;

  {основная программа}
  WriteLn('Чётные (в порядке возрастания индексов');
  for i:=1 to N do
    if Not odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
    
  WriteLn('Нечётные (в порядке уменьшения индексов');
  for i:=N downto 1 do
    if odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
end.

const N = 10;
var
  A : array[1..N] of integer;
  i : integer;
begin
  Randomize;
  for i:=1 to N do A[i] := Random(10); {заполнили сл.числами} 

  {выведем массив на экран - просто для красоты :-) }
  for i:=1 to N do Write(A[i]:4);
  WriteLn;

  {основная программа}
  WriteLn('Чётные (в порядке возрастания индексов');
  for i:=1 to N do
    if Not odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
    
  WriteLn('Нечётные (в порядке уменьшения индексов');
  for i:=N downto 1 do
    if odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
end.

[Serge_Bliznykov]

2.Дан массив ненулевых целых чисел размера N.Проверить образуют ли его элементы геометрическую прогрессию,если образуют прогрессию-вывети знаментель,если нет-вывести 0.

начало из предыдущей задачи...
суть в следующем:

Код: Выделить всё

var
   P : extended;
...
 P := 0;
 if A[1]<>0 then P := A[2] / A[1];

 for i:=3 to N do begin
  if A[i-1] = 0 then 
  begin
     P:=0;
     break;
  end;
  if abs(P-(A[i] / A[i-1]))>0.0001 then {это сравнение вещественных чисел - через 
                                     заданную точность!}
     begin
        P:=0;
        break;
     end;
 end;
 WriteLn('Знаменатель = ',P:10:4);

только массив рекомендую заполнять ручками - вероятность того, что числа случайным образом образуют геометрическую прогрессию чрезвычайно катастрофически мала - постоянно будете получать знаменатель = 0 ....

[Serge_Bliznykov]

и проверку на ноль можно убирать - в условии "Дан массив ненулевых целых чисел"

[Mary Yu]

if Not odd(A) then WriteLn('A[',i:1,'] = ',A:1);

ЧТО ТАКОЕ "odd?"
я же не разбираюсь в матрицах...

[Serge_Bliznykov]

ай-й.. а F1 нажать? А книжки умные почитать?!

и, кстати, никакого отношения к матрицам функция ODD - не имеет!
Эта функция возращает True, если переданное в неё число (параметер) НЕЧЁТНОЕ!

ODD(X) можно заменить на ((X mod 2)=1)