Читайте также:
|
Лабораторная работа № 2
ВЫРАЖЕНИЯ
Цель работы –ознакомление со структурой одномодульных программ и простейшей реализацией ввода исходных величин и вывода результатов счета; приобретение навыков записи арифметических выражений.
Постановка задачи: вычислить значение арифметического выражения Y.
Пример
при x = 3.5; z = 10-5; b = 4.
Стандартные арифметические функции (модуль Math)
Abs(x) LogN(N,x) Exp(x)
Ceil(x) Max(x,y) ArcCos(x)
Floor(x) Min(x,y) ArcSin(x)
DivMod(x,y,rz,rm) Pi ArcTan(x)
Frac(x) Power(x,y) ArcCot(x)
Int(x) Round(x) Cos(x)
Ln(x) Sign(x) Sin(x)
Log10(x) Sqr(x) Cotan(x)
Log2(x) Sqrt(x) Cot(x)
Порядок выполнения работы
С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-2) для размещения файлов проекта.
Создать проект консольного приложения Delphi.
Командой меню «Пуск / Borland Delphi 7 / Delphi 7» (или аналогичной командой) запустите интегрированную среду программирования Delphi.
В появившемся основном окне Delphi выберите команду меню «File / New / Other…»
В окне «New Items» выберите пиктограмму мастера создания консольного приложения «Console Application» и нажмите кнопку «ОК»
Появится окно редактора консольного приложения
Сохраните файлы проекта в раннее созданную папку Ivanov-2 с помощью команды основного меню «File / Save Project As…»:
В окне «Save Project As» с помощью списка «Папка» перейти в папку проекта Ivanov-2 нажать кнопку «Сохранить»
В результате файлы проекта Project2 будут сохранены в папку Ivanov-2 и Вы в дальнейшем сможете легко отыскать проект на жестком диске для продолжения работы с ним, скопировать папку на дискету для переноса проекта на другой компьютер и т.д.
Редактирование текста главной программы.
Внесите необходимые изменения в текст консольного приложения. Разместите группу операторов объявления констант и переменных до ключевого слова Begin, а выполняемые операторы вместо (или после) комментария {TODO…}.
program Project2;
{$APPTYPE CONSOLE}
Uses
SysUtils, Math;
{исходные данные вводим как константы}
CONST
x=3.5;
z=1e-5;
b=4;
VAR
ch,zn,y:real; {числитель, знаменатель дроби, результат }
begin
{ TODO -oUser -cConsole Main: Insert code here }
ch:=exp(x)+exp(6*ln(z))-4.5E2*sqrt(x); {числитель для Y}
zn:=exp(x*ln(z))+exp(3.5*ln(b)); {знаменатель}
y:=ch/zn; {значение Y }
WriteLn('Arithmetic expression: Y=',y:8:4); {вывод результатов на экран}
WriteLn (' Press "ENTER" to continue');
ReadLn; {задержка экрана}
end.
Директива компилятора {$APPTYPE CONSOLE} свидетельствует о типе нашего приложения, и ее необходимо оставить без изменений.
Выполнение консольного приложения.
Командой меню «Run / Run» (горячая клавиша F9) запустите приложение на выполнение.
В результате запускаются компилятор (синтаксический анализ текста) и редактор связей (подключение стандартных модулей) для построения выполняемого файла. Если ошибки отсутствуют, то приложение выполняется, и появляется консольное окно с результатами расчета:
При наличии ошибок в тексте программы ход компиляции и построения выполняемого файла будет остановлен. В этом случае необходимо исправить ошибки и повторить
пункт 4.1.
Консольное окно можно скопировать в память Clipboard (комбинация клавиш Alt-PrtSc) для внесения в текст отчета о лабораторной работе в редакторе Word (Alt-Shift или Ctrl-V).
Для экономии краски принтера при печати документа отчета можно инвертировать изображение консольного окна, например, с помощью стандартной программы Paint.
В окне программы Paint вставьте рисунок из буфера обмена Shift-Insert.
Обратите цвета рисунка с помощью команды «Рисунок \ Обратить цвета».
Инвертированное изображение скопируйте снова в буфер обмена Ctrl-Insert.
Активизируйте документ отчета и снова вставьте рисунок из буфера обмена Shift-Insert.
Завершите выполнение консольного приложения нажатием клавиши «Enter» (при активном окне консоли).
Сохраните все изменения командой меню «File / Save All»
Завершите работу интегрированной среды разработки программного обеспечения Delphi командой меню «File / Exit»
Сохраните папку с файлами проекта на дискету.
Варианты заданий
1. Y= 
;
2. Y= 
3. Y= 
4. Y= 
5. Y= 
6. Y= 
;
7. Y= 
8. Y= 
9. Y= 
10. Y= 
;
11. Y= 
;
12. Y= 
;
13. Y= 
;
14. Y= 
;
15. Y= 
;
16. Y= 
;
17. Y= 
;
18. Y= 
19. Y= 
;
20. Y= 
21. Y= 
;
22. Y= 
23. Y= 
24. Y= 
25. Y= 
;
26. Y= 
;
27.Y= 
;
28. Y= 
;
29. Y= 
;
30. Y= 
;
Дата добавления: 2015-07-08; просмотров: 384 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Контрольные задания | | | Выписки из путевых журналов работы судов |