Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi]Модули 
:(
    Опции темы
Clasteruga
Дата 16.10.2008, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Создать новый модуль предназначенный для использования в качестве самодельной «стандартной» библиотеки, в котором определена функция вычисления произведения n чисел. Вызвать этот модуль из другого проекта.

Вообщем надо сделать так что бы в модуле запрашивалось кол-во чисел для поизведения, а затем ввести числа. К примеру мы задаём что нам надо вычислить произведение 3 чисел, а затем вводим эти числа 2*7*8. Реализовать это как функцию. Я уже сам попробую вставлю в модуль и подключу к программею

ПЛИИИИЗ ПОМОГИТЕ!
PM MAIL   Вверх
morpheyushka
Дата 16.10.2008, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


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

Репутация: 1
Всего: 8
сделай проще

Код

function ProizvedNChisel(A: array of integer): Integer;


и не нужно передавать количество чисел.



--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Alexeis
Дата 16.10.2008, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
kemiisto
  Дата 18.10.2008, 00:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



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

Репутация: 16
Всего: 160
Сама программа:
Код

program Project1;

{$APPTYPE CONSOLE}

uses
  Unit1 in 'Unit1.pas';

var
  n, i: Integer;
  A: Massiv;

begin
  Write('Kol-vo chisel = ');
  Readln(n);
  SetLength(A, n);
  for i := 0 to Length(A) - 1 do
  begin
    Write('Chislo ', i + 1, ' = ');
    Readln(A[i]);
  end;
  Writeln('Proizvedenie chisel = ', Product(A):10:9);
  Readln;
end.


Модуль с нужной тебе функцией:
Код

unit Unit1;

interface

type Massiv = array of Real;

function Product(A: Massiv): Real;

implementation

function Product(A: Massiv): Real;
var
  i: Integer;
  p: Real;
begin
  p := 1;
  for i := 0 to Length(A) - 1 do
    p := p * A[i];
  Result := p;
end;

end.


Проект прикрепил.

Цитата(Clasteruga @  16.10.2008,  18:55 Найти цитируемый пост)
Вот дали тока не могу понять!! помогите на Делфи переделать

Код, вроде на С. Но переделывать его я не стал, т.к. он не соотвествует заданию. Здесь нет вызова функции из модуля.

Добавлено @ 00:36
Clasteruga, а зачем продублировали? Это не есть гуд. smile 

Это сообщение отредактировал(а) kemiisto - 18.10.2008, 00:37

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Clasteruga.zip 3,22 Kb


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
Clasteruga
Дата 19.10.2008, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Замечательно большое спасибо!!! Вот только у меня не получаеться в делфи сделать это визуально, с помощью компонентов надо, может подскажите???
PM MAIL   Вверх
Clasteruga
Дата 20.10.2008, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Ребята ну поомгите сделать визуйльно!  smile 
PM MAIL   Вверх
kemiisto
Дата 20.10.2008, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



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

Репутация: 16
Всего: 160
Цитата(Clasteruga @  20.10.2008,  18:06 Найти цитируемый пост)
Ребята ну поомгите сделать визуйльно! 

Проект (Delphi 2009) прикрепил. Смотри, разбирайся. Будут вопросы - пиши. smile  

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  GUI.zip 8,85 Kb


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
Clasteruga
Дата 20.10.2008, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Огромное спасибо, выручили. Буду разбераться!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0803 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.