Страни на правоъгълник

Публикувано на 24 януари, четвъртък от Данаил

Да се въведат (чрез вложени записи) координатите в равнината на върховете на правоъгълник. После да се отпечата дали той е със страни, успоредни на координатните оси и ако да – колко е дължината на страните му.

Публикувано в 10в с етикети . Постоянна връзка.

2 Responses to Страни на правоъгълник

  1. kaloyan каза:
    24 януари, четвъртък в 23:52

    Точките трябва да се въвеждат последователно:
    3____________4
    |……………………….|
    |……………………….|
    1____________2

    TYPE
  pravougalnik=record
    x,y:integer;
  end;
VAR
  tochka:array[1..4] of pravougalnik;
  i:integer;
BEGIN
//Въвеждаме координатите на върховете на правоъгълник
writeln('Vavedete koordinatite na varhovete na pravougalnik:');
  for i:=1 to 4 do
    with tochka[i] do begin
      write('x: '); readln(x);
      write('y: '); readln(y);
      writeln;
    end;
writeln;
//Проверяваме дали това е правоъгълник и пресмятаме страните му
  if ((tochka[1].x)<>(tochka[3].x)) then writeln('Tova ne e pravoagalnik') else
    if ((tochka[2].x)<>(tochka[4].x)) then writeln('Tova ne e pravoagalnik') else
      if ((tochka[1].y)<>(tochka[2].y)) then writeln('Tova ne e pravoagalnik') else
        if ((tochka[3].y)<>(tochka[4].y)) then writeln('Tova ne e pravoagalnik') else
          writeln('Stranite na pravoagalnika sa ',abs((tochka[1].y) - (tochka[3].y)),'sm i ',abs((tochka[1].x) - (tochka[2].x)),'sm');
readln;
END.
    • Данаил каза:
      25 януари, петък в 00:56

      Калояне, задачата е вярна, но в условието пише да се реши чрез вложени записи. Тоест да има тип данни pravougalnik, които да съдържа координатите и на четирите точки:

      type
 pravougalnik=record
    A,B,C,D: tochka;
  end;

Вашият коментар