Как найти периметр в pascal abc

Прямоугольник – четырехугольник, у которого все углы прямые (равны 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.

Перейти к содержанию

var

	a,b,c: word;

	w,h: word;

	r: word;

	P,S: real;

begin

	readln(a,b,c);

	P := (a + b + c) / 2;

	S := sqrt(P * (P - a) * (P - b) * (P - c));

	writeln('P=',a+b+c,'; S=',S:5:2);

 
	readln(w,h);

	writeln('P=',(w+h)*2,'; S=',w*h);

 
	readln(r);

	P := 2 * pi * r;

	S := pi * r * r;

	writeln('P=',P:5:2,'; S=',S:5:2);

end.

5 3 5

P=13; S= 7.15

3 9

P=24; S=27

5

P=31.42; S=78.54

#include 

#include 

 
#define PI 3.14159

 
main() {

	int a,b,c;

	float p,S;

	printf("Длины сторон треугольника: "); 

	scanf("%d%d%d", &a,&b,&c);

	p = (a+b+c)/2;

	S = sqrt(p*(p-a)*(p-b)*(p-c));

	printf("P = %d; S = %.2fnn", (a+b+c), S);

	printf("Ширина и высота прямоугольника: ");

	scanf("%d%d", &a,&b);

	printf("P = %d; S = %dnn", (a+b)*2, a*b);

	printf("Радиус круга: ");

	scanf("%d", &a);

	printf("P = %.2f; S = %.2fn", 2*PI*a, PI*pow(a,2));

}

Длины сторон треугольника: 4 4 6

P = 14; S = 7.94

 
Ширина и высота прямоугольника: 2 5

P = 14; S = 10

 
Радиус круга: 3

P = 18.85; S = 28.27

import math

 
print("Введите длины сторон треугольника: ")

a = int(input("a="))

b = int(input("b="))

c = int(input("c="))

p = (a+b+c)/2

s = math.sqrt(p*(p-a)*(p-b)*(p-c))

print("P=%d; S=%.2f" % (a+b+c, s))

 
print("Введите длины сторон прямоугольника: ")

a = int(input("a="))

b = int(input("b="))

print("P=%d; S=%d" % ((a+b)*2, a*b))

 
print("Введите радиус круга: ")

r = int(input("r="))

print("P=%.2f; S=%.2f" % (2*math.pi*r, math.pi*r**2))

Введите длины сторон треугольника: 

a=2

b=4

c=3

P=9; S=2.90

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

a=6

b=7

P=26; S=42

Введите радиус круга: 

r=3

P=18.85; S=28.27

алг фигуры

нач

  цел a,b,c

  ввод a, b, c

  вещ p, S

  p := (a+b+c)/2

  S := sqrt(p*(p-a)*(p-b)*(p-c))

  вывод "P=", p*2, "; S=", S, нс

 
  цел w, h

  ввод w, h

  вывод "P=", (w+h)*2, "; S=", w*h, нс

 
  цел r

  ввод r

  p := 2 * 3.14 * r

  S := 3.14 * r**2

  вывод "P=", p, "; S=", S, нс

кон

5 7 9

P=21; S=17.41228

4 9

P=26; S=36

5

P=31.4; S=78.5

# найти площади и периметры геометрических фигур

decimal 2

# треугольник

print "ТРЕУГОЛЬНИК"

input "    первая сторона: ", a

input "    вторая сторона: ", b

input "    третья сторона: ", c

p = a + b + c

print "Периметр: " + p

p = p / 2

s = sqr(p*(p-a)*(p-b)*(p-c))

print "Площадь: " + s

print

# прямоугольник

print "ПРЯМОУГОЛЬНИК"

input "    ширина: ", a

input "    высота: ", b

print "Периметр: " + ((a + b) * 2)

print "Площадь: " + (a * b)

print

# круг

print "КРУГ"

input "     радиус: ", r

print "Периметр: " + (2 * pi * r)

print "Площадь: " + (pi * r^2)

ТРЕУГОЛЬНИК

    первая сторона: 5

    вторая сторона: 5

    третья сторона: 5

Периметр: 15

Площадь: 10.83

 
ПРЯМОУГОЛЬНИК

    ширина: 5

    высота: 5

Периметр: 20

Площадь: 25

 
КРУГ

     радиус: 5

Периметр: 31.42

Площадь: 78.54

Введение в Паскаль

Здравствуйте! Сегодня мы с вами попробуем написать первую программу на языке Pascal. Язык Паскаль довольно прост в своем синтаксисе и структуре алгоритмов. Однако, советую время от времени заглядывать в раздел Теория, где можно найти более подробную информации о языке.

Итак, напишем программу, которая будет выводить на экран монитора не банальное «Hello world», а вычислять периметр прямоугольника и выводить его значение.

Любая программа, написанная на Pascal, должна начинаться со слова program, за которым следует имя программы. Имя может быть любым (более подробно читайте тут). Регистр написания букв в Pascal значения не имеет, т.е. PROGRAM и program и даже PrOgRaM будут иметь одинаковое значение. Однако, всегда старайтесь сделать код читаемым, чтобы другим программистам при необходимости было удобно его править.

Предположим, мы хотим назвать программу Perimetr, тогда первая строка будет выглядеть следующим образом:
program Perimetr;

Не следует забывать ставить пробел между словами, иначе компилятор выдаст ошибку, и программа не запустится. Также обратите внимание на точку с запятой в конце строки кода. Она ставится в конце практически всех строк программы (но не везде). Позже я приведу один из примеров, где ее ставить не нужно.

Вернемся к нашему коду. Первая строка с названием программы готова. Далее нужно описать все переменные, которые будут использоваться в нашей программе. Запомни: описание переменных всегда начинается со служебного слова var. У нас в программе для вычисления периметра прямоугольника будут задействованы 3 переменные, а именно:

1. переменная a — ширина прямоугольника
2. переменная b — длина прямоугольника
3. переменная p — периметр

Все эти переменные будут целого типа integer (подробнее о типах данных тут). После слова var через запятую перечисляются переменные, затем ставится знак :, после которого указывается тип данных этих переменных. В конце строки ставится знак ;. Вместе две строки кода выглядят следующим образом:

program Perimetr;
var a,b,p:integer;

Хочу сделать небольшое отступление и сказать, что для удобства и лучшей читаемости кода программы, вы можете пользоваться переносом строки и выравниванием кода с помощью табуляции и пробелов. Например, описание переменных можно было написать в две строки, вот так:

var
   a,b,p:integer;

Далее пойдет основной раздел программы (тело). В нем напишем алгоритм для вычисления периметра и выведем его значение на экран. Основной раздел начинается со служебного слова begin, а заканчивается словом end.(обязательно с точкой в конце, она символизирует окончание кода программы). Между begin и end помещается основной код программы, содержащий различные операции. После слова begin ставить ; не нужно. Однако, если все же поставить, то ошибки не будет — компилятор воспримет это как пустой оператор. Прежде чем вычислить периметр, нужно задать длину и ширину нашего прямоугольника, т.е. присвоить значения переменным a и b. В Pascal знак присваивания выглядит следующим образом := (двоеточие и равно без всяких пробелов). Допустим, ширина у нас равна 5, а длина 7, тогда код получится такой:

a:=5;
b:=7;

Думаю, тут все понятно. Не забываем про точку с запятой в конце строк. Далее нам нужно вычислить периметр, для этого воспользуемся формулой

p:=2*(a+b);

Не забывайте ставить знаки умножения! 2*a и 2a — это две совершенно разные записи. После всех проделанных операций получился вот такой код:

program Perimetr;
var a,b,p:integer;
begin
      a:=5;
      b:=7;
      p:=2*(a+b);
end.

Осталось дополнить код программы алгоритмом вывода результата на экран. Для того чтобы вывести что-нибудь на экран, используют оператор write или writeln. Более подробно о них в следующем уроке. Сейчас же просто допишем седьмой строкой кода:

write(p);

Готовый код программы:

program Perimetr;
var a,b,p:integer;
begin
      a:=5;
      b:=7;
      p:=2*(a+b);
      write(p);
end.

Осталось только запустить программу и проверить результат. Так же вы можете изменить значения переменных a и b на свой вкус и проверить уже новый результат. Если возникли какие-то вопросы, не стесняйтесь задавать их, контакты для связи со мной находятся здесь. Если вопросов нет — жду вас на следующем уроке. Всего доброго!