3 несложные задачи Опции

[azi]

Всем привет! Признаюсь сразу - с Паскалем я не в ладах, а для вас это раз плюнуть Бьюсь над этими задачами уже не первую неделю - чё-то никак.
Помогите, кому не лень. Заранее благодарен
1.Два отрезка на плоскости заданы координатами своих концов. Определить, имеют ли эти отрезки общие точки.
Замечание. Необходимо рассмотреть различные случаи взаимной ориентации отрезков: на одной прямой, на параллельных или пересекающихся прямых.
2.Просуммировать элементы матрицы A(n,n) по каждой из линий, параллельных главной диагонали. Напечатать полученные суммы.(читал в FAQ'е - не выходит...)
3.Натуральное число в p-ичной системе счисления задано своими цифрами, хранящимися в массиве K(n). Проверить корректность такого представления и перевести число в q-ичную систему (возможно, число слишком велико, чтобы получить его внутреннее представление; кроме того, p 10, q 10).
и может быть ещё одну:Заданный список русских фамилий (вместе с именами и отчествами) упорядочить по алфавиту. Проверить (и исправить, если нужно) написание собственных имен с прописных букв: Заданный список русских фамилий (вместе с именами и отчествами) упорядочить по алфавиту. Проверить (и исправить, если нужно) написание собственных имен с прописных букв.
Хотя бы намекните как делать, плиз-з-з-з!!!!

[volvo]

3.Натуральное число в p-ичной системе счисления задано своими цифрами, хранящимися в массиве K(n). Проверить корректность такого представления и перевести число в q-ичную систему (возможно, число слишком велико, чтобы получить его внутреннее представление; кроме того, p<10, q<10).

Все просто...
вначале проверяем корректность представления:

i := 1; isCorrect := true;
while (i <= n) and isCorrect do begin
  isCorrect := (K[i] <= p);
  inc(i)
end;
{ если здесь isCorrect = True то число корректно, иначе - нет }

далее, с помощью процедур из FAQ: Общие вопросы по математике преобразуем число из p-ичной системы в q-ичную:

var
  s: string;
...
if isCorrect then begin
  s := '';
  for i := 1 to n do s := s + chr(K[i] + 48);
  writeln('q-th system: ', FromDec(ToDec(s, p), q))
end
else writeln('invalid data');

Ну, а проверить не слишком ли велико число, я предоставляю тебе...

[azi]

Volvo, спасибо тебе огромное. Буду за тебя молиться!!! :D