Как найти площадь прямоугольника паскаль программа - Исправление недочетов и поиск решений вместе с Examum.ru

Напишем программу, которая будет вычислять площадь и периметр прямоугольника со сторонами (5) см и (8) см.

Входные данные в задаче:

(a=5) см;

(b=8) см.

На выходе мы должны получить:

(S) — площадь прямоугольника;

(P) — периметр прямоугольника.

Для вычислений будем использовать формулы из курса математики:

S=a×b,P=2×(a+b)

Напишем программу:

С помощью данной программы мы найдем площадь и периметр прямоугольника.

В окне вывода увидим следующее:

Данная программа не универсальна для некоторого класса задач, а это противоречит свойствам алгоритма. Программа работает только для одного конкретного прямоугольника со сторонами (5) см и (8) см. Для того, чтобы программа могла находить площадь и периметр для любого прямоугольника, необходимо добавить в неё оператора ввода.

Источник

Прямоугольник – четырехугольник, у которого все углы прямые (равны 90 градусам).

Площадь прямоугольника

Для вычисления площади прямоугольника необходимо умножить его длину на ширину:

S = a×b

{$CODEPAGE UTF8}
program RectangleArea;
var sideA, sideB, area: integer;
begin
    write('Длина: ');
    readln(sideA);
    write('Ширина: ');
    readln(sideB);
    area := sideA * sideB;
    writeln('Площадь прямоугольника: ', area);
    readln;
end.

Периметр прямоугольника

Для вычисления периметра прямоугольника необходимо сложить длины всех его сторон:

P = a + b + a + b = 2×a + 2×b = 2×(a + b)

{$CODEPAGE UTF8}
program RectanglePerimeter;
var sideA, sideB, perimeter: integer;
begin
    write('Длина: ');
    readln(sideA);
    write('Ширина: ');
    readln(sideB);
    perimeter := (sideA + sideB) * 2;
    writeln('Периметр прямоугольника: ', perimeter);
    readln;
end.

Смотрите также:

Источник

Процедуры и функции. Тексты программ

Материал из Вики проекта PascalABC.NET

Перейти к навигацииПерейти к поиску

Вычисление площади и периметра прямоугольника

procedure RectSP(a,b: real; var S,P:real);
begin
  S := a * b;
  P := a + b;
end;

var 
  x,y: real; // Стороны прямоугольника
  S: real;   // Площадь прямоугольника
  P: real;   // Периметр прямоугольника 

begin
  write('Введите стороны прямоугольника: ');
  readln(x,y);
  RectSP(x,y,S,P);
  writeln('Площадь равна ',S);
  writeln('Периметр равен ',P);
end.

Табулирование функции

function f(x: real): real;
begin
  Result := x*x - 2*x + 3;
end;

var 
  a,b: real; // [a,b] - отрезок, на котором табулируется функция f(x)
  N: integer;   // Количество частей, на которые разбивается [a,b]

begin
  write('Введите a,b: ');
  readln(a,b);
  write('Введите N: ');
  readln(N);
  
  var h := (b-a)/N;
  var x := a;
  writeln('x     f(x)');
  for var i:=0 to N do
  begin
    writelnFormat('{0,3:f1} {1,6:f2} ',x,f(x));
    x += h;  
  end;
end.

Функция вычисления aⁿ

function Power(a: real; n: integer): real;
begin
  Result := 1;
  for var i:=1 to n do
    Result *= a;
end;

var 
  a: real; 
  n: integer;   

begin
  write('Введите a: ');
  readln(a);
  write('Введите n: ');
  readln(n);
  writelnFormat('{0} в степени {1} = {2}',a,n,Power(a,n));  
end.

Функция вычисления n!

function Factorial(n: integer): integer;
begin
  Result := 1;
  for var i:=2 to n do
    Result *= i;
end;

var n: integer;   

begin
  write('Введите n: ');
  readln(n);
  writelnFormat('{0}! = {1}',n,Factorial(n));  
