-
Постов
349 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Сообщения, опубликованные martinges
-
-
приду побегаю
-
хех внесу свою лепту в хвалебные посты про barbi
выложила бы футбольные фотки удар у тебя с правой далеко как не слабый был по крайней мере
-
а вполне возможно ей захотелось постебаться скучно а так можно посидеть и поржать над шпионскими страстями
а девушки и впрямь "в теле"
-
uses graph,crt;
const
a=0;b=1440;
var
gd,gm,x,xx,yy:integer;
begin
gd:=detect;
initgraph(gd,gm,'C:\tp7\bgi');
xx:=(getmaxx div 2);
yy:=(getmaxy div 2);
moveto(xx+40*5,yy);
for x:=a to b do
begin
lineto(trunc(5*(30*cos(pi*x/720)+10*cos(pi*x/240)))+xx,trunc(-5*(30*sin(pi*x/720)-10*sin(pi*x/240)))+yy);
delay(500);
end;
readkey;
closegraph;
end.
гипоциклоида радиус большой окружности 40 малой окружности 10 частное соответсвенно 1/4 при 5-тикратном увеличении. прогугли гипоциклоида параметрическое уравнение
На будущее: пробуй делать сам иначе на экзаменах плохо будет
-
uses graph,crt;
const
a=-20;b=20;{ОДЗ}
var
gd,gm,x,xx,yy:integer;
begin
gd:=detect;
initgraph(gd,gm,'C:\tp7\bgi');
{------------------------------}
xx:=(getmaxx div 2);
yy:=(getmaxy div 2);
{-------------------------------}
moveto(xx+a,yy-sqr(a));
{основной блок-------------------------------}
for x:=a to b do
begin
lineto(x+xx,-sqr(x)+yy);
delay(5000);
end;
{конец основного блока-------------------}
closegraph;
end.
Вот программка выводящая тупо параболу
Центр координат соответственно центр экрана при любом режиме
Свою функцию вставишь в "основной блок"
незнакомые функции и процедуры ищи через хелп паскаля или методом тыка меняя параметры
-
moveto(-20,400);
for x:=-20 to 20 do
begin
lineto(x,sqr(x));
delay(50);
end;
P.S. шаблон вот такой пример по квадратичной функции. Нужно сделать смещение по оси абцисс относительно центра экрана и отражение относительно оси ординат, чтобы картинка была не перевернутой верх тормашками
-
вместо writeln('Maximalnoe rasst meshdy ',a,' Ё ',b,' paroi:',r:0:2);
напиши :
for i:=1 to n-1 do
for j:=i+1 to n do
if sqrt(sqr(x[j]-x)+sqr(y[j]-y))=r then writeln('искомая пара: (',i,',',j,')');
P.S. и тебе не нужны будут переменные a и b
-
бери любую математическую функцию и ставь паузу(n кол-во секунд) на каждой итерации)) будет пошаговое построение кривой (скажешь что зависимость построения от времени )
-
) красиво от фотошопили
блин оказывается я со своими 181 теперь мелковат надыть в монастырь наверное уйти....... (поразмыслить над жизнью.... над своим ростом....)в женский
-
ответ 4 строки
если без шуток.... то набор слов помойму)) или где то знаки препинания пропущены....
-
множество Мандельброта
увеличение его сегмента
алгебраический фрактал
алгебраический фрактал
-
uses graph; {наша библиотечка с графикой}
var
gd,gm:integer; {gd-драйвер, gm-режим}
begin
gd:=detect; {определяем драйвер, режим по умолчанию взависимости от драйвера}
initgraph(gd,gm,'c:\tp7\bgi'); {путь до файлов инициализации, не забудь сменить мой path }
{список операторов работы с графическим режимом}
closegraph;{закрыли графический режим, вернулись в исходный режим}
end.
P.S. как то вот не работал с бмп файлами в паскале...
P.P.S. список функций: arc,circle,ellipse,getarccoord,getaspectratio,pieslice,bar,bar3d,setfillpattern,setfillstyle,setlinestyle,line,putpixel,getimage,getpixel,putimage...... там еще есть все что вспомнил написал думаю через внутренний хелп список переменных найдешь сам
-
graph.tpu
посмотри список процедур и функций столкнешься с проблемой мерцания, но она решаема
-
наверное более 5000 или 10000 книг..... как то не ставил перед собой цель их считать....
хотя имеется привычка их перечитывать
Толкиена властелин колец перечитывал раз 5
Лукьяненко перечитывал не раз. Каюсь крен в сторону фантастики и фэнтези
До более вдумчивых книг наверное я пока не дорос
Также приходится перечитывать спец. литературу, ибо работа проклятущая этого требует
И под настроение лирические стихи....в основном давно ушедших от нас писателей.
-
ээээ.... помогите объяснить эту фразу.... набор букав.... я понять не могу
-
думаю женился бы. Гены.... хммм если жить с женщиной которую любишь и смотреть на ребенка и при каждой шалости задумываться что это чьи-то гены виноваты.... я незавидую такому ребенку.
Вариант плохой муж: поприкание ребенка чужой кровью(пренебрежение) бррр противно такое обсуждать
Вариант мать одиночка: ребенок будет спрашивать..... Мам, а мам.... а почему у нас нет папы? мама видимо должна ответить, что в нашей жизни много самовлюбленных людей и как только я сдам тебя в детдом так сразу стану привлекательной для множества мужчин... Видимо так? даже сплюнуть хочется, потому что тоже противно
Жизнь сложная штука... кто то ломается(бросает семью, детей)... кто то сознает свою ответственность(в том числе беря замуж женщину с ребенком).
P.S. У меня нет детей. Я не был женат. Но это моя точка зрения.
-
дык так неинтересно))
учись прогу писать) нафига ты учишься то?)
1)
var x,l:real;
begin
readln(x,l);
writeln(arctan(sqrt(sqr(l)-sqr(x))/x)*(180)/pi:5:2);
end.{гг вспомнил что вроде нет арккосинуса в паскале зато есть арктангенс путём нехитрых вычислений понимаем что тангенс это частное катетов) дальше преобразование в градусы, иначе будешь получать всё в радианах и тебе это не понравится }
2) имеются 2 точки (-3,0) и (3,6) формулу сверху видишь оттуда следует что x1=-3 y1=0 x2=3 y2=6 далее оставляешь y в правой части уравнения всё остальное угоняешь влевую часть и о алелуя получаем уравнение прямой)
далее код : if x<-3 then write('Акела промахнулся :)')
else if (x>=-3)and(x<=3) then write('значение уравнения равно ',{а тут формулка прямой})
else write('значение уравнения равно 6');
end.
там где формулка советую сделать форматный вывод без мантисы)
последний else равно 6 думаю и так понятно почему
-
1) арккосинус(x/L) x катет, L гипотенуза
2) находим уравнение прямой проходящей через 2 точки (x-x1)/(x2-x1)=(y-y1)/(y2-y1)
если x<-3 то вывод("не попал ")
иначе если (x>=-3)и(x<=3) то вывод(смотри формулу прямой)
иначе вывод("значение функции=6");
-
мдя какие пышные и длиноногие девушки)
-
-
Lakers
помойму в теле функции ошибка...... сумма идёт по четным и ечетным элементам массива, а у тебя суммирует все подряд....
-
Степан
в какой день недели то?)
-
хех не оскудела наша земля симпотичными девушками)
True_Neo
А тебе сколько лет, если не секрет?) Извини конечно... но ощущается какая-то незрелость в высказываниях
-
народу кучу было)
поиграли неплохо)
если есть желание назначайте время в будние дни) теперь то темнеет не скоро)
Есть у кого желание собраться и поиграть в футбол?
в Футбол
Опубликовано
нормально побегали))
а насчет разжирели)) это камешек и в мой огород))) теперь буду наверное раза 2 в неделю забегать на стадион техноложки)