VPF::[Delphi] Преобразовать массив! - Форум программистов

Alex103

Дата 1.11.2006, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: -1
Всего: нет

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

Delphi 7 тоесть Object Pascal.

Это сообщение отредактировал(а) Alex103 - 1.11.2006, 20:05

--------------------

Мой адресс не дом и не улица, мой адресс WWW

sergejzr

Дата 1.11.2006, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

M
sergejzr

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

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Guedda

Дата 1.11.2006, 20:41 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

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

Код


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;

Фсё

--------------------

Ll 2

Kuvaldis

Дата 1.11.2006, 20:42 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

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 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

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

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

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

--------------------

Ll 2

Kuvaldis

Дата 1.11.2006, 20:52 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

Guedda,

Цитата

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

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

Код


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

Цитата

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

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

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

Это сообщение отредактировал(а) Kuvaldis - 1.11.2006, 20:53

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

apook

Дата 1.11.2006, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 794
Регистрация: 12.7.2006

Репутация: 10
Всего: 23

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

Далее что-то вроде
//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
........

--------------------

Мои руки из дуба, голова из свинца ну и пусть ...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »