|
|
#1 
DJ SkiPult @ 12.10.10 19:51 |
[пожаловаться]
|
|
нужн0 сделать 2 задачи по инфе. требуются блок схемы, ну или сразу пропись программы в консоли.
З.Ы. разумеется...
З.Ы.Ы. пива и семок не будет. п35дуйте в спортзал!
З.Ы.Ы.Ы. Брабл3й не моя личная армия
|
|
|
|
#5
vol41k @ 12.10.10 19:59 |
[пожаловаться]
|
|
[zashel_vzyal telak_vishel]
P.S.
#9, ny ty ponyal, da?
|
|
|
|
#15
vol41k @ 12.10.10 20:08 |
[пожаловаться]
|
|
В матрице поменяй местами строку с минимальным кол-вом ненулевых со строкой с макс. кол-вом отрицательных элементов.
chtotytneponyatnogo?
aftor m7dk
|
|
|
|
#18
aeik @ 12.10.10 20:13 |
[пожаловаться]
|
|
автор у3б4н ,не?
кто ты долбоящер из 364 школы?
ник п1зд4т
школяр должен уметь находить радикальный способ решения задачи по любому предмету
так что сиди сук4 и учи
студентам легче : не знаешь - плати ,не хочешь платишь - все равно сук4 платишь
так что сиди и отращивай яйца ибо до студенческой жизни тебе далеко
|
|
|
|
#19
aeik @ 12.10.10 20:14 |
[пожаловаться]
|
|
школяр хахатун ...
H@H@H@H@H@H@H Laughing
конь детектед..
|
|
|
|
#23
decimal @ 12.10.10 20:23 |
[пожаловаться]
|
|
uses crt;
const
n = 6;
type
TMx = array[1..n, 1..n] of integer;
procedure Print(mx : TMx);
var
i,j : byte;
begin
writeln; writeln;
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i,j]:2,' ');
end;
end;
procedure SpiralFill(var mx : TMx);
var
i,j,c, count : byte;
begin
i := 1;
j := 1;
c := 0;
count := 1;
repeat
while (j <= n - c) do begin mx[i,j] := count; inc(count); inc(j); end;
inc(i); dec(j);
while (i <= n - c) do begin mx[i,j] := count; inc(count); inc(i); end;
dec(j); dec(i);
while (j >= 1 + c) do begin mx[i,j] := count; inc(count); dec(j); end;
inc( c ); inc(j); dec(i);
while (i >= 1 + c) do begin mx[i,j] := count; inc(count); dec(i); end;
inc(j); inc(i);
until c > n div 2;
end;
var
m : TMx;
begin
clrscr;
SpiralFill(m);
Print(m);
readln;
end.
|
|
|
|
#24
сеньoр Помидор @ 12.10.10 20:26 |
[пожаловаться]
|
|
на втором курсе помню хотел удалить важные процессы через мскофиг на половине компов, уж очень напрягала эта йухня с решением подобных е64нутых заданий. так что - сиди и учи информатику двоечник, будь умнее меня хотя бы в этом плане 
|
|
|
|
#30
TeaMaster @ 12.10.10 21:03 |
[пожаловаться]
|
|
Автор, выкладывай задачки текстом. У меня твоя картинка не открывается, а я так хотел помочь!
|
|
|
|
#32
TeaMaster @ 12.10.10 21:09 |
[пожаловаться]
|
|
Ух ты, открылась задачка. Детский сад, автор. Ты б еще попросил за тебя хелловорлд написать.
"#30 инет бомж"
Телки норм открылись.
|
|
|
|
#35
TeaMaster @ 12.10.10 21:31 |
[пожаловаться]
|
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Решить: TButton;
procedure РешитьClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.РешитьClick(Sender: TObject);
var a:array[1..20] of integer; i,j:integer;
begin
for i := 1 to 20 do
a[i]:=random(100-50);
stringgrid1.Cells[0,0]:=inttostr(a[1]);
stringgrid1.Cells[1,0]:=inttostr(a[2]);
stringgrid1.Cells[2,0]:=inttostr(a[3]);
stringgrid1.Cells[3,0]:=inttostr(a[4]);
stringgrid1.Cells[3,1]:=inttostr(a[5]);
stringgrid1.Cells[3,2]:=inttostr(a[6]);
stringgrid1.Cells[3,3]:=inttostr(a[7]);
stringgrid1.Cells[3,4]:=inttostr(a[8]);
stringgrid1.Cells[2,4]:=inttostr(a[9]);
stringgrid1.Cells[1,4]:=inttostr(a[10]);
stringgrid1.Cells[0,4]:=inttostr(a[11]);
stringgrid1.Cells[0,3]:=inttostr(a[12]);
stringgrid1.Cells[0,2]:=inttostr(a[13]);
stringgrid1.Cells[0,1]:=inttostr(a[14]);
stringgrid1.Cells[1,1]:=inttostr(a[15]);
stringgrid1.Cells[2,1]:=inttostr(a[16]);
stringgrid1.Cells[2,2]:=inttostr(a[17]);
stringgrid1.Cells[2,3]:=inttostr(a[18]);
stringgrid1.Cells[1,3]:=inttostr(a[19]);
stringgrid1.Cells[1,2]:=inttostr(a[20]);
end;
end.
|
|
|
| Reply | | | |
|
|
|
