Всем привет, мне 14 лет, и я начинающий программист - Alukon. Если вы не смотрели предыдущие мои статьи, рекомендую вам их прочитать, ведь там вся основа моих знаний от Pascal. Давайте начнём!
Что ж, для начала мы установим формулу вычисления площади круга, то есть = π * радиус² : по другому π ( пи)=3.1415...; радиус²= радиус в квадрате.
Чтобы мы сообщили Pascal что это число в квадрате (x²) используется команда sqr, то есть sqr(радиус). Еще, если число в квадратном корне (√x), то команда sqrt, но она в этой статье нам не пригодится.
Формула вычисления длины круга: 2 * π(пи) * радиус.
Так как мы уже знаем формулу, можем приступать писать программу, которая подставляет данные под формулу.
- Для начала добавляем заголовок и название, а еще добавляем начало и конец алгоритмов.
- Принимаем данные, то есть в нашем случае радиус - переменная r.
- После строки где мы принимаем данные, мы расписываем формулы нахождения площади и длины. Вначале мы их писали.
- Теперь нам нужно вывести данные через две команды: write(P) - выводит нашу формулу длины круга. writeln(S) - выводит формулу площади круга.
Вы скорее всего спросите, почему я ввёл команду writeln(s) а не write(s). Дело в том, что если бы я ввёл для обеих выводов данных формул команду write(s) и write(p), то всё писало бы в одной строке. А если выписать команду writeln(s), то она выпишет вывод на первой строке, а write(p) на второй.
- Осталось только переписать команду var и перечисленные переменные во вторую строку, и присвоить тип данных:
В принципе, у нас всё готово. Осталось только запустить и ввести в вводе данных число, и нам выдаст два числа.
Если эта статья вам была полезна, подпишитесь, и поставьте лайк. А если возникли вопросы, то пишите в комментариях.
