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

📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода 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 раза

(*
Вариант для 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.

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

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

Источник

Begin2. Дана сторона квадрата $$a$$. Найти его площадь $$S=a^2$$.

Решение:

Delphi/Pascal

program Begin2;

var

S,a: Real;

begin

Write(‘Введите значение стороны квадрата: ‘);

Readln(a);

S:=Sqr(a);

Writeln(‘Площадь квадрата равна: ‘, S);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Источник

sldtvk

0 / 0 / 0

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

Сообщений: 68

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

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

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

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

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

Pascal

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.

Programming

Эксперт

94731 / 64177 / 26122

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

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

22.09.2021, 20:35

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

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

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

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

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

Puporev

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

64287 / 47586 / 32739

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

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

22.09.2021, 21:08

Pascal

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.

0 / 0 / 0

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

Сообщений: 68

22.09.2021, 21:26

[ТС]

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

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

64287 / 47586 / 32739

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

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

23.09.2021, 00:11

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

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

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

382 / 261 / 116

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

Сообщений: 953

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

23.09.2021, 07:33

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

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

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

2878 / 1533 / 619

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

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

23.09.2021, 09:14

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

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

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

382 / 261 / 116

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

Сообщений: 953

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

23.09.2021, 13:03

Сообщение от mr-Crocodile

не точнее

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

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

64287 / 47586 / 32739

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

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

23.09.2021, 14:28

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

XzzzX

23.09.2021, 15:58

Не по теме:

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

5056 / 2630 / 2345

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

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

23.09.2021, 16:25

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

Миниатюры

0 / 0 / 0

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

Сообщений: 68

23.09.2021, 19:29

[ТС]

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

Миниатюры

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

64287 / 47586 / 32739

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

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

23.09.2021, 20:16

Правильно.

Источник

Размещено 4 года назад по предмету
Информатика
от svetusik14

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

Ответ на вопрос

Ответ на вопрос дан
Булачка

program qq;
var a,s:integer;
begin
writeln(‘Введите сторону квадрата’);
read(a);
s:=a*a;
writeln(‘Площадь квадрата =’,s);
end.
Ответ на вопрос

Ответ на вопрос дан
sansanic

var a: real;

begin

readln(a); //Вводим сторону квадрата

writeln(‘Площадь квадрата равна: ‘, sqr(a)); //Выводится площадь квадрата

end.

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Источник

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.

Источник