VPF::Pascal (динамическая память) - Форум программистов

Storm_tpv

Дата 16.12.2007, 23:38 (ссылка)

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

Загрузка ...

Новичок

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

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

нужно написать программу которая с помощью процедуры вычисляет произведени четных элементов находящихся на четных местах одномерного массива array [1..N] of real(N<=100) массив надо передовать в процедуру как параметр

Код


program p1;
type Vector1=array[1..100] of real;
Vector=^Vector1;
var i,n,p:integer;
a:^Vector;
procedure F(a:Vector; var p:integer);
var p1:integer;
begin
p1:=1;
for i:=1 to n do
begin
if a^[i]<>odd and
not(odd(i)) then
p1:=p1*a^[i];
end;
P:=P1;
end;
begin
new(a);
write('aaaaeoa eieee?anoai');
read(n);
for i:=1 to n do
read(a^[i]);
P(x,p);
writeln('p=',p);
dispose(a);
readln;
end.

но что-то не правильно. Не могли бы помочь кто сможет! очень надо до завтра сделать. Спсибо

Про теги не забывай...

Это сообщение отредактировал(а) volvo877 - 16.12.2007, 23:46

volvo877

Дата 16.12.2007, 23:45 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код


program p1;
type
  Vector1=array[1..100] of integer;
  Vector=^Vector1;
var
  i,n,p:integer;
  a:Vector;

procedure F(a:Vector; var p:integer);
var p1:integer;
begin
  p1:=1;
  for i:=1 to n do begin
    if not odd(a^[i]) and not(odd(i)) then
      p1:=p1*a^[i];
  end;

  P:=P1;
end;


begin
  new(a);
  write('aaaaeoa eieee?anoai');
  read(n);
  for i:=1 to n do read(a^[i]);
  F(a,p);
  writeln('p=',p);
  dispose(a);
  readln;
end.

Это сообщение отредактировал(а) volvo877 - 17.12.2007, 00:08

Storm_tpv

Дата 16.12.2007, 23:48 (ссылка)

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

Загрузка ...

Новичок

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

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

пишет что а не является переменной массива

Код


for i:=1 to n do read(a^[i]);

Добавлено через 6 минут и 6 секунд
и как же быть в такой ситуации?

Это сообщение отредактировал(а) Storm_tpv - 16.12.2007, 23:51

volvo877

Дата 17.12.2007, 00:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Хм... Интересно. FPC "проглотил" первый вариант. Исправлено, теперь работает и на Turbo Pascal-е...

Storm_tpv

Дата 17.12.2007, 00:29 (ссылка)

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

Загрузка ...

Новичок

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

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

все равно не работает.
Пишет одно и то же...
в этом цикле
че делать?

invalid qualifier

Код


for i:=1 to n do
read(^a[i]) ?

Это сообщение отредактировал(а) Storm_tpv - 17.12.2007, 00:35

Storm_tpv

Дата 17.12.2007, 00:48 (ссылка)

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

Загрузка ...

Новичок

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

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

все решено, нужно было галочку smile

volvo877

Дата 17.12.2007, 00:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Чего у тебя не работает-то? Ты НОВУЮ версию проверял, или еще старую? Компилятор какой?

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