Разбор решений, Для тех, кто сечет в ПАСКАЛЕ Опции

[Bourn]

Команда Саратовского ГУ - чемпионы ICPC, i. e. абсолютные чемпионы мира!!!

можно почитать их блог с некоторыми задачками
http://blogs.mail.ru/community/icpc/
+ может выкинуть наши задания с олимпиады?

[Darth_Beleg]

можно почитать их блог

Там нет задач финала - это так, междусобойчик. Рекомендую всем обратить внимание на I.

может выкинуть наши задания с олимпиады?

Какие?

[Bourn]

Там нет задач финала - это так, междусобойчик. Рекомендую всем обратить внимание на I.


Какие?

1)само собой нет, это просто их блог
2)ну с олимпиады НГТУ

[Darth_Beleg]

http://applmath.jino-net.ru/files/nstu2006.rar

[Bourn]

http://applmath.jino-net.ru/files/nstu2006.rar

напиши плиз прогу Б1, а то мне так кажеться там условие не корректно поставлено, из за этого я плохо выступил

[Darth_Beleg]

Собственно, все задачи готовы.

[hmm3rulez]

На материнской плате первого пентиума 150 два ряда из четырёх "пап", возле которых написано "USB 1". Какой стороной одевать на эти "папы" "мамы" USBишного "выкидыша", чтобы не сгорела флэшка?

[RAT01]

ОФФТОП

На материнской плате первого пентиума 150 два ряда из четырёх "пап", возле которых написано "USB 1". Какой стороной одевать на эти "папы" "мамы" USBишного "выкидыша", чтобы не сгорела флэшка?

Там должна быть 1 с одной стороны(ключ).
А вообще читай мануал материнки, в те время общего стандарта на УСБ не было, так что можно спокойно спалить контролер(я уже экспериментировал).
Советую купить переходник PCI-USB 2.0 и побыстрее будет, и всяко надежней, тока с дровами, иначе запаришся в инете искать.

[Bourn]

1)тему с программированием объеденить надо(всетаки задача)
2)без графа? мда, ты таким образом даже точку не выведешь на экран , только если текстом задавать анимацию

[Irh]

Ну, можно и без графа точку вывести. Видеопамять, видеорегистры, 10 прерывание, VesaBE, в конце концов...

[Bourn]

Ну, можно и без графа точку вывести. Видеопамять, видеорегистры, 10 прерывание, VesaBE, в конце концов...

это ясно , можно и асм код вставить , тока как он вобще это объяснять будет...

[Kshishtov]

Да нет, есть такая фигня наз-ся graphs(!!!s на конце)
Она иногда исп-зя(в книжки видел)
А мне надо graph(!!!!без S!!!)
Если кто может,скиньте еще какой-нить анимации простенькой.Можно и сложненькой, но лучше попроще.+ с меня.
Еще задача по типизированым файлам:
Дан файл H1, элементами которго являются массивы целых чисел a0, a1,...,a4.Записать в файл H2 последовательность массивов a0 a1,a1 a2, a2 a3, a3 a4, a4 a0.

исх.данные
1 2 3 4 2
5 6 7 8 1
9 10 11 12 1
3 3 2 2 2

Блин, тут плохо получаются числа выстроить!Более понятн в файле прикрепленном.

Прикрепленные файлы

 _______.txt ( 328 байт ) Кол-во скачиваний: 98

 

[gamecreator]

А можно пример ответа?

[Kshishtov]

Знал бы, не выкладывал.ПРосто опять хочу получить ЗАЧет за чужой счет, ибо сам с паскалем не дружу.

[gamecreator]

Знал бы, не выкладывал.

не понял твоих слов .
не говори загадками .
я спросил есть ли у тебя пример ответов .

[Bourn]

вот кое че накатал, ногами не бить , можно посложнее если надо...
program dem_gra4;
uses crt,graph;
var
DriverVar, ModeVar, ErrCode,A4,A3,B4,B3,Cl,Dx,Dy : integer;
X1,X2,Y1,Y2,D,T : real;
Play : boolean;
begin
DriverVar:= Detect;
InitGraph(DriverVar,ModeVar,'');
repeat
if Random(5)=0 then Play:=True else Play:=False;
SetFillStyle(1, White);
Bar (0,0,GetMaxX,GetMaxY) ;
A4:=Random(5);
A3:=Random(5);
B4:=Random(5);
B3:=Random(5); Cl:=Random(5)*2; T:=0;
SetColor(Random(4));
repeat
if Play and (Random(5)=1) then SetColor(Random(14));
D:=T+Cl;
X1:= (1.5*Cos(A4*T)+1.5*Cos(A3*2*T))*60;
X2:= (1.5*Cos(A4*D)+1.5*Cos(A3*2*D))*60;
Y1:= (1.5*Sin(B4*T)+1.5*Sin(B3*2*T))*60;
Y2:= (1.5*Sin(B4*D)+1.5*Sin(B3*2*D))*60;
Dx:=GetMaxX div 2;
Dy:=GetMaxY div 2;
Line(Round(Y1)+Dx,Round(X1)+Dy,Round(X2)+Dx,Round(Y2)+Dy);
T:=T+0.01;
until (T>=5);
SetColor(15);
Delay(500);
until KeyPressed;
CloseGraph;
end.

