<em>TYPE</em>
<em> TPoint = Record x, y: Real; End;</em>
<em>VAR</em>
<em> a, b, c, d: TPoint;</em>
<em />
<em> Function Pl(a, b, c: TPoint): Real;</em>
<em> Var v1, v2: TPoint;</em>
<em> Begin</em>
<em> v1.x := a.x - b.x; v1.y := a.y - b.y;</em>
<em> v2.x := a.x - c.x; v2.y := a.y - c.y;</em>
<em />
<em> Pl := Abs(v1.x * v2.y - v1.y * v2.x) / 2;</em>
<em> End;</em>
<em />
<em>BEGIN</em>
<em> Read(a.x, a.y, b.x, b.y);</em>
<em> Read(c.x, c.y, d.x, d.y);</em>
<em />
<em> Write(Pl(a, b, c)+Pl(a, c, d));</em>
<em>END.</em>
Во-первых, какой язык программирования? Если Паскаль, то там все очень просто: ты пишешь название переменной, потом знак присвоения со значением.
Нужно начальное десетичное разделить на ту систему в которую переводим в данном случае "8"
<span>делим до тех пор пока остаток будет меньше делимого.
например 845 делим в столбик на 8, и делим до тех пор когда число не станет меньше 8</span>
Есть такой набросок. Один pdf текст программы, второй снимки экрана, демонстрирующие работу.
Однако в нём замечены глюки при работе. Смотрите замечание в тексте и картинки. Завтра подумаю и на другой версии компилятора попробую.
Но думаю можете использовать идею. Возможно стоит загнать всё в статические массивы, Большие матрицы (>20 на широком экране) выводятся неудобоваримо. Примеры картинок вывод еще в нормальном формате.
А, где задание? Может у меня лаги, но нету вложения(