end.

Функция, преобразующая цифру к ее словесному наименованию

function DigitName(n: integer): string;
begin
  case n of
  0: Result := 'ноль';
  1: Result := 'один';
  2: Result := 'два';
  3: Result := 'три';
  4: Result := 'четыре';
  5: Result := 'пять';
  6: Result := 'шесть';
  7: Result := 'семь';
  8: Result := 'восемь';
  9: Result := 'девять';
  end;
end;

begin
  writeln(DigitName(3));
  writeln(DigitName(5));
  writeln(DigitName(7));
end.

Функция проверки числа на четность

function Even(x: integer): boolean;
begin
  Result := x mod 2 = 0
end;

begin
  writeln(Even(3));
  writeln(Even(4));
  writeln(Even(7));
end.

Функция определения простоты числа

function IsSimple(N: integer): boolean;
begin
  Result := True;
  for var i:=2 to round(sqrt(N)) do 
    if N mod i = 0 then
    begin
      Result := False;
      exit;
    end;
end;

begin
  writeln(IsSimple(13));
  writeln(IsSimple(4));
  writeln(IsSimple(7));
end.

Функция вычисления n-того числа Фибоначчи

function Fib(N: integer): integer;
begin
  if (N=1) or (n=2) then
    Result := 1
  else  
  begin
    var a := 1;
    var b := 1;
    for var i:=3 to N do 
    begin
      Result := a + b;
      a := b;
      b := Result;
    end;
  end;
end;

begin
  writeln(Fib(5));
  writeln(Fib(6));
  writeln(Fib(7));
end.

Функция определения НОД числа

function NOD(a,b: integer): integer;
begin
  while b<>0 do
  begin
    var c := a mod b;
    a := b;
    b := c;
  end;
  Result := a;
end;

var x,y: integer;

begin
  x := 15; y := 12;
  writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
  x := 144; y := 64;
  writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
  x := 99; y := 54;
  writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
end.

Процедура вывода таблицы умножения

procedure Pifagor(n: integer);
begin
  for var i:=1 to n do
  begin
    for var j:=1 to n do
      write(i*j:4);
    writeln;
  end;
end;

begin
  Pifagor(15);
end.

Ссылки

Программы для начинающих
Сайт PascalABC.NET: Программы и алгоритмы для начинающих

Источник

Рассчитать площадь и периметр прямоугольника

Площадь прямоугольника вычисляется как произведение длин сторон, а периметр, как удвоенная сумма длин сторон.

Исходные данные: a,b — целые числа (тип integer), длины сторон прямоугольника
Выходные данные: s,p — целые числа (тип integer), площадь прямоугольника, периметр прямоугольника.

Программа решения на языке Паскаль:

Var a,b,s,p:integer;

begin

readln(a,b);

s:=a*b;

p:=2*(a+b);

writeln(‘площадь = ‘,s);

writeln(‘периметр = ‘,p);

end.

Источник

Для вычисления площади прямоугольника необходимо умножить его длину на ширину:S = a×b

program RectangleArea;
var sideA, sideB, area: integer;
begin
    write('Длина: ');
    readln(sideA);
    write('Ширина: ');
    readln(sideB);
    area := sideA * sideB;
    writeln('Площадь прямоугольника: ', area);
    readln;
end.

Площадь прямоугольника

Периметр прямоугольника

Смотрите также:

Процедуры и функции. Тексты программ

Вычисление площади и периметра прямоугольника

Табулирование функции

Функция вычисления an

Функция вычисления n!

Функция, преобразующая цифру к ее словесному наименованию

Функция проверки числа на четность

Функция определения простоты числа

Функция вычисления n-того числа Фибоначчи

Функция определения НОД числа

Процедура вывода таблицы умножения

Ссылки

Рассчитать площадь и периметр прямоугольника

Программа решения на языке Паскаль:

Похожие записи/страницы:

Функция вычисления aⁿ