Разработка программы на языке Borland Object Pascal (Ide Borland Delphi)
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
lbRezultat.Caption:= Ошибка: Отсутсвует переход на метку + sLabelName;82 lbRezultat.Font.Color:= clRed;83 Exit;84 end;85 inc(iKol);86 i:= pos(goto , sFile);87 end;88 if lbRezultat.Caption= then89 begin90 lbRezultat.Caption:= Правильное задание + IntToStr(iKol)+ инструкций безусловного перехода;91 lbRezultat.Font.Color:= clNavy;92 end;93 end;94end;9596procedure TForm1.buCloseClick(Sender: TObject);97begin98 Close;99end;100101end.
- Запуск приложения
Выполняется нажатием клавиши F9. После компиляции запускается программа на выполнение. Окно программы с результатами работы представлены на рис.2-5.
Рис.2 Окно открытия файла
Рис.3 Проверка файла
Рис.4 Проверка файла
Рис.5 Проверка файла
ПЕРЕЧЕНЬ ССЫЛОК
- Абрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык Паскаль. - М.: Наука, 1988.
- Довгаль С.И., Литвинов Б.Ю., Сбитнев А..И. Персональные ЭВМ : Турбо Паскаль V7.0, объектное программирование, локальные сети. Киев: Информсиситема сервис, 1993.
- Епанешников А.М., Епанешникова В.А. Программирование в среде Turbo Pascal 7.0.-М.: Диалог МИФИ,1999.
- Зуев Е.А. Программирование на языке Turbo Pascal 6.0,7.0. М.: Радио и связь, Веста,1993.
- Кандзюба С.П., Громов В.Н. Delphi 7.Базы данных и приложения. Лекции и упражнения. К.: Издательство "ДиаСофт", 2001.
- Климова Л.М. Pascal 7.0. Практическое программирование. Решение типовых задач. М.:КУДИУ ОБРАЗ, 2000.
- Марченко А. И., Марченко Л.А.. Программирование в среде Turbo Pascal 7.0.-К.: Век+,1999.
- Фаронов В.В. Turbo Pascal 7.0. Начальный курс. - М.: Нолидж, 2000.
ПРИЛОЖЕНИЯ
Приложение А
int i, j;
for(i = 0; i < 10; i++)
{
// ...
if(condition1)
{
j = 4;
goto label1;
}
// ...
for(j = 0; j < 10; j++)
{
// ...
label1:
// ...
if(condition2)
{
i = 6;
goto label2;
}
}
Приложение Б
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST
Приложение В
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
Приложение Г
program proverka;
uses
Forms,
Unit1 in Unit1.pas {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Приложение Д
[Closed Files]
File_0=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\UData.pas,0,1,545,15,558,1,0
File_1=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\UTablNU.pas,0,1,681,50,698,1,0
File_2=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\UMain.pas,0,1,148,31,155,1,0
File_3=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\UPerson.pas,0,1,99,34,116,1,0
File_4=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\UFunction.pas,0,1,479,1,492,0,0
File_5=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\UEtalon.pas,0,1,800,40,825,0,0
File_6=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\UCreateAllReport.pas,0,1,406,51,407,0,0
File_7=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\USprNa.pas,0,1,1,17,9,1,0
File_8=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\USprUd.pas,0,1,305,1,308,1,0
File_9=SourceModule,D:\Projects\Delphi Studio\SKSMiK\ZarPlata\units\USprOtdel.pas,0,1,1,1,1,1,0
[Modules]
Module0=D:\Projects\Delphi\sti\check_goto\Unit1.pas
Count=1
EditWindowCount=1
[D:\Projects\Delphi\sti\check_goto\Unit1.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
FormState=0
FormOnTop=0
[D:\Projects\Delphi\sti\check_goto\proverka.dpr]
FormState=0
FormOnTop=0
[EditWindow0]
ViewCount=1
CurrentView=0
View0=0
CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0
Create=1
Visible=1
State=2
Left=294
Top=140
Width=868
Height=505
MaxLeft=-4
MaxTop=108
MaxWidth=1288
MaxHeight=666
ClientWidth=1280
ClientHeight=632
LeftPanelSize=0
Left