Задать вопрос
5 января, 04:21

Напишите решение задачи в паскале:

Прямоугольник задан координатами левого верхнего и правого нижнего углов. Найти площадь и периметр. (С помощью вспомогательного алгоритма)

+5
Ответы (1)
  1. 5 января, 05:26
    0
    Var a, b, x1, x2, y1, y2, s, p: real;

    begin

    write ('Введите через пробел x1 и y1: ') ;

    read (x1, y1) ;

    write ('Введите через пробел x2 и y2: ') ;

    read (x2, y2) ;

    a:=x2-x1;

    b:=y1-y2;

    s:=a*b;

    p:=2 * (a+b) ;

    writeln ('S = ', s) ;

    writeln ('P = ', p) ;

    end.

    Делать подобное контрпродуктивно, слишком много ненужного кода.

    var x1, x2, y1, y2, s, p: real;

    function a (x1, x2: real) : real;

    begin

    a:=x2-x1;

    end;

    function b (y1, y2: real) : real;

    begin

    b:=y1-y2;

    end;

    begin

    write ('Введите через пробел x1 и y1: ') ;

    read (x1, y1) ;

    write ('Введите через пробел x2 и y2: ') ;

    read (x2, y2) ;

    s:=a (x1, x2) * b (y1, y2) ;

    p:=2 * (a (x1, x2) + b (y1, y2)) ;

    writeln ('S = ', s) ;

    writeln ('P = ', p) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Напишите решение задачи в паскале: Прямоугольник задан координатами левого верхнего и правого нижнего углов. Найти площадь и периметр. (С ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы