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

@моха · Регистрация: 29.01.2011

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

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

@Darth_Vaider · 23.02.2011, 16:12

Pascal

var x1,x2,y1,y2:integer;
a,b,s,p:integer;
t:boolean;
begin
t:=true;
repeat
readln(x1);
readln(x2);
readln(y1);
readln(y2);
if (x1>0)or(x1>640)or(x2>640)or(x2<0)or(y1<0)or(y1>480)or(y2>480)or(y2<0) then
begin
writeln('Uncorrect data');
t:=false;
end;
until t;
a:=x2-x1;
b:=y2-y1;
s:=a*b;
p:=2*(a+b);
writeln(s);
writeln(p);
end.

@Brotherhood6 · 23.02.2011, 16:22

Pascal

var x1,x2,y1,y2:real;  s,p:real ;
begin
write('x1,y1'); readln(x1,y1);
write('x2,y2'); readln(x2,y2);
if (x1=x2)or(y1=y2) then begin writeln(' vvedi ewe raz ');
write('x1,y1'); readln(x1,y1);
write('x2,y2'); readln(x2,y2);
s:=abs((x2-x1)*(y2-y1));
  end else
s:=abs((x2-x1)*(y2-y1));
p:=2*(abs(x2-x1)+abs(y2-y1));
writeln(s:8:2,'    ',p:8:2);
end.

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

Решение

Решение

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

Опции темы