Очень мощный чит для CS1.6 Возможность видеть противника сквозь стены, самонаведение в голову и другие части тела, автоматическая стрельба по своим или по противнику, подсветка оружия и других боеприпасов, отключение отдачи, все становиться светлым, даже на плохо или не освещенных участках карты, луч, показывающий, куда направлен прицел, маленькая точка в центре прицела и многое другое. Скачать чит для Counter Strike Контры бесплатно без регистрации CDhack
Заменить наименьшие элементы в массиве на среднее арифметическое его значений. Создать функции для вычисления среднего арифметического элементов массива и определения его минимума.
2 года назад тоже сдавал ЕГЭ. Вот подготовил я к нему шпоры. Удачно списал. Поступил, куда хотел. Теперь в отличном ВУЗе на отличной специальности учусь. Решил поделиться с Вами своими творениями. Шпоры я подредактировал, специально для ЕГЭ 2010. Так что качайте шпоры, списывайте на ЕГЭ и поступайте, куда хотите!!!
Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.
Описание: Задание: На
экране построить семейство кривых, заданных функцией:
Y = 4.6·G·sin(x/F) + 1.9·M·cos(x+1.8);[-4 < x <4] Группа
параметров G,M,F вводится с клавиатуры.
Исходный код: Program Lab10F; uses Graph,crt; type mystring=string[32]; var i:byte; rez:word; x,y:integer; mk,G,F,M:real;
procedure Grafik(G,F,M:real);
var grDriver: Integer; grMode: Integer; ErrCode: Integer; x,y,minx,miny,maxx,maxy,q:real; nx,ny,nmaxx,nmaxy,ram:integer; s:string; begin grDriver := Detect; InitGraph(grDriver, grMode,'c:\lang\TP71\bgi'); {cyuda vvesti svoy put'} ErrCode := GraphResult; if ErrCode = grOk then begin { Do graphics } {[-4 < x <4]} minx:=-4; maxx:=4; ram:=1; nmaxx:=getmaxx-2*ram; nmaxy:=getmaxy-2*ram; q:=0.001; x:=minx; maxy:=4.6*G*sin(x/F)+1.9*M*cos(x+1.8); {cyuda vvesti svoyu funkciyu} miny:=maxy; while x<=maxx do begin y:=4.6*G*sin(x/F)+1.9*M*cos(x+1.8); {cyuda vvesti svoyu funkciyu} if y>maxy then maxy:=y; if y<miny then miny:=y; x:=x+q; end; q:=0.001; {kol-vo to4ek} x:=minx; while x<=maxx do begin y:=4.6*G*sin(x/F)+1.9*M*cos(x+1.8); {cyuda vvesti svoyu funkciyu} nx:=round((nmaxx*(x-minx)/(maxx-minx))+ram); ny:=round((nmaxy*(maxy-y)/(maxy-miny))+ram); putpixel(nx,ny,2); x:=x+q; end; y:=0; ny:=round((nmaxy*(maxy-y)/(maxy-miny))+ram); setcolor(14); line(ram,ny,nmaxx+ram,ny); q:=1; x:=minx; while x<=maxx do begin nx:=round((nmaxx*(x-minx)/(maxx-minx))+ram); line(nx,ny-4,nx,ny+4); str(x:2:0,s); outtextxy(nx,ny-8,s); x:=x+q; end; x:=0; nx:=round((nmaxx*(x-minx)/(maxx-minx))+ram); setcolor(14); line(nx,ram,nx,nmaxy+ram); q:=(maxy-miny)/10; y:=miny; while y<=maxy do begin ny:=round((nmaxy*(maxy-y)/(maxy-miny))+ram); line(nx-4,ny,nx+4,ny); str(y:6:2,s); outtextxy(nx,ny,s); y:=y+q; end; {line(30,30,610,30); line(610,30,610,450); line(30,30,30,450); line(30,450,610,450);}
Readln; CloseGraph; end else Writeln('Graphics error:', GraphErrorMsg(ErrCode)); end;