Порядок выполнения работы. С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-2) для размещения файлов проекта

С помощью Проводника 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;

{исходные данные вводим как константы}

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= ;