Borland Pascal 7.0

[Magnetto]

к полуночи если не забуду - отправлю решение задач на емейл(который ты напишешь мне в пс)
или сюда кину

з.ы обязательно писать на делфи?...

[.ShaDe]

Повідомлення від Magnetto

нарисовал первую задачку на листочке...походу она делается за 20-30 минут...

а со второй задачей...гыгы...если фактрайл это то что ты сказал то задача - проще не куда
а что за олимпиада?

Помоги, если можешь, с обоими

олимпиада... если чесно... фиг его знает... вроде школьная... в школе у нас вряд-ли программеры найдутся

я говорю я ламер в прогроаммировании, а мне говрят "а тебя не спрашивают"
оллимпиада ещё вчера должна была быть, а тут говорят что вроде как перенесли...

Подозрительно как-то...

Сорри я ушел. вернусь в 10 гдето

[Cronus]

Повідомлення від ShaDoWWW

Народ помогите!!! Плиз... Оч. надо!!! Сказали до завтра сделать на паскале ЭТО... Помогите, кто как может... не знаю что делать!
1. Надо создать прогу
Три точки на площади координат ( A (x;y) B(x;y) C(x;y) ). отпределить лежат ли они на одной прямой.

2. Прога
Що за натуральним N знаходить кількість дальників його фактрайла (или как то так, вообщем что б при вводе "5" прога отвечала "1-2-3-4-5"(всемто - знак умножения))


не знаю что делать... помгите плиз...

1. Создаешь уравнения прямой АВ и прямой ВС (где А, В, С - твои точки) в виде y=kx+b. Проверяешь, если k1=k2 и b1=b2 => точки лежат на одной прямой.
Формула уравнения прямой за двумя точками:
(x-x1)/(x2-x1)=(y-y1)/(y2-y1), где А=(x1, y1), B=(x2, y2). Покрути на листике, привиди к виду y=kx+b, получи формулы для k и b. Дальше - см. выше.
2. Вообще-то речь идет о факториале (обозн. N!, N!=1*2*3*...*N).
Делаешь всего лишь проверку в цикле:
for i:=1 to N do
if N_fact mod i = 0 then dilnik:=dilnik+1;

где N_fact - это факториал данного числа, dilnik - кол-во делителей (ответ задачи). Надеюсь, процедуру для поиска факториала напишешь сам.

[Лосёнок]

Прикольная прога сам написал! за пустите кто-то на паскале зацените...
program xxx;
uses crt;
var i:integer;
x:text;
f:boolean;
Begin
Assign(x, 'www.bak');
ReWrite(x);
f:=true;
while f=true do
WriteLn(x, 'be or not to be');
Close(x);
readln;
End.

[Лосёнок]

rogram Star;
uses crt,graph;
const topstar: array[1..18]of integer=(300,125,325,225,425,250,325,275,300,375,2 75,275,180,250,275,225,300,125);
var i,j,grdr,grmd: integer;
begin
grdr:=detect;
initgraph(grdr,grmd,'');
settextstyle(DefaultFont,0,1);
outtextxy(140,150,'STAR');
settextstyle(DefaultFont,1,4);
outtextxy(500,150,'STAR');
repeat
{ j:=imod12;}
setfillstyle(random(13),random(13));
fillpoly(9,topstar);
{ inc(i);}
delay(500);
until keypressed;
closegraph;
end.

[Magnetto]

Повідомлення від Cronus

1. Создаешь уравнения прямой АВ и прямой ВС (где А, В, С - твои точки) в виде y=kx+b. Проверяешь, если k1=k2 и b1=b2 => точки лежат на одной прямой.
Формула уравнения прямой за двумя точками:
(x-x1)/(x2-x1)=(y-y1)/(y2-y1), где А=(x1, y1), B=(x2, y2). Покрути на листике, привиди к виду y=kx+b, получи формулы для k и b. Дальше - см. выше.
2. Вообще-то речь идет о факториале (обозн. N!, N!=1*2*3*...*N).
Делаешь всего лишь проверку в цикле:
for i:=1 to N do
if N_fact mod i = 0 then dilnik:=dilnik+1;

где N_fact - это факториал данного числа, dilnik - кол-во делителей (ответ задачи). Надеюсь, процедуру для поиска факториала напишешь сам.

1. мне кажется все таки с углом проще...да и более надежно...так как на системе коордынат могут быть и нули и минусовые значения
расскажи плиз а факториале а то я чуть не понял

воть...мне даже не пришлось писать что то =)
только вот я забыл функцию которая возвращает значение угла...
щас буду юзать паскалевский хелп =)

[*Barthez]

как можна декомпилировать из exe-шника в иходный код *.pas ???

[Лосёнок]

Повідомлення від *Barthez

как можна декомпилировать из exe-шника в иходный код *.pas ???

вроде никак!

[Magnetto]

Повідомлення від *Barthez

как можна декомпилировать из exe-шника в иходный код *.pas ???

нет...

[.ShaDe]

Повідомлення від Magnetto

расскажи плиз а факториале а то я чуть не понял

Вводится любое число, например 8.
А програма в ответ выдает 1*2*3*4*5*6*7*8
Я понимаю это так =)

а с первым согласен