Практика для начинающих :D

[Die HarD]

Так вот, нужно решить несколько задачек: Если кому интересно и не трудно, может поможете ? Нужны для поступления одного че-ка в МГУ. Заранее пасиба

Собственно задачки:

Задание 1. Три точки
На плоскости xOу три возможно совпадающие точки заданы своими координатами: (x1,y1), (x2,y2), (x3,y3).
Требуется выписать алгоритм для определения одного из 6 возможных случаев расположения этих точек:
1) все три точки совпадают; 2) совпадают ровно две точки; 3) все три точки лежат на одной прямой;
4) точки образуют остроугольный треугольник; 5) точки образуют прямоугольный треугольник; 6) точки образуют тупоугольный треугольник. Число логических операций должно быть при этом как можно меньше (так, выражение (x1=x2)and(y1=y2) содержит 3 логические операции). Количество арифметических операций при этом значения не имеет.

Задание 2. Кредит
На покупку жилья берется кредит N рублей сроком на K лет под P процентов годовых с ежемесячными выплатами. Каждый месяц выплачиваются проценты за невыплаченную часть кредита (P/12 процентов на остаток долга) плюс некоторая часть от основного долга. Получатель кредита хочет, чтобы в течение всех K лет каждый месяц выплаты были одинаковыми. Например, при N=100000, K=5, P=12 необходимо выплачивать по 2224 руб. 45 коп. ежемесячно.
Требуется на любом известном вам языке программирования написать программу
а) определяющую с точностью до 1 копейки минимальную сумму, которую можно выплачивать ежемесячно, чтобы погасить весь кредит вовремя;
б) если известно, какую сумму получатель кредита может платить ежемесячно, то программа должна определять с точностью до 1 рубля, какой максимальный кредит на тех же условиях может быть предоставлен. При наличии доступа к компьютеру подсчитайте с помощью вашей программы ответ для следующих данных:
а) 450000 рублей, 10 лет, 11%; б) 15000 рублей ежемесячно; 15 лет; 13%.


Задание 3. Массив
Пусть одномерный массив, состоящий из не более чем 1000 элементов, заполнен случайным образом целыми числами. На любом известном вам языке программирования написать фрагмент программы, печатающий только те значения элементов массива, которые встречаются более одного раза, но каждое такое значение должно быть напечатано один раз. Дополнительных массивов не использовать. Элементы массива не изменять и не менять местами.

Если кто сделает, то просьба - выложить тут или прислать :

mailto:a-leshka@list.ru

[Шурик]

Задание 1
1. Если x1=x2=x3 и y2=y3=y3...
2. блин чето-запутался..)))))))) (пиво блин)
3. Если (x1=x2 и x2=x3 и x1=x3) или (y1=y2 и y2=y3 и y1=y3) это если по горизонтали или по вертикали....
вотка - это зло....)))

[Die HarD]

А теперь - - на VB тоже самое ) с логикой все оки у меня, а вот с языками программирования - большая и круглая...

[alibek]

1. Все треугольники нормализовать (т.е. повернуть параллельно осям). Тогда проверка будет сводится к проверке равенства координат точек (кроме углов), а углы посчитать будет проще.
2. Э... А... Нет, не проснулся я еще
3. Если требований к быстродействию не предъявляется, то можно сделать примерно так.

Код: Выделить всё

Dim C As Long, I0 As Long, I As Long, S As String
'Массив Data - исходный массив
S = ";"
For I0 = LBound(Data) To UBound(Data)-1
  C = 0
  If InStr(S,";" & Trim$(Str$(Data(I0))) & ";") = 0 Then
    For I = I0+1 To UBound(Data)
      If Data(I0) = Data(I) Then C = C + 1
    Next I
    If C > 1 Then
      S = S & Trim$(Str$(Data(I0))) & ";"
      Print "Item #" & I0 & "; Value " & Data(I0)
    End If
  End If
Next I0


[Die HarD]

Что, ни у кого больше мыслей нет ?

[Shurrik]

1. Определяем три расстояния между тремя точками, т.е. r1=SQR((x1-x2)^2+(y1-y2)^2), r2 и r3 аналогично.
1.1 Все точки совпадают r1+r2+r3=0.
1.2 Две точки совпадают (r1+r2+r3)>0, a r1*r2*r3=0.
Для остальных случаев надо отсортировать r1,r2,r3 по возрастанию
IF r1>r2 THEN SWAP r1,r2
IF r2>r3 THEN SWAP r2,r3
IF r1>r2 THEN SWAP r1,r2
или любым другим способом.
1.4 Точки на одной линии r1+r2=r3
1.5 Остроугоьный треугольник (r1^2+r2^2)>r3^2
1.6 Прямоугоьный треугольник (r1^2+r2^2)=r3^2
1.7 Тупоугоьный треугольник (r1^2+r2^2)<r3^2
2. Пропущу
3. Тут придется сделать два вложенных цикла

Код: Выделить всё

CONST m=2000
DIM mm%(m)
FOR i=1 to m:mm(i)=100*RND:NEXT ' Создаем массив
FOR i=1 to m-1 ' Перебираем все элементы
pp=0 ' признак печати
FOR j=m to 1 STEP -1
  IF mm(i)=mm(j) AND j>i THEN
    pp=1:j=i-1 ' Есть совпадение
  END IF
  IF j=i AND pp=0 THEN
    EXIT FOR ' совпадений нет, закрыть цикл
  END IF
  IF mm(i)=mm(j) AND j<i THEN
    pp=0:EXIT FOR ' Совпадение уже печаталось
  END IF
NEXT j
IF pp=1 THEN PRINT pp
NEXT i