Borland Pascal. Помощь 9 класс)

[russian-stalker]

Ага, а за отзывы прибавляется репутация.

[Lerik09]

Не поможете еще с 2 задачами)пожалуйста)

[Вавел из ГМТУ]

Не наглейте.. Вам и так уже больше половины решили. Теперь Ваш "ход"....

[russian-stalker]

Сообщение от Lerik09

Не поможете еще с 2 задачами)пожалуйста)

Выкладывайте, а там посмотрим..

[mMAg]

Карточка 12. Задача 2. Заценил, уржался. Так и не понял к чему была приведена формула подсчета для a.
Вам ее тоже задали, или ее решать не нужно?

[Lerik09]

все 4 надо(

[mMAg]

program Project4;
var
x1, x2, x3, x4, y1, y2, y3, y4, S :integer;
t : boolean;
begin
writeln(' Input left top point (x1, y1) please: ');
readln(x1, y1);
writeln('Input left bottom point (x2, y2) please: ');
readln(x2, y2);
writeln('Input right top point (x3,y3) please: ');
readln(x3,y3);
writeln('Input right bottom point (x4,y4) please: ');
readln(x4,y4);
if (x1 <> x2) or (x3 <> x4) or (y1 <> y3) or (y2 <> y4) then
  writeln('Prosili mnogo vhodnih dannih - polucite error')
else
  if (x1 > x3) or (y1 > y2) then
    whiteln('Nepodcinenie pros/'be - ne lublu takoe')
  else
  begin
    S := (x3-x1)*(y2-y1);
  end
writeln('Lubuites/' resul/'tatom : ', S);
writeln('Esli Uvideli nepravil/'nii otvet - vvodite chisla pomen/'she');
readln;
end.

[netrino]

if (x1 <> x2) or (x3 <> x4) or (y1 <> y3) or (y2 <> y4) then
  writeln('Prosili mnogo vhodnih dannih - polucite error')

это, ИМХО, лишнее, а если прямоугольник размещён под углом к оси абсцисс?) уж лучше проверять их на равенство, и если равны, то ошибка..

[mMAg]

Если под углом размещен, то мой код никогда не заработает правильно, хотя бы потому, что площадь будет вычисляться неверно.
Как-то даже и не подумал, что под углом к осям координат может быть расположен.

[netrino]

Сообщение от mMAg

Если под углом размещен, то мой код никогда не заработает правильно, хотя бы потому, что площадь будет вычисляться неверно.
Как-то даже и не подумал, что под углом к осям координат может быть расположен.

ну я на остальной код не смотрел)

program Project4;
var
x1, x2, x3, x4, y1, y2, y3, y4 :integer;
S : real;
t : boolean;
begin
writeln(' Input left top point (x1, y1) please: ');
readln(x1, y1);
writeln('Input left bottom point (x2, y2) please: ');
readln(x2, y2);
writeln('Input right top point (x3,y3) please: ');
readln(x3,y3);
writeln('Input right bottom point (x4,y4) please: ');
readln(x4,y4);
if (x1 >= x3) or (x2 >= x4) or (y1 <= y2) or (y3 <= y4) then
  writeln('Prosili mnogo vhodnih dannih - polucite error')
else
  S := sqrt(sqr(x2-x1) + sqr(y2-y1))*sqrt(sqr(x1-x3) + sqr(y1-y3));
writeln('Lubuites'' resul''tatom : ', S);
writeln('Esli Uvideli nepravil''nii otvet - vvodite chisla pomen''she');
readln;
end.