Флуд - Страница 5

Флуд

[-LIGA-]_Lotus

Дата: Суббота, 28/04/2007, 15:46 | Сообщение # 61

Заместитель

Группа: Модераторы

Сообщений: 165

Статус: Offline

Типа "икс" в квадрате. х^3 - в кубе x^100 - в сотой степени.
Условие: модуль "игрека" равняется модулю выражения (квадрат икса минус четыре икс). Построить график функции.

LHitmaN

Дата: Вторник, 01/05/2007, 13:03 | Сообщение # 62

Лидер Клана

Группа: Администраторы

Сообщений: 324

Статус: Offline

я всё пнял) wacko

[-LIGA-]_Lion

Дата: Вторник, 08/05/2007, 16:30 | Сообщение # 63

Соклановец - Воин

Группа: Соклановцы

Сообщений: 22

Статус: Offline

Я знаю точно на перед сегодня ктонибудь умрет я знаю где я знаю как я не гадалка я маняк

[-LIGA-]_Lotus

Дата: Вторник, 08/05/2007, 18:17 | Сообщение # 64

Заместитель

Группа: Модераторы

Сообщений: 165

Статус: Offline

Новая задача, на этот раз по программированию: нарисоваь часы в Pascal-е (интерактивные).

Сообщение отредактировал [-LIGA-]_Lotus - Вторник, 08/05/2007, 18:25

LHitmaN

Дата: Понедельник, 14/05/2007, 23:48 | Сообщение # 65

Лидер Клана

Группа: Администраторы

Сообщений: 324

Статус: Offline

фик создашь ))
эт ты копировал)))))
ЫЫЫ я сам не разобрался)))

[-LIGA-]_Lotus

Дата: Среда, 16/05/2007, 20:21 | Сообщение # 66

Заместитель

Группа: Модераторы

Сообщений: 165

Статус: Offline

Копировать то я копировал, но там математики больше. Вот я с ними и разбираюсь сейчас. С "-1" и "+45". К чему они там? Даже синусоиду на компе нарисовал (в Паскале), а заодно и косинусоиду (если есть такое слово). Только ту строчку не понял. Экзамены, штука такая... На время не разгонишься...

Сообщение отредактировал [-LIGA-]_Lotus - Среда, 16/05/2007, 20:23

LHitmaN

Дата: Среда, 16/05/2007, 23:43 | Сообщение # 67

Лидер Клана

Группа: Администраторы

Сообщений: 324

Статус: Offline

короче дурью маешся

[-LIGA-]_Lotus

Дата: Четверг, 17/05/2007, 20:03 | Сообщение # 68

Заместитель

Группа: Модераторы

Сообщений: 165

Статус: Offline

Єто. Наука.
Я все ближе...
Ждите...
Мож прогу тут с обьяснением выкину...
Когда сам дойду.

LHitmaN

Дата: Суббота, 19/05/2007, 00:09 | Сообщение # 69

Лидер Клана

Группа: Администраторы

Сообщений: 324

Статус: Offline

ждёмс

[-LIGA-]_Lotus

Дата: Воскресенье, 20/05/2007, 19:39 | Сообщение # 70

Заместитель

Группа: Модераторы

Сообщений: 165

Статус: Offline

Дошел.
Но обьяснения не выложу.
Могу сам текст кинуть, а вы уж вопрсы задавайте.
program lotus;
uses crt,dos,graph;
const lengthh=60;
          lengthm=70;
          lengths=80;
         a=320;
         b=240;
var ah,am,as:real;
       driver,mode:integer;
      h,m,s,ss:word;
       s1:string;
begin
driver:=detect;
initgraph (driver,mode,'');
setcolor (white);
circle (a,b,110);
setcolor (red);
outtextxy (316,135,'12');
outtextxy (316,340,'6');
outtextxy (215,237,'9');
outtextxy (420,237,'3');
repeat
setcolor (0);
line (a,b,a+round(lengthh*sin(ah)),b-round(lengthh*cos(ah)));
line (a,b,a+round(lengthm*sin(am)),b-round(lengthm*cos(am)));
line (a,b,a+round(lengths*sin(as)),b-round(lengths*cos(as)));
outtextxy (50,50,s1);
gettime (h,m,s,ss);
str (s,s1);
setcolor (3);
outtextxy (50,50,s1);
ah:=6*h*pi/180;
am:=6*m*pi/180;
as:=6*s*pi/180;
setcolor (red);
line (a,b,a+round(lengthh*sin(ah)),b-round(lengthh*cos(ah)));
setcolor (green);
line (a,b,a+round(lengthm*sin(am)),b-round(lengthm*cos(am)));
setcolor (yellow);
line (a,b,a+round(lengths*sin(as)),b-round(lengths*cos(as)));
delay (1000);
until keypressed;
closegraph
end.

Сообщение отредактировал [-LIGA-]_Lotus - Воскресенье, 20/05/2007, 19:42

[-LIGA-]_Lion

Дата: Пятница, 25/05/2007, 15:46 | Сообщение # 71

Соклановец - Воин

Группа: Соклановцы

Сообщений: 22

Статус: Offline