Delphi для начинающих )))

Recorder=) · Сообщение **Recorder=)** » 17 ноя 2005, 16:59

Абориген писал(а):совет на будущее: пиши код, чтобы было понятно, где у тебя какие логические блоки (например, циклы с помощью табуляции, да и пустые строчки между блоками операций не помешают).
А то написал все в кучу, даже смотреть не приятно.

как ни пиши, на форуме прост форматируеца всё, и никаких абзацовне получаеца

Recorder=) · Сообщение **Recorder=)** » 17 ноя 2005, 17:27

Siquell писал(а):у тя дельфя то есть?

Recorder=) писал(а): результатом является вывод на экран массива А и элементов главной диагонали массива В, только вот они какие-то очень большие получаются...

а как думаешь сам?

Siquell · Сообщение **Siquell** » 17 ноя 2005, 19:11

оптимизировать не стал:

Код: Выделить всё

program lab3_1; 

{$APPTYPE CONSOLE} 

uses
SysUtils;
type
  MArray = array[0..9, 0..9] of real;
  Mreal = array[0..9] of real;
var a:MArray;
b:MArray;
c:Mreal;
i,g:byte;

begin
Randomize;
{ TODO -oUser -cConsole Main : Insert code here }
writeln('massiv A');
 for i:= 0 to 9 do
   begin
   for g:=0 to 9 do
     begin
     a[i,g]:=random(900)/100;
     write (a[i,g]:3:2);
     write(' ');
     end;
   writeln;
   c[i]:=1;
   end;

 for i:=0 to 9 do
   for g:=0 to 9 do
      if i<>g then c[i]:=c[i]*a[g,i];

 for i:=0 to 9 do
   for g:=0 to 9 do
     begin
     b[i,g]:= a[i,g];
     if i=g then b[i,i]:=c[i];
     end;

writeln('massiv b');
for i:=0 to 9 do
  begin
  for g:=0 to 9 do
   begin
   write (b[i,g]:3:2);
   write(' ') ;
   end;
   writeln;
  end;
readln;
end.

Recorder=) · Сообщение **Recorder=)** » 19 ноя 2005, 23:47

Recorder=) писал(а): writeln('massiv b');
k:=1;
for i:=0 to 9 do
begin
for g:=0 to 9 do
.................end;

в этом собственно моя ошибка и заключалась...
назначаю переменную к = 1, до цикла....

вот...

Siquell · Сообщение **Siquell** » 20 ноя 2005, 11:02

Recorder=) писал(а): в этом собственно моя ошибка и заключалась...
назначаю переменную к = 1, до цикла....
вот...

мой вариант то проверил? я там по другому сделал малец

Recorder=) · Сообщение **Recorder=)** » 20 ноя 2005, 13:37

Siquell писал(а):
Recorder=) писал(а): в этом собственно моя ошибка и заключалась...
назначаю переменную к = 1, до цикла....
вот...
мой вариант то проверил? я там по другому сделал малец

да, я посмотрел....

тож оригинально....но больше, и мы рандомайз ещё не проходили)

Siquell · Сообщение **Siquell** » 20 ноя 2005, 14:20

Recorder=) писал(а):мой вариант то проверил? я там по другому сделал малец

да, я посмотрел....
тож оригинально....но больше, и мы рандомайз ещё не проходили)[/quote]
да это не обязательно рандомайз то.. у тя просто постоянно одни и те же числа будут.. а если использовать рандом.. то они при каждом перезапуске меняются....
кста.. кто у тя ведёт инфу?

Recorder=) · Сообщение **Recorder=)** » 20 ноя 2005, 14:44

Siquell писал(а):
Recorder=) писал(а):мой вариант то проверил? я там по другому сделал малец
да, я посмотрел....
тож оригинально....но больше, и мы рандомайз ещё не проходили)

да это не обязательно рандомайз то.. у тя просто постоянно одни и те же числа будут.. а если использовать рандом.. то они при каждом перезапуске меняются....
кста.. кто у тя ведёт инфу?[/quote]

ты не знаешь)))с кафедры биомедецинской электроники.

ясам-то не знаю?)))

Recorder=) · Сообщение **Recorder=)** » 13 янв 2006, 04:09

тут у меня мега-авантюра в голове возникла... :!: :!: :!:

всвязи с чем хочу узнать...

в двух словах...

мне нужен кусок кода который бы отправлял какую-нибудь переменную на е-мэйл)))
еси вопрос глупый не обижайтесь...яж лол

Quos · Сообщение **Quos** » 13 янв 2006, 13:13

Recorder=) писал(а):тут у меня мега-авантюра в голове возникла... :!: :!: :!:

всвязи с чем хочу узнать...

в двух словах...

мне нужен кусок кода который бы отправлял какую-нибудь переменную на е-мэйл)))
еси вопрос глупый не обижайтесь...яж лол

Хе, енто многа как можна сделать =)
Самый простой это взять компонент TidSMTP с закладки Indy Clients
заполнить пару полей и в путь.

или можна TidTCP подконнектиться к серверу обменяться с ним заросами, но для ентого иди читай RFC SMTP протокола =)

pappy · Сообщение **pappy** » 13 янв 2006, 17:12

А вот это был глупый вопрос ибо такие вопросы задают хаЦкеры неудачники.......!!!!! Если б был админом забанил тя на пару дней не из-за личной неприязни а из принципа....*( ищи в НеТЕ там есть!!!!)

Quos · Сообщение **Quos** » 13 янв 2006, 19:30

pappy писал(а): ищи в НеТЕ там есть!!!!)

вот енто реально...
Обычно, если у меня возникают какие вопросы, я спрашиваю на нормальных, ака специализированных форумах =)

че так сложно зайти на vr-online.ru ? На сайт легендарного Хорифика(хто читал хацкер тот знает -)) правда там тухло щас стало...
а вообще самый реальный сайт по делфям - delphimaster

Recorder=) · Сообщение **Recorder=)** » 14 янв 2006, 00:16

pappy писал(а):А вот это был глупый вопрос ибо такие вопросы задают хаЦкеры неудачники.......!!!!!

1)наврятли я "хаЦкер"...мне прост над сделать одну интересную вещь

pappy писал(а): Если б был админом забанил тя на пару дней не из-за личной неприязни а из принципа....*(

2)по-моему в этой теме и обсуждаюца такие вопросы...типа для начинающих)))её кстати я создал
:pusto:

pappy писал(а):ищи в НеТЕ там есть!!!!)

3)на любой вопрос можно так ответить...яже просто спросил у посетителей форума...

P.S. прост ради любопытства...ты сам знаешь?

P.P.S. в программировании я не король...почему и спрашиваю...в том что вопрос глупый по сути понимаю...но есиб знал не спрашивал.

Recorder=) · Сообщение **Recorder=)** » 14 янв 2006, 00:17

Quos писал(а):
pappy писал(а): ищи в НеТЕ там есть!!!!)
вот енто реально...
Обычно, если у меня возникают какие вопросы, я спрашиваю на нормальных, ака специализированных форумах =)

че так сложно зайти на vr-online.ru ? На сайт легендарного Хорифика(хто читал хацкер тот знает -)) правда там тухло щас стало...
а вообще самый реальный сайт по делфям - delphimaster

еси честно...вопрос был адресован либо тебе либо окси...

мыж мирэашники должны друг друга выручать)))

Quos · Сообщение **Quos** » 14 янв 2006, 00:29

[quote="Recorder=)еси честно...вопрос был адресован либо тебе либо окси...

мыж мирэашники должны друг друга выручать)))[/quote]

=) стопудов