Задачи. Паскаль

[Psayker]

Пожалуйста помогите, это хвосты!
Это задачи на паскале, а я в этом не очень шарю...
1)Составьте программу, которая определяет, может ли быть построен треугольник по введенным длинам сторон a,b,c и, если треугольник можно построить, определяет его тип (прямоугольный, тупоугольный или остроугольный).
2)Напишите программу, которая по введенному с клавиатуры символу определяет, является ли он строчной или прописной, латинской или русской буквой, цифрой или относится к прочим символам.
3)Напишите программу, которая определяет, принадлежит ли точка с координатами (x,y) прямой y=1-x. Если это имеет место, то программа должна вывести на печать координаты точки, а в противном случае – сообщение "Точка не принадлежит прямой".
4)Известны координаты вершин прямоугольника. Напишите программу, которая определяет, находится ли точка А с указанными координатами внутри или вне прямоугольника.
Ребят, помогите! Если не сдам мне хана!

[Serp]

3-ю задачу решить легко если чуток подумать самому...

1)
дано 3 стороны a,b,c
if (a+b<c)or(b+c<a)or(a+c<b) then writeln('Треугольник не существует');
ну а дальше по теореме пифагора можно...которая получена из теоремы косинуса насколько я помню...
определим самую длинную сторону "дубовым" методом
if (b<a)and(c<a) then begin MAX:=a; st1:=c; st2:=b; end;
if (b<c)and(a<c) then begin MAX:=c; st1:=b; st2:=a; end;
if (c<b)and(a<b) then begin MAX:=b; st1:=c; st2:=a; end;

if sqr(max)=sqr(st1)+sqr(st2) then writeln('Треугольник прямоугольный');
дальше наверно понятно что будет если равенство не выполниться...в зависимости от того < или > знак будет треугольник тупоугольным или остроугольным

по 2-ой задаче могу сказать что в помощь тебе таблица ASCII там посмотри коды...и функцию найди не поленись...возвращает код символа...писать полные программы мне некогда

[DM_bite]

3. Точка будет принадлежать прямой если при значении x, функция будет равна y.

Program xD;
var x,y: byte;
begin
ReadLn(x,y);
if y=1-x then WriteLn(x,'_',y)
else WriteLn('Tochka ne prinadlezhit pryamoi');
ReadLn;
end.

[DM_bite]

2.

program Xd;
var C:char;
begin
ReadLn(C);
if (Ord(C)>65) and (Ord(C)<91) then WriteLn('Lat_Propis');
if (Ord(C)>96) and (Ord(C)<123) then WriteLn('Lat_Stroch');
if (Ord(C)>127) and (Ord(C)<160) then WriteLn('Rus_Propis');
if (Ord(C)>223) and (Ord(C)<240)
or (Ord(C)>159) and (Ord(C)<176) then WriteLn('Rus_Stroch');
ReadLn;
end.

Сущая простота, поройтесь в ASCII-кодах и будет вам счастье.

[Psayker]

Спасибо огромное!))