[Kshishtov]

GС, ниче у меня нету.Энто мне задали по инфе, решить не могуВот и решил воспользоваться помощью форумчан...опять..
Боурн,спасибо.Лови +.Если у кого есть еще,выкладывайте, лишним не будет

[Bourn]

program NLO;
uses Crt, Graph;
const
R =20;
Pause = 50;
var
DriverVar,ModeVar,ErrCode,Xmin,Xm,Ymin,Ym,X,Y,Tx,Ty,Rx,Ry, Size,I,Dx,Dy,Width,Height : integer; Sauser : Pointer; begin
Randomize;
DriverVar:= Detect;
InitGraph(DriverVar,ModeVar,'') ;
ErrCode := GraphResult;
if ErrCode <> grOk
then Writeln(GraphErrorMsg(ErrCode)) else
begin
SetTextStyle(DefaultFont,HorizDir,2);
OutTextXY(50,10,'„Ґ¬®­бва жЁп ¤ўЁ¦Ґ­Ёп Ќ‹Ћ');
X:=R*5; Y:=R*2;
Xm:=GetMaxX - 5;
Ym:=GetMaxY - 25;
Ellipse(X,Y,0,360,R,R div 3 +2);
Ellipse(X,Y-4,190,357,R,R div 3);
Line(X+7,Y-6,X+10,Y-12);
Line(X-7,Y-6,X-10,Y-12);
Circle(X+10,Y-10,2);
Circle(X-10,Y-10,2);
FloodFill(X+1,Y+4,White);
Tx:=X-R-1 ;
Ty:=Y-14;
Rx:=X+R+1;
Ry:=Y+R div 3+3;
Width:=Rx - Tx+1;
Size:=ImageSize(Tx,Ty,Rx,Ry);
GetMem(Sauser,Size);
GetImage(Tx,Ty,Rx,Ry,Sauser^);
PutImage(Tx,Ty,Sauser^,XorPut);
Xmin:=0;
Ymin:=30;
SetFillStyle(1,Blue);
SetColor(White);
Rectangle(Xmin,Ymin,GetMaxX,GetMaxY);
SetViewPort(Xmin,Ymin,GetMaxX,GetMaxY,ClipOn);
FloodFill(Xmin+1,Ymin+1,White);
for I:=1 to 500 do PutPixel(Random(GetMaxX),Random(GetMaxY-Ymin),White);
X:= Xm div 3 - Xmin;
Y:= Ym div 3 - Ymin;
Dx:=6;
Dy:=6;
repeat
PutImage(X, Y, Sauser^, XORPut);
Delay(Pause);
PutImage(X, Y, Sauser^, XORPut);
if (X<Xmin) or (Y<Ymin) or (X+Width+1>Xm) or (Y+Height+1>Xm) then
begin
if (X-Dx < Xmin) then X := Xmin else X:=X-Dx;
if (Y-Dy < Ymin) then Y := Ymin else Y:=Y-Dy;
Dx:=GetMaxX div 10 - Random(GetMaxX div 4);
Dy:=GetMaxY div 10 - Random(GetMaxY div 4);
end else
begin
if (X+Dx < Xm) then X:=X+Dx else X:=Random(GetMaxX)-Random(GetMaxX div 4);
if (Y+Dy < Ym) then Y:=Y+Dy else Y:=Random (GetMaxX)-Random (GetMaxX div 3);
end;
until KeyPressed;
FreeMem(Sauser, size);
CloseGraph;
end;
end.

[gamecreator]

GС, ниче у меня нету.Энто мне задали по инфе, решить не могуВот и решил воспользоваться помощью форумчан...опять..
Боурн,спасибо.Лови +.Если у кого есть еще,выкладывайте, лишним не будет

А что в результате выйти должно? Обычно с файлом примера дают файл ответа для него.

[Kshishtov]

*пожимаю плечами* не знаю..Ничего больше не давали...
Боурн, спасибо еще раз.