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

[azi]

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

[Бродяжник]

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

Код

for i:=n-i+1 to n do s:=s+a[i,j];

Вместо "for i" должно быть "for j". Но это, видимо, опечатка Azi. Возможно, проблема в ориентации матрицы? Данные циклы предполагают, что
а) первый индекс - это номер строки, а второй - номер столбца, и что
б) выражение "элементы выше главной диагонали" надо читать, как "элементы выше главной диагонали и элементы самой главной диагонали". Т.е.

1111
1110
1100
1000

Если же имелось в виду

1110
1100
1000
0000

т.е. НЕ ВКЛЮЧАЯ саму диагональ, тогда надо циклы переделывать.
А ввобще пользуйтесь старым добрым способом:

Код

s:=0;
for i:=1 to n do
for j:=i to n do
  begin
     s:=s+a[i,j];
     writeln('i=',i,' j=',j,' s=',s,' a=',a[i,j]);
  end;

и сразу увидите, какие элементы суммируются. Глядишь, и разберетесь. Удачи!