Программа ** паскале: "Даны длина и ширина прямоугольников. Является ли он квадратом?"

Question

Программа на паскале:
"Даны длина и ширина прямоугольников. Является ли он квадратом?"

Comments

Вам нужно написать саму программу?

---

Да, где нужно указывать длину и ширину

Answer 1

 Program n_5;

 var
     a, b: real;

 begin
    write ('введите длину прямоугольника - ');
    readln (a);
    write ('введите ширину прямоугольника- ');
    readln (b);
    if a=b then
       write ('Данный прямоугольник является квадратом')
    else
       write ('Данный прямоугольник не является квадратом');
end.

Comments

Вбил программу в свой Pascal - работает

---

Для красоты можно поставить пробел перед тире во втором операторе write (я упустил из виду) и слова "введите" написать с большой буквы.
Программа не изменится, но красивее будет

---

В моём паскале всё работает. Спасибо, а то было лень разбираться с операторами if и else, потому что до сих пор не понимаю как это работает. Ещё раз, огромное спасибо!

---

Если это представить на русском языке, то мою программу можно читать так:
Если a=b тогда if a=b then
выведи ('текст') write ('текст')
Иначе {если а не равно b} else {если а не равно b}
выведи ('текст') write ('текст')

Можно составить что-то по-сложнее
Если a>b тогда if a>b then
вывод ('text') write ('text')
Иначе else
Если a вывод ('text') write ('text')
Иначе else {Если не подходит ни одно
условие из тех, что выше}
вывод ('text') write ('text')

Надеюсь, теперь немного понятно)