Главная | Обратная связь | Поможем написать вашу работу!

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

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

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

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

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

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

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

3.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. Выполнение консольного приложения.

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

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

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

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

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

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

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

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

Варианты заданий

Номер варианта	Целые числа	Действительные числа	Количество символов	Вывести значения
Количество	Формат	Количество	Формат
Ширина поля	Ширина поля	Количество знаков после запятой
					True False True True False True True False False True True False False True True False True False False True False True False False True True False False False True

⇐ Предыдущая 1 2 3 4 56