Тема: Borland Pascal 7.0
View Single Post
Старий 26-10-2006, 17:31   #1
Cronus
Гигант мысли
 
Cronus's Avatar
 
Реєстрація: Nov 2004
Адреса: Sol Sanctrum
Повідомлення: 971
Send a message via ICQ to Cronus Send a message via Skype™ to 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 - кол-во делителей (ответ задачи). Надеюсь, процедуру для поиска факториала напишешь сам.
__________________
WPF Manga Reader
Papercrafting eternally
Cronus не на форумі   Reply With Quote