Составить программу, которая вычисляет площадь круга по его радиусу.
Используем формулу

Решение.
Алгоритм задачи несложен, имеет линейную структуру.
"Переведем" этот алгоритм на язык Паскаль.
Вначале стоит дать программе название. Например, так:
Program Krug;
Обязательно нужно описать все переменные, которые будут использованы в программе. Таких переменных у нас две: r и S. Определим их тип. Это числа, но r по смыслу задачи вовсе не обязательно будет целым числом, а S в результате вычислений тем более целым вряд ли получится.
Раз целый тип не подходит, выбираем тип real (вещественные числа).
Program Krug;
Var
r, S : real;
Теперь между Begin и End записываем команды программы - они полностью соответствуют блокам на схеме алгоритма. В фигурных скобках рядом с командами записаны комментарии - они поясняют текст программы и никак не влияют на ее выполнение.
Program Krug;
Var
r, S : real;
Begin
readln (r); {ввод r}
S := 3.14 * r * r ;
writeln (S); {вывод S}
End .
Напишем текст программы в среде ПаскальАВС:
Для запуска программы нужно нажать клавишу F9 или щелкнуть в панели инструментов кнопку в виде зеленого треугольника. Результат работы программы (ввод и вывод) отображается в окне вывода.
Первая команда, которая начинает выполняться после запуска программы, это readln(r). Выполнение программы приостанавливается, появляется окно ввода и программа ожидает ввода информации пользователем.
Данные, которые пользователь набирает на клавиатуре, дублируются в окне вывода. Но пока не нажата клавиша Enter, в окне ввода продолжает мигать курсор, и записанную там информацию можно стирать и изменять.
После нажатия клавиши Enter введенная информация помещается в соответствующую переменную. В нашем случае переменная r принимает значение 2. Затем программа продолжает свою работу: выполняется команда присваивания (переменная S получает значение, рассчитанное по формуле, записанной справа от знака :=) и команда вывода (значение переменной S появляется на экране). Программа завершена.
Программа правильно производит вычисления, но с ней не очень удобно работать - на экране отсутствуют какие-либо пояснения. Добавим их с помощью оператора вывода.
Начнем с приглашения к вводу значения радиуса. Вставим в программу следующую строку:
Выводимый на экран текст пишется в одинарных кавычках - апострофах (на клавиатуре апостроф набирается в английской раскладке, а находится на той же клавише, что и русская буква Э). Оператор вывода используется без добавления "ln", значит, следующий за ним текст (вводимое пользователем число) появится на экране в той же строке.
Выполним программу еще раз. Теперь на экране увидим:
Замечаем, что вводимое пользователем число "приклеивается" к двоеточию. Чтобы этого не происходило, нужно в операторе вывода до закрывающего апострофа добавить пробел после двоеточия:
Так как пробел мы поставили внутри апострофов, то он будет выведен на экран вместе с остальным текстом:
Теперь улучшим вывод результата. Изменим соответствующий оператор, добавив в список вывода, помимо переменной S, еще две текстовые константы (первая строка на рисунке подчеркнута красным, вторая - розовым). Напомню, что каждая текстовая константа должна быть заключена в апострофы; не забудем также добавить пробелы в нужных местах, чтобы строки не приклеились к значению переменной S.
В окончательном варианте программа работает так:
Комментариев нет:
Отправить комментарий