Мастера 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]

MBo (2011-12-16 14:48:00) [1]
>alatiel
на rsdn ответил

Медвежонок Пятачок (2011-12-16 14:34:00) [2]
тебе повезло

alatiel (2011-12-16 14:23:00) [3]
у меня не выдает ошибку

Anatoly Podgoretsky (2011-12-16 14:22:00) [4]

> а это?

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

Сергей М. (2011-12-16 14:18:00) [5]
Ну тогда и торопиться некуда.
Бросай это гнилое дело или садись за учебники, если по-прежнему оцениваешь шансы сдать как ненулевые)

alatiel (2011-12-16 14:15:00) [6]
а я и не говорю, что сдам

Сергей М. (2011-12-16 14:14:00) [7]

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

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

22 мин - долой)

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

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

Медвежонок Пятачок (2011-12-16 14:14:00) [8]
надо слушаться маму, чистить зубы и не пропускать уроки.

alatiel (2011-12-16 14:13:00) [9]
а как надо?инпутбокс это e:=e+' '+ IntToStr(a[i,j]);?

Медвежонок Пятачок (2011-12-16 14:12:00) [10]
тем более не нужны инпутбоксы.
типа они знают как задать.

alatiel (2011-12-16 14:11:00) [11]
я не знаю как матрицу задать..

Медвежонок Пятачок (2011-12-16 14:08:00) [12]
сказано, что матрица уже дана.
и ничего не сказано про инпутбоксы.
зачем ты их вставила в программу?

Сергей М. (2011-12-16 14:08:00) [13]
А где комментарии к коду ?

alatiel (2011-12-16 14:06:00) [14]
Дана вещественная матрица А (6,5). Вычислить произведение всех отрицательных элементов матрицы. Вычисление произведения отрица-тельных элементов матрицы оформить в виде функции.
а это что?

Сергей М. (2011-12-16 14:06:00) [15]
потому что уже 15 мин прошло, а ты так и не дотумкала что решение задачи начинается с ее ПОСТАНОВКИ.
Нет постановки - нет решения.

alatiel (2011-12-16 14:05:00) [16]
почему это?

Сергей М. (2011-12-16 14:04:00) [17]

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

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

Сергей М. (2011-12-16 14:03:00) [18]

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

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

Медвежонок Пятачок (2011-12-16 14:02:00) [19]
а ты сильнее вводи.
тогда посчитает.

alatiel (2011-12-16 14:01:00) [20]
я пишу в теме для новичков,что там крякозябры я не увидела,мне нужно сдать работу через час поэтому и написала быстро не просмотрев
запускаю мне пишет введите числа я ввожу и снова пишет введите числа,ничего не посчитав

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

Наверх

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