Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Преобразовать массив!

Автор: Alex103 1.11.2006, 19:23

Преобразовать массив Y в массив V по формуле Vj=cosYj (j=1..9).
Офрмить подпрограмму преобразования массива Y в массив V.

Delphi 7 тоесть Object Pascal.

Автор: sergejzr 1.11.2006, 19:27

M
sergejzr

Уже лучше, но где название языка программирования? На чём писать?

Автор: Guedda 1.11.2006, 20:41

Вроде ничего сложного нет.

Код


const
  Y : array[0..8] of Integer = (1,5,3,4,3,4,6,4,1); //подставишь любые числа
var
  V : array[0..8] of Integer;
  i : Integer;
begin
  for i := 0 to 8 do
    V[i] := cos(Y[i]);
end;

Фсё

Автор: Kuvaldis 1.11.2006, 20:42

Alex103,

Код


program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;

const
    COL = 3;

type
    mas = array [1..COL] of real;
//******************************************************************************
procedure GetY(const A : mas; var B : mas);
var
  i : integer;
begin
  for i := 1 to COL do
     B[i] := cos( A[i] );
end;
//******************************************************************************
var
    Y, V : mas;

    i : integer;
begin   
    for i := 1 to COL do
    begin
        write('Y[', i, '] = ');
        read(Y[i]);
    end;

    GetY(Y, V);

    Writeln('V is : ');
    for i := 1 to COL do
        writeln(V[i] : 0 : 2);

    readln;
    readln;
end.

Добавлено @ 20:43
Guedda,
Там нужно подпрограмму, это для новичков бывает сложно smile

приходится пользоваться секцией type

Автор: Guedda 1.11.2006, 20:44

Kuvaldis, что-то ты замутил сильно )))) smile

Добавлено @ 20:46
Kuvaldis, а если сделать не глобальные переменные, а внутри функции?

Добавлено @ 20:47
Kuvaldis... И ещё ;)
Если они проходят только подпрограммы - о type ещё и речи идти не могёт ))))

Автор: Kuvaldis 1.11.2006, 20:52

Guedda,

Цитата

Если они проходят только подпрограммы - о type ещё и речи идти не могёт ))))

в свое время нас как раз и просветили о type при прохождении массивов для передачи в фукнции.
Возможно, ты упустил, что Pascal считает два таких переменных переменными разного типа

Код


А : array [1..COL] of real;
 В: array [1..COL] of real;

Цитата

Kuvaldis, а если сделать не глобальные переменные, а внутри функции?

вот здесь сыграл злую шутку с++ smile

если для main() переменные подобным образом объявить, то они локальные. Тут же main() нет, но все равно, полезно для понимания

Автор: apook 1.11.2006, 21:31

У тебя в принцыпе вопрос один был из нескольких частей

Далее что-то вроде
//2.

Код


printf("\nStep 2 ...\n\n");
// наименьший элемент массива V
for(c=0, i=1; i<10; i++)
{
if(V[c] <V[i]);
else    c++;
}
//c - индекс наименьшего элемента массива V

в Cl
........