Порядок выполнения работы

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

2. Создать проект консольного приложения Delphi.

1. Сохраните файлы проекта в раннее созданную папку Ivanov-1 с помощью команды основного меню «File / Save Project As…»:

2. В окне «Save Project As» с помощью списка «Папка» перейти в папку проекта Ivanov-1 и нажать кнопку «Сохранить»

3. В результате файлы проекта Project2 будут сохранены в папку Ivanov-1, и Вы в дальнейшем сможете легко отыскать проект на жестком диске для продолжения работы с ним, скопировать папку на дискету для переноса проекта на другой компьютер и т.д.

1. Редактирование текста главной программы.

   1. Внесите необходимые изменения в текст консольного приложения. Разместите объявления констант и переменных до ключевого слова Begin, а выполняемые операторы вместо (или после) комментария {TODO…}.

program Project2;

{$APPTYPE CONSOLE}

CONST

LOG=TRUE;

VAR

K,M,N : INTEGER;

X,Y : REAL;

S1,S2,S3 : CHAR;

Uses

SysUtils;

begin

{ TODO -oUser -cConsole Main : Insert code here }

WriteLn (' Type integer numbers K, M, N through space');

ReadLn (K, M, N);

WriteLn;

WriteLn (' ':20,'Integer numbers');

WriteLn (' ':5,'Formatted output',' ':10,'Unformatted output');

WriteLn (' ':10,'K=',K:5,' ':20,'K=',K); WriteLn (' ':10,'M=',M:5,' ':20,'M=',M);

WriteLn (' ':10,'N=',N:5,' ':20,'N=',N);

WriteLn;

WriteLn (' Type real numbers X, Y through space');

ReadLn (X,Y);

WriteLn ;

WriteLn (' ':20,'Real numbers');

WriteLn (' ':5,'Formatted output',' ':10,'Unformatted output');

WriteLn (' ':10,'X=',X:8:4,' ':15,'X=',X);

WriteLn (' ':10,'Y=',Y:8:4,' ':15,'Y=',Y);

WriteLn;

WriteLn (' Type char numbers S1, S2, S3 through space');

WRITE (' s1='); ReadLn(S1);

WRITE (' s2='); ReadLn(S2);

WRITE (' s3='); ReadLn(S3);

WriteLn ;

WriteLn (' ':20,'Char data');

WriteLn (' ':5,'Formatted output',' ':10,'Unformatted output');

WriteLn (' ':10,'S1=',S1:3,' ':20,'S1=',S1);

WriteLn (' ':10,'S2=',S2:3,' ':20,'S2=',S2);

WriteLn (' ':10,'S3=',S3:3,' ':20,'S3=',S3);

WriteLn ;

WriteLn (' ':20,'Logical data');

WriteLn (' ':5,'Formatted output',' ':10,'Unformatted output');

WriteLn (' ':10,'LOG=',LOG:7,' ':15,'LOG=',LOG);

WriteLn; WriteLn; WriteLn;

WriteLn (' Press "ENTER" to continue');

ReadLn ;

end.

4. Выполнение консольного приложения.

   1. Командой меню «Run / Run» (горячая клавиша F9) запустите приложение на выполнение.

2. В результате запускаются компилятор (синтаксический анализ текста) и редактор связей (подключение стандартных модулей) для построения выполняемого файла. Если ошибки отсутствуют, то приложение выполняется, и появляется консольное окно с результатами расчета:

3. При наличии ошибок в тексте программы ход компиляции и построения выполняемого файла будет остановлен. В этом случае необходимо исправить ошибки и повторить пункт 4.1.

4. Консольное окно можно скопировать в память Clipboard (комбинация клавиш Alt-PrtSc) для внесения в текст отчета о лабораторной работе в редакторе Word (Alt-Shift или Ctrl-V).

5. Завершите выполнение консольного приложения нажатием клавиши «Enter» (при активном окне консоли).

1. Сохраните все изменения командой меню «File / Save»

6. Завершите работу интегрированной среды разработки программного обеспечения Delphi командой меню «File / Exit»

7. Сохраните папку с файлами проекта на флешку или диск.