Помогите с задачками на ТР!!!

[veterok777]

Здравствуйте, мне нужна ваша помощь..... Нужно помочь с задачками, у меня полный завал .....буду очень благодарен....

1.переменной k присвоить номер четверти плоскости, в которой находится точка с координатами x и у (х у не равняются 0)

2.Составить таблицу перевода расстояния из дюймов в сантиметры (1дюйм=2,54 см) для значений длин от 1 до 20 дюймов.
3.сам сделал)))
4.задан массив Х[n] Элементы массива расположить в обратном порядке.
5.Задан массив А[n,n] Требуется поэлементно вычесть последнюю строку из всех строк, кроме последней.
6.Сложное слово состоит из двух частей одинаковой длины и соединительной гласной. Найти обе части этого слова.
7.Даны координаты вершин многоугольника (х1, у1, х2, у2, х3,у3,....,xn,yn)
определите его периметр. Вычисление расстояния между вершинами оформить в виде подпрограммы.


Если сможете помочь, опевестите меня по icq-9967312, если это возможно......




если возможно, то желательно до 15 апреля......заранее благодарю!

[Naeel Maqsudov]

2)
http://forum.developing.ru/showthread.php?t=16424

[veterok777]

благодарю, ну мне нужно на turbo paskale!!!

[Esgal]

1.

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

if x>=0 then
  if y>=0 then k:=1
  else k:=4
else
  if y>=0 then k:=2
  else k:=3;

2.

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

for i:=1 to 20 do writeln(i,' inch = ',i*2.54,' sm');

4.

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

for i:=n downto 1 do write(x[i],' ');

5.

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

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

6.

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

len:=length(s) div 2; {s содержит сложное слово}
writeln('Part one: ',copy(s,1,len));
writeln('Part two: ',copy(s,len+2,len));

очень надеюсь что остальное допишите самостоятельно

[veterok777]

это не дельфи???? мне на паскале нужно((

[Esgal]

7.

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

const n=10;
type point=record
                         x,y:real;
               end;
var polygon:array[1..n] of point;
     perim:real = 0;
     i:1..n;

function d(x1,y1,x2,y2:real):real;
begin
  d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
end;

begin
 for i:=1 to n do
  readln(polygon[i].x,polygon[i].y);

 for i:= 1 to n do
  perim:=perim+d(polygon[i].x,polygon[i].y,polygon[i+1].x,polygon[i+1].y);

 writeln('P=',perim:6:5);
 readkey;
end.

не компилировал сам, проверьти... если возникнут ошибки при компиляции, пожалуйста постарайтесь разобраться самостоятельно, это лишь пойдёт вам на пользу
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
это паскаль

[veterok777]

Благодарю))))

[Esgal]

удачной сдачи

[veterok777]

а есть вариант полностью все задачки написать не только 7???
а то я че то не врубаюсь в эту тему.........

[Naeel Maqsudov]

Вам же Esgal написал все остальные, кроме 7.

это не дельфи???? мне на паскале нужно((

Это паскаль и есть. В правилах раздела "Решите мне задачу" все разъяснялось. Читайте правила.