Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

помогите пожалуйста решить задачку по delphi

Страницы: < 1 2
Alatiel © (2011-12-16 13:48:00)
Дана вещественная матрица А (6,5). Вычислить произведение всех отрицательных элементов матрицы. Вычисление произведения отрица-тельных элементов матрицы оформить в виде функции.
вот я написала программу и она не работает..
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type
matr=array [1..6,1..5]of integer;
var // Îïèñàíèå ïåðåìåííûõ îñíîâíîé ïðîãðàììû
i,j,code,s,n,m:integer;
number, e:string;
b:matr;
function proiz(n:integer;a:matr):integer;
var
i,j,s:integer; //îïèñàíèå ïåðåìåííûõ ôóíêöèè
sum:string;
begin
s:=1;
for i:=1 to 6 do //Âû÷èñëåíèå â öèêëå ñóììû do
begin
e:='';
for j:=1 to 5 do
begin
e:=e+' '+ IntToStr(a[i,j]);
end;
If a[i,j]

Медвежонок Пятачок (2011-12-16 13:58:00) [21]
... впрочем она все равно возвращает ничего.

Сергей М. (2011-12-16 13:58:00) [22]

> я помощи прошу

Вот именно - помощи !
И при этом имеешь наглость плюнуть безобразно форматированный код с "крякозябрами" в комментариях, даже не удосужившись конкретизировать что там и как "не работает" и как должно работать.
Нате, мол, вам шматок дерьма, пожуйте и сделайте мне из него нахаляву конфетку)

Медвежонок Пятачок (2011-12-16 13:58:00) [23]
это конечно функция.

а вот это - игнорирование её результата
proiz(n,b); //Îáðàùåíèå ê ôóíêöèè

alatiel (2011-12-16 13:57:00) [24]
function proiz(n:integer;a:matr):integer;
var
i,j,s:integer;
sum:string;
begin
s:=1;
for i:=1 to 6 do
begin
e:='';
for j:=1 to 5 do
begin
e:=e+' '+ IntToStr(a[i,j]);
end;
If a[i,j]<0 then s:=a[j,i] * s ;
end;
а это?

Медвежонок Пятачок (2011-12-16 13:56:00) [25]
я помощи прошу,а не насмешек

надо писать другую программу.
в этой нет функции. только процедура.

alatiel (2011-12-16 13:54:00) [26]
Очень смешно,я помощи прошу,а не насмешек

Сергей М. (2011-12-16 13:52:00) [27]
У нее выходной - вот она и не работает.
Или ты о чем ?)

Медвежонок Пятачок (2011-12-16 13:52:00) [28]
надо чтобы она работала. а то накроются каникулы.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »