Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.04.08;
Скачать: CL | DM;

Вниз

помогите пожалуйста решить задачку по 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);  //&#207;&#229;&#240;&#229;&#226;&#238;&#228; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#255; &#241;&#243;&#236;&#236;&#251; &#226; &#241;&#242;&#240;&#238;&#234;&#238;&#226;&#243;&#254; &#239;&#229;&#240;&#229;&#236;&#229;&#237;&#237;&#243;&#254;
memo1.Lines.Add (IntToSTR(s)); //&#226;&#251;&#226;&#238;&#228; &#240;&#229;&#231;&#243;&#235;&#252;-&#242;&#224;&#242;&#224;
end;

{&#194;&#251;&#231;&#251;&#226;&#224;&#254;&#249;&#224;&#255; &#239;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#224; (&#238;&#241;&#237;&#238;&#226;&#237;&#224;&#255;)}
begin // &#205;&#224;&#247;&#224;&#235;&#238; &#238;&#241;&#237;&#238;&#226;&#237;&#238;&#233; &#239;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#251;
val (edit1.Text,n,code);
   for i:=1 to 6 do //&#194;&#226;&#238;&#228; &#253;&#235;&#229;&#236;&#229;&#237;&#242;&#238;&#226; &#236;&#224;&#241;&#241;&#232;&#226;&#224;
   for j:=1 to 5 do
      begin
         number:=inputbox("&#194;&#226;&#238;&#228; &#253;&#235;&#229;&#236;&#229;&#237;&#242;&#238;&#226; &#236;&#224;&#241;&#241;&#232;&#226;&#224;","&#194;&#226;&#229;&#228;&#232; &#247;&#232;&#241;&#235;&#238;","0");
         val(number,b[i,j],code);
      end;
proiz(n,b); //&#206;&#225;&#240;&#224;&#249;&#229;&#237;&#232;&#229; &#234; &#244;&#243;&#237;&#234;&#246;&#232;&#232;
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); //&#206;&#225;&#240;&#224;&#249;&#229;&#237;&#232;&#229; &#234; &#244;&#243;&#237;&#234;&#246;&#232;&#232;


 
Сергей М. ©   (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]

Дана вещественная матрица А (6,5). Вычислить произведение всех отрицательных элементов матрицы. Вычисление произведения отрица-тельных элементов матрицы оформить в виде функции.
а это что?


 
Сергей М. ©   (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]);?


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

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


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


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


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

22 мин - долой)

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

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


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

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


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

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


 
Anatoly Podgoretsky ©   (2011-12-16 14:22) [25]


> а это?

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


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

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


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

тебе повезло


 
MBo ©   (2011-12-16 14:48) [28]

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



Страницы: 1 вся ветка

Текущий архив: 2012.04.08;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.012 c
2-1324367435
gvozdkoff
2011-12-20 11:50
2012.04.08
узнать запущен ли веб сервер


11-1242117482
QAZ
2009-05-12 12:38
2012.04.08
TreeView из списка Файлов


15-1323102788
Eraser
2011-12-05 20:33
2012.04.08
Какой хостинг посоветуете?


15-1323415640
Ega23
2011-12-09 11:27
2012.04.08
Для чего нужен Synchronzie


15-1323268620
tee_off
2011-12-07 18:37
2012.04.08
создание объекта внутри своего отдельного юнита