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

← →
Alatiel (2011-12-16 13:48) [0]

Дана вещественная матрица А (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]<0 then s:=a[j,i] * s ;
end;

//str(s,sum); //Ïåðåâîä çíà÷åíèÿ ñóììû â ñòðîêîâóþ ïåðåìåííóþ
memo1.Lines.Add (IntToSTR(s)); //âûâîä ðåçóëü-òàòà
end;

{Âûçûâàþùàÿ ïðîãðàììà (îñíîâíàÿ)}
begin // Íà÷àëî îñíîâíîé ïðîãðàììû
val (edit1.Text,n,code);
for i:=1 to 6 do //Ââîä ýëåìåíòîâ ìàññèâà
for j:=1 to 5 do
begin
number:=inputbox("Ââîä ýëåìåíòîâ ìàññèâà","Ââåäè ÷èñëî","0");
val(number,b[i,j],code);
end;
proiz(n,b); //Îáðàùåíèå ê ôóíêöèè
end;
end.

← →
Сергей М. © (2011-12-16 13:52) [1]

У нее выходной - вот она и не работает.
Или ты о чем ?)

← →
Медвежонок Пятачок © (2011-12-16 13:52) [2]

надо чтобы она работала. а то накроются каникулы.

← →
alatiel (2011-12-16 13:54) [3]

Очень смешно,я помощи прошу,а не насмешек

← →
Медвежонок Пятачок © (2011-12-16 13:56) [4]

я помощи прошу,а не насмешек

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

← →
alatiel (2011-12-16 13:57) [5]

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:58) [6]

это конечно функция.

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

← →
Сергей М. © (2011-12-16 13:58) [7]

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

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

← →
Медвежонок Пятачок © (2011-12-16 13:58) [8]

... впрочем она все равно возвращает ничего.

← →
alatiel (2011-12-16 14:01) [9]

я пишу в теме для новичков,что там крякозябры я не увидела,мне нужно сдать работу через час поэтому и написала быстро не просмотрев
запускаю мне пишет введите числа я ввожу и снова пишет введите числа,ничего не посчитав

← →
Медвежонок Пятачок © (2011-12-16 14:02) [10]

а ты сильнее вводи.
тогда посчитает.

← →
Сергей М. © (2011-12-16 14:03) [11]

> ничего не посчитав

А что она должна считать-то ? Мух на потолке ?

← →
Сергей М. © (2011-12-16 14:04) [12]

> мне нужно сдать работу через час

При таком старании не сдашь. Даже не пыжься.

← →
alatiel (2011-12-16 14:05) [13]

почему это?

← →
Сергей М. © (2011-12-16 14:06) [14]

потому что уже 15 мин прошло, а ты так и не дотумкала что решение задачи начинается с ее ПОСТАНОВКИ.
Нет постановки - нет решения.

← →
alatiel (2011-12-16 14:06) [15]

← →
Сергей М. © (2011-12-16 14:08) [16]

А где комментарии к коду ?

← →
Медвежонок Пятачок © (2011-12-16 14:08) [17]

сказано, что матрица уже дана.
и ничего не сказано про инпутбоксы.
зачем ты их вставила в программу?

← →
alatiel (2011-12-16 14:11) [18]

я не знаю как матрицу задать..

← →
Медвежонок Пятачок © (2011-12-16 14:12) [19]

тем более не нужны инпутбоксы.
типа они знают как задать.

← →
alatiel (2011-12-16 14:13) [20]

а как надо?инпутбокс это e:=e+" "+ IntToStr(a[i,j]);?

надо слушаться маму, чистить зубы и не пропускать уроки.

> не знаю как матрицу задать

Константой задай, раз она "дана".

22 мин - долой)

Осталось менее 40-ка мин, а воз и ныне там.

Будешь продолжать упираться что сдашь ?)

← →
alatiel (2011-12-16 14:15) [23]

а я и не говорю, что сдам

Ну тогда и торопиться некуда.
Бросай это гнилое дело или садись за учебники, если по-прежнему оцениваешь шансы сдать как ненулевые)

> а это?

а это должно дать ошибку компиляции, правда если я правильно посчитал begin end
Больно фигурно они используются, наверно что бы запутать

← →
alatiel (2011-12-16 14:23) [26]

у меня не выдает ошибку

тебе повезло

>alatiel
на rsdn ответил

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