Как найти площадь квадрата pascal

Как найти площадь квадрата pascal

📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET

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

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

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

Программа “Вычисление периметра квадрата”

Задание:
Введите сторону квадрата. Найдите периметр. Выведите результат на экран.

Program Perimeter;
Var A, P : Integer;
begin
writeln(‘Программа вычисления периметра квадрата’);
write(‘Введите сторону ‘);
readln(A);
P := 4 * A;
writeln(‘Периметр квадрата равен ‘, P)
end.

Замечание:
В зависимости от компилятора языка Паскаль существуют различные ограничения на вводимые значения. Например, в Borland (Turbo) Pascal диапазон допустимых значений для Integer -32768..32767, а в Pascal ABC.NET -2147483648..2147483647

Программа “Вычисление площади квадрата”

Задание:
Введите сторону квадрата. Найдите площадь. Выведите результат на экран.

Program Square;
Var A, S : Real;
begin
writeln(‘Программа вычисления площади квадрата’);
write(‘Введите сторону ‘);
readln(A);
S := A * A;
writeln(‘Площадь квадрата равна ‘, S)
end.

Замечание:
Вместо S := A * A;
можно использовать функцию возведения в квадрат sqr
S := Sqr(A);

Программа “Вычисление периметра и площади квадрата”

Задание:
Введите сторону квадрата. Если введённое значение больше 0, то найдите площадь и периметр квадрата и выведите результаты на экран, иначе выведите сообщение об ошибке.

Program PS;
Var A, P, S : Real;
begin
writeln(‘Программа вычисления периметра и площади квадрата’);
write(‘Введите сторону ‘);
readln(A);
if A > 0 then begin
P := 4 * A;
S := Sqr(A);
writeln(‘Периметр квадрата равен ‘, P);
writeln(‘Площадь квадрата равна ‘, S)
end
else writeln(‘Ошибка. Сторона квадрата должна быть больше нуля’)
end.

Программа “Вычисление периметра и площади квадрата”. Вариант решения на PascalABC.NET

  • В программе отсутствуют устаревшие в PascalABC.NET конструкции.

    • В программе используются следующие рекомендованные конструкции PascalABC.NET:

  • Используются внутриблочные описания переменных: 3 раза
  • Используется инициализация при описании: 3 раза
  • Для ввода используется функция вида ReadInteger,ReadReal: 1 раз
  • Используется расширенное присваивание: 2 раза
  • Для вывода использована Print: 4 раза

Задание:
Введите сторону квадрата. Если введённое значение больше 0, то найдите площадь и периметр квадрата и выведите результаты на экран, иначе выведите сообщение об ошибке.

(*
Вариант для PascalABC.NET
*)
begin
Println(‘Программа вычисления периметра и площади квадрата’);
var A := ReadReal(‘Введите сторону ‘);
if A > 0 then begin
var P : Real := 4 * A;
var S : Real := Sqr(A);
Println(‘Периметр квадрата равен ‘, P);
Println(‘Площадь квадрата равна ‘, S)
end
else Println(‘Ошибка. Сторона квадрата должна быть больше нуля’)
end.

📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET

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

Рекламный блок

Информационный блок

Источник

Напишите, пожалуйста, программу на языке паскаль для вычисления площади и периметра квадрата



Ученик

(111),
закрыт



1 год назад

Ser@

Мастер

(1784)


12 лет назад

к первому ответу: у квадрата и ширина и длина одинаковы 😉 плюс не описаны переменные вообще
var n,s,p:integer;
begin
read(n);
s:=n*n;
p:=4*n;
writeln(s,’ ‘,p);
end.

Tina1980

Ученик

(233)


5 лет назад

Немного поздновато, но вдруг кому-то пригодится))

Program name;
Uses crt;
Var a, b, S, P :integer;
Begin
Clrscr;
Writeln (‘Даны стороны прямоугольника a и b.’);
Writeln (‘(1) Найти его площадь S=a*b.’);
Writeln (‘(2) Найти его периметр P=2*(a+b).’);
Write (‘Введите значение стороны а: ‘);
a := 0;
Readln (a);
Write (‘Введите значение стороны b: ‘);
b := 0;
Readln (b);
S := a*b;
P := 2*(a+b);
Writeln (‘(1) Площадь прямоугольника S=a*b =’, S);
Writeln (‘(2) Периметр прямоугольника P=2*(a+b) =’, P);
Readln (S, P);
End.

Илья Петренко

Ученик

(198)


4 месяца назад

Program SP;
var
a,s,p : real;
begin
writeln(‘Условие: Дано целое число a. Найти периметр и площадь квадрата со стороной a.’);
writeln; //пропуск
writeln(‘Введите сторону квадрата, a=:’);
readln(a);
s :=a*a;
p :=4*a;
writeln(‘Площадь=’, S);
writeln(‘Периметр=’, P);
readln();
end.

Источник

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

На этой странице сайта вы найдете ответы на вопрос Как написать программу для паскаля которая считает площадь квадрата?,
относящийся к категории Информатика. Сложность вопроса соответствует базовым
знаниям учеников 5 – 9 классов. Для получения дополнительной информации
найдите другие вопросы, относящимися к данной тематике, с помощью поисковой
системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и
задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям.
Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы
помогут найти нужную информацию.

Источник
var
  s : string;
  a, b : integer;
  ss : real;
