Найти периметр и площадь прямоугольника

@FoXxxxxxxx · Регистрация: 15.10.2010

Студворк — интернет-сервис помощи студентам

найти площадь и периметр прямоугольника, противоположные вершины которого находятся в точках A(x1,y1), D(x2,y2). Координаты точек вводятся с клавиатуры. При неправильном вводе значений, вывести на экран сообщение об ошибк

@MegaAce · 20.02.2011, 21:07

Pascal

var x1,x2,y1,y2,l1,l2,p,s:integer;
begin
 readln(x1,y1);
 readln(x2,y2);
 l1:=abs(x1-x2);
 l2:=abs(y1-y2);
 p:=2*(l1+l2);
 s:=l1*l2;
 writeln(p);
 writeln(s);
end.

@FoXxxxxxxx · 22.02.2011, 22:45 **[ТС]**

Pascal

var x1,x2,y1,y2,l1,l2,p,s:integer;
Label met;
begin
met:writeln('Введите координаты х1 у1');
 readln(x1,y1);
 Writeln('Введите координаты х2 у2');
  readln(x2,y2);
  If (x1=x2) and (y1=y2) then begin 
  Writeln('Координаты введены не верно');
  readln;
  goto met; 
  end;
   l1:=abs(x2-x1);
    l2:=abs(y2-y1);
     p:=2*(l1+l2);
      s:=l1*l2;
       writeln('Периметр прямоугольника = ',p);
        writeln('Площадь прямоугольника*=',s);
        readln
        end.

@FoXxxxxxxx 0 / 0 / 1 Регистрация: 15.10.2010 Сообщений: 21
		1
	Найти периметр и площадь прямоугольника 20.02.2011, 17:52. Показов 4120. Ответов 2 Метки нет (Все метки) найти площадь и периметр прямоугольника, противоположные вершины которого находятся в точках A(x1,y1), D(x2,y2). Координаты точек вводятся с клавиатуры. При неправильном вводе значений, вывести на экран сообщение об ошибк 0

Опции темы

Найти периметр и площадь прямоугольника

Решение