- •Реализация алгоритмов в системе программирования turbo pascal 7.0 Учебное пособие
- •Тема 1 Алгоритмы и способы их описания
- •Тема 2 Этапы подготовки и решения задач на эвм
- •Тема 3 Начало работы в системе Turbo Pascal 7.0
- •Начало работы с новой программой
- •Задание 1
- •Сохранение текстового файла программы на диске
- •Задание 2
- •Задание 3
- •Задание 4
- •Тема 4 Ввод исходных данных и вывод результатов вычислений
- •Упражнение 1.
- •Тема 5 Реализация линейных алгоритмов
- •Сложные выражения
- •Задание
- •Тема 6 Программирование разветвляющихся алгоритмов
- •Задание 1
- •Задание 2
- •Тема 7 Циклические алгоритмы с известным числом повторений
- •Задание
- •Тема 8 Циклические алгоритмы с неизвестным числом повторений
- •Задания
- •Задание
- •Тема 10 Работа с массивами
- •Задание
- •Задание
- •Тема 12 Записи
- •Задания
- •Тема 13 Работа с файлами
- •Задания
- •Задания
- •Тема 15 Алгоритмы построения графика аналитически заданной функции
- •Задание
- •Тема 16 Анимация изображений
- •Задание 1
- •Задание 2
- •Тема 17 Численные методы вычисления определённого интеграла
- •1. Метод прямоугольников
- •2. Метод трапеций
- •3. Метод Симпсона
- •Задания
- •Тема 18 Численные методы решения нелинейных уравнений
- •Задания
- •Тема 19 Численные методы решения обыкновенных дифференциальных уравнений
- •Задание
- •Оглавление
- •Литература
Сохранение текстового файла программы на диске
|
Для сохранения файла следует выбрать пункт Save в разделе File главного меню.
После чего в открывшемся диалоговом окне выбрать каталог для сохранения файла и задать его имя. Расширение файла при этом писать не обязательно, система сама допишет *.pas при сохранении на диске.
Предварительно можно выбрать каталог по умолчанию с помощью пункта меню Change dir. |
Запуск программы на компиляцию и выполнение | |
Для компиляции и выполнения программы следует выбрать пункт Run раздела Run главного меню,или нажатием горячих клавиш Ctrl+F9. |
Окно пользователя (UserScreen) |
При отсутствии ошибок в тексте программы она будет скомпилирована и выполнена, результаты работы программы появятся в окне пользователя, которое можно просмотреть выбором пункта User Screen раздела Debug или нажатием горячих клавиш Alt+F5. |
Задание 2
Написать текст программы N2 в системеTurboPascal:
Uses Crt;
Var s : string;
Begin
Write(’Как Вас зовут ? ’);
Readln(s);
Writeln(’Привет, ’, s)
End.
Сохранить текст программы в своем каталоге в файле с именем Progr2.pas, выполнить компиляцию и запустить программу в работу. При выполнении программы от пользователя потребуется ввести с клавиатуры своё имя и нажать клавишуENTER. Результаты работы программы просмотреть нажатием горячих клавишAlt+F5.
Задать режим компиляции программы «На диск» – пункт Destination DiskразделаCompileглавного меню. Выполнить компиляцию (горячие клавишиCtrl-F9). После этого задать компиляцию последующих программ в памяти (Destination Memory).
Выйти из системы TurboPascal, найти в своей папке исполняемую программуProgr2.exeи проверить ее работу из операционной системыWindows.
Задание 3
Написать текст программы N3 в окне редактораTurboPascal:
Uses Crt;
Var x, y, z : real;
Begin
Write(’ x = ’);
Readln(x);
Write(’ y = ’);
Readln(y);
Z:= x + y;
Writeln(’ z = ’, z:10:2)
End.
Сохранить текст в своем каталоге в файле с именем Progr3.pas, выполнить компиляцию и пошаговое прохождение программы, для чего воспользоваться командойTrace into раздела менюRun (выполнение программы построчно с заходом во все процедуры пользователя). При многократном использовании этой команды следует пользоваться горячей клавишей –F7. Проследить в окне пользователя порядок выполнения строк программы.
В программе можно использовать комментарии– пояснительный текст, ограниченный символами{ }или(* *).Комментарий игнорируется компилятором и поэтому не оказывают влияния на выполнение программы. Обычно комментарии используют для пояснений смысла идентификаторов, операторов или частей программы.
Задание 4
Дополнить текст программы N3 операторами очистки экрана и задания цветов фона и текста, после чего выполнить программу.
Uses Crt; {использовать модуль CRT}
Var x, y, z : real;
Begin
TextColor(Yellow); {цвет символов - желтый}
TextBackground(Red);
ClrScr; {очистить экран красным цветом}
Write(’ x = ’);
Readln(x);
Write(’ y = ’);
Readln(y);
Z:= x + y;
Writeln(’ z = ’, z:10:2)
End.