Вот пишу программу по уроку:
- Код: Выделить всё
program summa;
uses crt;
var a,
b,
rezult
: integer;
BEGIN
clrscr;
a := 3;
b := 4;
rezult := a + b;
write(rezult);
readln;
END.
Жму Alt F9 а он мне табличку:

Подскажите в чем ошибка?
Модератор: Модераторы
program summa;
uses crt;
var a,
b,
rezult
: integer;
BEGIN
clrscr;
a := 3;
b := 4;
rezult := a + b;
write(rezult);
readln;
END.
uses crt;
clrsrc;
rezult := a + b;
[Compile]
CompileMode=DEBUG
[Editor]
DefaultTabSize=8
DefaultFlags=20599
DefaultSaveExt=.pas
DefaultIndentSize=1
[Highlight]
Exts="*.pas;*.pp;*.inc"
NeedsTabs="make*;make*.*"
[SourcePath]
SourceList=""
[Mouse]
DoubleDelay=8
ReverseButtons=0
AltClickAction=6
CtrlClickAction=1
[Search]
FindFlags=4
[Breakpoints]
Count=0
[Watches]
Count=0
[Preferences]
DesktopFileFlags=209
CenterCurrentLineWhileDebugging=1
AutoSaveFlags=7
MiscOptions=6
DesktopLocation=1
[Misc]
ShowReadme=0
[Help]
Files=""
[Keyboard]
EditKeys=borland
[Files]
OpenExts="*.pas;*.pp;*.inc"
RecentFile1=D:ProgramsFreePascalbini386-win32summa.pas,26,1
PrinterDevice=prn
[Tools]
Title1="svn ~u~p (curr. dir)"
Program1="svn"
Params1="up $CAP_MSG()"
HotKey1=23296
Title2="svn c~i~ (curr. dir)"
Program2="svn"
Params2="ci $CAP_MSG()"
HotKey2=23552
Title3="svn ~d~iff"
Program3="svn"
Params3="diff $CAP_MSG() $EDNAME"
HotKey3=23808
Title4="svn ~l~og"
Program4="svn"
Params4="log $CAP_MSG() $EDNAME"
HotKey4=34560
Title5="svn ~b~lame"
Program5="svn"
Params5="blame $CAP_MSG() $EDNAME"
HotKey5=34816
Title6="svn ~a~dd"
Program6="svn"
Params6="add $CAP_MSG() $EDNAME"
HotKey6=0
# Automaticly created file, don't edit.
#IFDEF NORMAL
-TWin32
-Mfpc
-Sg
-O1
-Cp386
-Op386
-Ratt
-FuD:ProgramsFreePascalunitsi386-Win32
-FuD:ProgramsFreePascalunitsi386-Win32*
-FuD:ProgramsFreePascalunitsi386-Win32rtl
-g-
-p-
-b-
-Opentium3
#ENDIF
#IFDEF DEBUG
-TWin32
-Mfpc
-Sg
-Cr
-Ci
-Co
-Cp386
-Op386
-Ratt
-FuD:ProgramsFreePascalunitsi386-Win32
-FuD:ProgramsFreePascalunitsi386-Win32*
-FuD:ProgramsFreePascalunitsi386-Win32rtl
-g
-p-
-b-
-Opentium3
#ENDIF
#IFDEF RELEASE
-TWin32
-Mfpc
-Sg
-O2
-Cp386
-Op386
-Ratt
-FuD:ProgramsFreePascalunitsi386-Win32
-FuD:ProgramsFreePascalunitsi386-Win32*
-FuD:ProgramsFreePascalunitsi386-Win32rtl
-g-
-p-
-b-
-Opentium3
#ENDIF
#
# Config file generated by fpcmkcfg on 09.01.2010 - 20:17:30
# Example fpc.cfg for Free Pascal Compiler
#
# ----------------------
# Defines (preprocessor)
# ----------------------
#
# nested #IFNDEF, #IFDEF, #ENDIF, #ELSE, #DEFINE, #UNDEF are allowed
#
# -d is the same as #DEFINE
# -u is the same as #UNDEF
#
#
# Some examples (for switches see below, and the -? helppages)
#
# Try compiling with the -dRELEASE or -dDEBUG on the commandline
#
# For a release compile with optimizes and strip debuginfo
#IFDEF RELEASE
-O2
-Xs
#WRITE Compiling Release Version
#ENDIF
# For a debug version compile with debuginfo and all codegeneration checks on
#IFDEF DEBUG
-glh
-Crtoi
#WRITE Compiling Debug Version
#ENDIF
# ----------------
# Parsing switches
# ----------------
# Pascal language mode
# -Mfpc free pascal dialect (default)
# -Mobjfpc switch some Delphi 2 extensions on
# -Mdelphi tries to be Delphi compatible
# -Mtp tries to be TP/BP 7.0 compatible
# -Mgpc tries to be gpc compatible
# -Mmacpas tries to be compatible to the macintosh pascal dialects
#
# Turn on Object Pascal extensions by default
#-Mobjfpc
# Assembler reader mode
# -Rdefault use default assembler
# -Ratt read AT&T style assembler
# -Rintel read Intel style assembler
#
# All assembler blocks are AT&T styled by default
#-Ratt
# Semantic checking
# -S2 same as -Mobjfpc
# -Sc supports operators like C (*=,+=,/= and -=)
# -Sa include assertion code.
# -Sd same as -Mdelphi
# -Se<x> compiler stops after the <x> errors (default is 1)
# -Sg allow LABEL and GOTO
# -Sh Use ansistrings
# -Si support C++ styled INLINE
# -SI<x> set interface style to <x>
# -SIcomCOM compatible interface (default)
# -SIcorbaCORBA compatible interface
# -Sm support macros like C (global)
# -So same as -Mtp
# -Sp same as -Mgpc
# -Ss constructor name must be init (destructor must be done)
# -St allow static keyword in objects
#
# Allow goto, inline, C-operators, C-vars
-Sgic
# ---------------
# Code generation
# ---------------
# Uncomment the next line if you always want static/dynamic units by default
# (can be overruled with -CD, -CS at the commandline)
#-CS
#-CD
# Set the default heapsize to 8Mb
#-Ch8000000
# Set default codegeneration checks (iocheck, overflow, range, stack)
#-Ci
#-Co
#-Cr
#-Ct
# Optimizer switches for i386 compiler
# -Os generate smaller code
# -O1 level 1 optimizations (quick optimizations)
# -O2 level 2 optimizations (-O1 + slower optimizations)
# -O3 level 3 optimizations (same as -O2u)
# -Oa=N set alignment to N
# -OoX switch on optimalization X.
# -OoNOX switch off optimalization X.
# X is one of REGVAR UNCERTAIN STACKFRAME PEEPHOLE ASMCSE LOOPUNROLL
# -OpCPU set target processor.
# CPU is one of 386, PENTIUM, PENTIUM2, PENTIUM3, PENTIUM4, PENTIUMM
# -----------------------
# Set Filenames and Paths
# -----------------------
# Both slashes and backslashes are allowed in paths
# path to the messagefile, not necessary anymore but can be used to override
# the default language
#-FrD:ProgramsFreePascal/msg/errore.msg
#-FrD:ProgramsFreePascal/msg/errorn.msg
#-FrD:ProgramsFreePascal/msg/errores.msg
#-FrD:ProgramsFreePascal/msg/errord.msg
#-FrD:ProgramsFreePascal/msg/errorr.msg
# path to the gcclib
#-FlD:ProgramsFreePascal/lib
# searchpath for includefiles
#-Fi/pp/inc;/pp/rtl/inc
# searchpath for includefiles
# release them only if you know what you do
# because this could cause a rebuild of the runtime library
# if you tell them compiler/ide to build the project (FK)
#-FiD:ProgramsFreePascal/source/rtl/inc;D:ProgramsFreePascal/source/rtl/i386
# searchpath for objectfiles
#-FoD:ProgramsFreePascal/source/rtl/inc;D:ProgramsFreePascal/source/rtl/i386
#IFDEF FPCAPACHE_1_13
-FuD:ProgramsFreePascal/units/$FPCTARGET/httpd-1.3/
#ELSE
#IFDEF FPCAPACHE_2_0
-FuD:ProgramsFreePascal/units/$FPCTARGET/httpd-2.0
#ELSE
-FuD:ProgramsFreePascal/units/$FPCTARGET/httpd-2.2
#ENDIF
#ENDIF
# searchpath for units and other system dependent things
-FuD:ProgramsFreePascal/units/$FPCTARGET/
-FuD:ProgramsFreePascal/units/$FPCTARGET/*
-FuD:ProgramsFreePascal/units/$FPCTARGET/rtl
# searchpath for libraries
#-FlD:ProgramsFreePascal/lib
#-Fl/lib;/usr/lib
# searchpath for tools
-FDD:ProgramsFreePascal/bin/$FPCTARGET
# binutils prefix for cross compiling
#IFDEF FPC_CROSSCOMPILING
-XP$FPCTARGET-
#ENDIF
# -------------
# Linking
# -------------
# generate always debugging information for GDB (slows down the compiling
# process)
# -gc generate checks for pointers
# -gd use dbx
# -gg use gsym
# -gh use heap trace unit (for memory leak debugging)
# -gl use line info unit to show more info for backtraces
# -gv generates programs tracable with valgrind
# -gw generate dwarf debugging info
#
# Enable debuginfo and use the line info unit by default
#-gl
# always pass an option to the linker
#-k-s
# Always strip debuginfo from the executable
-Xs
# -------------
# Miscellaneous
# -------------
# Write always a nice FPC logo ;)
-l
# Verbosity
# e : Show errors (default) d : Show debug info
# w : Show warnings u : Show unit info
# n : Show notes t : Show tried/used files
# h : Show hints m : Show defined macros
# i : Show general info p : Show compiled procedures
# l : Show linenumbers c : Show conditionals
# a : Show everything 0 : Show nothing (except errors)
# b : Show all procedure r : Rhide/GCC compatibility mode
# declarations if an error x : Executable info (Win32 only)
# occurs
#
# Display Info, Warnings, Notes and Hints
-viwn
# If you don't want so much verbosity use
#-vw
Kassper писал(а):блин, а щас почемуто пишет при компиляции, Total: Compilation aborted
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1