VPF::[Delphi] Задачка на массивы - Форум программистов

Alex103

Дата 16.11.2006, 10:25 (ссылка)

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

Загрузка ...

Опытный

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

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

Задание в прикрепленном файле!

Присоединённый файл ( Кол-во скачиваний: 6 )

5.JPG 14,70 Kb

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

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

Romikgy

Дата 16.11.2006, 12:40 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var A: array [1..7] of Double;
Z: array of Double;
i,q: LongInt;
P: Double;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  A[1]:=1;
  A[2]:=3.5;
  A[3]:=4;
  A[4]:=-0.8;
  A[5]:=1.9;
  A[6]:=5;
  A[7]:=13;
  ///////////////
  i:=0;
  for q:=1 to 7 do
  begin
    if ((2.0<=A[q]) and (A[q]<=10.0)) then
    begin
      Inc(i);
      SetLength(Z,i);
      Z[i-1]:=A[q];

    end;
  end;
  P:=1;
  for q:=0 to High(Z) do
   P:=P*Z[q];

  Writeln('Ishod massiv');
  for q:=1 to 7 do
  Write(A[q]:7:2);
  Writeln;

  Writeln('Proizvedenie=', P:8:2);

  Writeln('New massiv');
  for q:=0 to High(Z) do
  Write(Z[q]:7:2);
  Writeln;
  Readln;

end.

Это сообщение отредактировал(а) Romikgy - 16.11.2006, 12:49

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Kuvaldis

Дата 16.11.2006, 12:54 (ссылка)

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

Загрузка ...

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

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

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

Romikgy,
все правильно и грамотно, кроме этого, имхо

Код


  A[1]:=1;    
  A[2]:=3.5;    
  A[3]:=4;    
  A[4]:=-0.8;    
  A[5]:=1.9;    
  A[6]:=5;    
  A[7]:=13;

Думаю, что лучше было бы это при объявлении сделать smile

Код


var
   A: array [1..7] of Double = (1,  3.5,  4,  -0.8,  1.9,  5,  13);

Со следующим пунктом ты, думаю, тоже согласишься:
для быстродействия лучше было бы сначала выделить для массива Z максимальное количество памяти (равное размеру исходного массива), а потом в конце его урезать (меньшее количество операций с "кучей"). Это имхо, мож я чего и не знаю... smile

Это сообщение отредактировал(а) Kuvaldis - 16.11.2006, 12:58

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

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

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