begin
  write('введите площадь чего считать (например "треугольник": ');
  readln(s);
  if s = 'квадрат' then
  begin
    write('введите строну квадрата: ');
    readln(a);
    ss := a * a;
    writeln('площадь квадрата: ', ss:0:0)
  end
  else
    if s = 'прямоугольник' then
    begin
      write('введите 2 стороны прямоугольника: ');
      readln(a, b);
      ss := a * b;
      writeln('площадь прямоугольника: ', ss:0:0)
    end
    else
    if s = 'круг' then
    begin
      write('введите радиус круга: ');
      readln(a);
      ss := pi * a * a;
      writeln('площадь прямоугольника: ', ss:0:2)
    end
    else
    if s = 'треугольник' then
    begin
      write('введите основание и высоту треугольника: ');
      readln(a, b);
      ss := 0.5 * a * b;
      writeln('площадь треугольника: ', ss:0:2)
    end
    else writeln('неверно введено название фигуры');
  readln
end.

Источник

sldtvk

0 / 0 / 0

Регистрация: 20.09.2021

Сообщений: 68

1

Найти площадь и периметр квадрата

22.09.2021, 20:35. Показов 1405. Ответов 11

Метки нет (Все метки)

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

Срочно нужна помощь!
—
Задание:
Известны координаты вершин квадрата ABCD: A(x1,y1) и C(x2,y2).Найти его площадь и периметр.

Добавлено через 1 минуту
Вот мой код, но не знаю правильный он или нет..
—

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var x1,y1,x2,y2,s,p:real;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (x1-x2) = (y1-y2) then begin
s:=sqr(x1-x2);
p:=4*abs(x1-x2);
Writeln('S=',s:6:2);
Writeln('P=',p:6:2);
end
else writeln('ne kvadrat'); 
readln;
end.



0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

 22.09.2021, 20:35

Ответы с готовыми решениями:

Площадь квадрата равна S. Вычислить сторону квадрата а, диагональ d и площадь S1 описанного около этого квадрата круга
Напишите, пожалуйста, программу, через процедуру, максимально просто в PascalABC.net.

Дана площадь квадрата S, нужно найти сторону и диагональ квадрата
Начинающий в pascal-е, нужно написать следующую программу:
Дана площадь квадрата S, нужно…

Найти площадь и периметр шестиугольника
Помогите написать программу, площадь шестиугольника и периметр шестиугольника.

Найти периметр прямоугольника или площадь
С клавиатуры вводятся стороны прямоугольника А и В. Если В меньше или равно А, то найти периметр…

11

Puporev

Почетный модератор

64286 / 47585 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

22.09.2021, 21:08

2
Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13

var x1,y1,x2,y2,a,d,s,p:real;
begin
writeln('Введите координаты вершины А');
readln(x1,y1);
writeln('Введите координаты вершины C');
readln(x2,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));//диагональ
a:=d/sqrt(2);//сторона
s:=a*a;
p:=4*a;
Writeln('S=',s:0:2);
Writeln('P=',p:0:2);
end.



1

0 / 0 / 0

Регистрация: 20.09.2021

Сообщений: 68

22.09.2021, 21:26

 [ТС]

3

Не подскажите какие цифры можно вписать для проверки преподавателем? Напишите пожалуйста, если не трудно, буду очень благодарен



0

Почетный модератор

64286 / 47585 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

23.09.2021, 00:11

4

Цитата
Сообщение от sldtvk
Посмотреть сообщение

какие цифры можно вписать для проверки преподавателем?

Во первых не цифры, а числа, во вторых любые. Любые 2 точки на плоскости могут быть противоположными вершинами квадрата.



1

382 / 261 / 116

Регистрация: 09.07.2021

Сообщений: 952

Записей в блоге: 1

23.09.2021, 07:33

5

Цитата
Сообщение от Puporev
Посмотреть сообщение

Любые 2 точки на плоскости могут быть противоположными вершинами квадрата

прямоугольника, если быть точнее



0

2876 / 1532 / 618

Регистрация: 19.03.2019

Сообщений: 5,115

23.09.2021, 09:14

6

Цитата
Сообщение от XzzzX
Посмотреть сообщение

прямоугольника, если быть точнее

не точнее. Именно квадрата. См. условия задачи.



0

382 / 261 / 116

Регистрация: 09.07.2021

Сообщений: 952

Записей в блоге: 1

23.09.2021, 13:03

7

Цитата
Сообщение от mr-Crocodile
Посмотреть сообщение

не точнее

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



0

Почетный модератор

64286 / 47585 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

23.09.2021, 14:28

8

XzzzX, До Вас видимо не доходит что любые 2 точки могут быть противоположными вершнами квадрата и никакб прверку прозводить не нужно.



0

XzzzX

23.09.2021, 15:58

Не по теме:

проехали. мне лень спорить



0

5056 / 2630 / 2345

Регистрация: 10.12.2014

Сообщений: 9,993

23.09.2021, 16:25

10

XzzzX, программа ТС подразумевала, что стороны параллельны осям координат.
А программа Puporev универсальна.
Вот смотрите на картинке:
красные — точки (x1,y1) и (x2,y2)
синий — диагональ квадрата d
чёрный — собственно он сам со стороной a

Миниатюры

Найти площадь и периметр квадрата
 



0

0 / 0 / 0

Регистрация: 20.09.2021

Сообщений: 68

23.09.2021, 19:29

 [ТС]

11

Можете посмотреть, правильные ответы у меня получились? Заранее спасибо!

Миниатюры

Найти площадь и периметр квадрата
 



0

Почетный модератор

64286 / 47585 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

23.09.2021, 20:16

12

Правильно.



0
Источник

Добавить комментарий