8.3. Оператор ввода
Оператор ввода обеспечивает программу исходными данными, необходимыми для решения задачи. Данные вводятся с клавиатуры непосредственно в процессе выполнения программы в режиме диалога с ЭВМ.
Для ввода используются операторы в виде:
Readln(a1,a2,...,an); {После ввода происходит переход к началу новой строки данных}
Read(a1,a2,...,an); {После ввода не происходит переход к началу новой строки данных}
Readln; {Переход к началу новой строки данных}
Первые два оператора обеспечивают ввод данных переменным a1,a2,...,an. Типы вводимых значений должны соответствовать типам вводимых переменных.
Числа при вводе должны отделяться друг от друга пробелами или нажатием клавиши Enter.
Третий оператор Readln; обеспечивает пропуск одной строки и переход к началу новой строки данных.
Примеры:
Read(a,b);
Readln(c,d,e,f);
9. Порядок подготовки и решение задач
Подготовка и решение задач состоит из двух этапов:
1. Подготовка задачи до применения ЭВМ.
2. Создание программы, ее отладка и выполнение на ЭВМ.
Порядок подготовки и решения задачи рассмотрим на контрольном примере.
Пример.
Даны три действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.
9.1. Подготовка задачи до применения ЭВМ
1. Математическая постановка задачи
1.1. Дано: a, b, c.
1.2. Определение зависимостей, необходимых для решения задачи.
Введем обозначения:
x - среднее арифметическое;
y - среднее геометрическое.
x=(a+b+c)/3
y=(a*b*c)^(1/3)
1.3. Ограничения:a>0,b>0,c>0.
1.4. Найти x,y.
2. Разработка схемы алгоритма
---1--------
Начало
------T-----
-----2--+-------¬ --
¦Подсказка ¦ ¦ Введите три
¦ +- - -+ положительных
¦ ¦ числа
¦ L-
¦
3 ¦
¦ a,b,c ¦
L-------T--------
-----4--+-------¬
¦ ¦
¦ x=(a+b+c)/3 ¦
¦ ¦
L-------T--------
-----5--+-------¬
¦ ¦
¦y=(a*b*c)^(1/3)¦
¦ ¦
L-------T--------
-----6--+-------¬
¦ x,y ¦
¦ ¦
¦
¦
---7--+------
Конец
-------------
3. Составление программы
{ Найти среднее арифметическое и среднее геометрическое для трех заданных положительных чисел.
Программист Удальцов В.А.
Дата 03.08.1995 года}
Program sarig;
var
a,b,c,x,y:real;
Begin
Writeln('Введите три положительных числа a,b,c');{Вывод подсказки на экране о том, что надо сделать}
Readln(a,b,c);{Ввод значений для переменных a,b,c}
Writeln('a=',a:4:1,' ':3,'b=',b:5:2,' ':3,'c=',c:4:1);{Вывод исходных данных для контроля введенных значений }
x=(a+b+c)/3;{Вычисления значения х}
y=exp(1/3*ln(a*b*c));{Вычисления значения y}
Writeln('Среднее арифметическое =',x:6:2);{Вывод значения х}
Writeln('Среднее геометрическое=',y:6:2) {Вывод значения y}
end.
9.2. Создание, отладка и выполнение программы на ЭВМ
Создание программы на ЭВМ представляет собой последовательность стандартных шагов: ввести программу, сохранить, отредактировать и выполнить. Эта последовательность определяет общий сценарий разработки практически любой программы. Рассмотрим, как можно выполнить любой из этих шагов в Turbo Pascal 6.0.
9.2.1. Создание программы на ЭВМ
После запуска системы Turbo Pascal надо войти в редактор. Для этого воспользуйтесь одним из способов:
- нажмите три клавиши одновременно Alt-F-N;
- нажмите три клавиши одновременно Alt-F-O. В появившейся заставке наберите имя своего файла ;
- нажмите клавишу F10. Клавишами горизонтального перемещения курсора выберите режим File. Нажмите Enter. Клавишами вертикального перемещения курсора выберите процедуру New или Open и нажмите Enter.
Далее в редакторе введите исходный текст вашей программы.
В текстовом редакторе можно передвигать курсор вверх и вниз, вправо и влево с помощью клавиш горизонтального и вертикального перемещения курсора. Каждую строку программы заканчивайте нажатием клавиши Enter.
При этом курсор перейдет на начало следующей строки.
Если вы случайно пропустили некоторую строку программы, то подведите курсор к концу той строки, после которой должна быть вставка, и нажмите клавишу Enter. Все строки, расположенные ниже курсора, переместятся вниз, оставив пустую строку. Курсор переместится в первую позицию пустой строки.
Если вам необходимо удалить некоторую строку, то подведите к ней курсор и нажмите одновременно клавиши Ctrl-Y.
Для вставки символа в любом месте следует подвести курсор к тому символу, перед которым необходимо осуществить вставку, убедиться в том, что режим вставки включен (включается и выключается клавишей <0> (<Ins>)) на цифровой клавиатуре и набираете на клавиатуре вставляемый символ или последовательность символов. Если режим вставки не включен, то вы запишите вставляемые символы вместо уже имеющихся. Индикатором того, что режим вставки включен, является наличие слова Insert во второй строке экрана Турбо-среды.
Если вам надо удалить символ в любом месте, то подведите к нему курсор и нажмите на клавишу <.> (<Del>). Символ будет удален, а все оставшиеся после курсора символы сдвинутся влево.
9.2.2. Сохранение программы на диске
Созданную программу следует сохранить на диске для последующего ее использования.
Сохранение программы можно осуществить разными способами:
- нажать клавишу F2;
- нажать сочетание клавиш Alt-F-S;
- выйти в главное меню нажатием клавиши F10, выбрать режим File и нажать клавишу Enter, выбрать процедуру Save и нажать клавишу Enter.
Если имя файла не определено, то появится заставка, где следует набрать имя файла. С указанным именем текст программы будет хранится на диске.
9.2.3. Запуск программы на решение
После набора программы и сохранения на диске запуск ее на решение осуществите нажатием клавиш Ctrl-F9. Программа вначале пройдет этап трансляции и, если нет ошибок в программе, то запустится на решение.
Если транслятор обнаружит ошибки, то их следует найти и исправить в редакторе, а затем по новой запустить программу на решение.
Выполнение программы будет осуществляться в следующей последовательности.
По первому оператору Writeln на экране появится подсказка в виде:
Введите три положительных числа a,b,c
Оператор Readln требует ввода численных значений для трех переменных a,b и c.
Вводите значения чисел, разделяя их пробелом. Например: