Total Error

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Total Error

Сообщение Kassper » 09.01.2010 22:00:27

Здраствуйте, я только начал изучать паскаль, но у меня проблемка...
Вот пишу программу по уроку:

Код: Выделить всё
program summa;

uses crt;
var a,
    b,
    rezult
    : integer;


BEGIN
   clrscr;
   a := 3;
   b := 4;
   rezult := a + b;

   write(rezult);
   readln;

END.


Жму Alt F9 а он мне табличку: Изображение
Подскажите в чем ошибка?
Kassper
новенький
 
Сообщения: 16
Зарегистрирован: 09.01.2010 21:41:53

Re: Total Error

Сообщение Padre_Mortius » 09.01.2010 22:26:40

Попробуйте убрать следующие строки
Код: Выделить всё
uses crt;

и
Код: Выделить всё
clrsrc;


Вроде как в модуле crt были какие-то проблемы
Padre_Mortius
энтузиаст
 
Сообщения: 1265
Зарегистрирован: 29.05.2007 17:38:07
Откуда: Спб

Re: Total Error

Сообщение Kassper » 09.01.2010 23:19:13

Не помогло
Kassper
новенький
 
Сообщения: 16
Зарегистрирован: 09.01.2010 21:41:53

Re: Total Error

Сообщение Padre_Mortius » 10.01.2010 00:49:13

Тогда скорее всего дело в настройках. Выложите пожалуйста файлы fp.ini и fpc.cfg
Padre_Mortius
энтузиаст
 
Сообщения: 1265
Зарегистрирован: 29.05.2007 17:38:07
Откуда: Спб

Re: Total Error

Сообщение Odyssey » 10.01.2010 01:11:17

У меня эта же программа, сохранённая в эту же папку, скомпилировалась нормально (FPC 2.2.4). Похоже у вас какая-то проблема с установкой FPC. В дополнение к файлам настроек, сможете написать версию FPC, откуда качали и как устанавливали?
Odyssey
энтузиаст
 
Сообщения: 580
Зарегистрирован: 29.11.2007 17:32:24

Re: Total Error

Сообщение Padre_Mortius » 10.01.2010 02:13:54

и на всякий случай права на запись в данную папку проверьте
Padre_Mortius
энтузиаст
 
Сообщения: 1265
Зарегистрирован: 29.05.2007 17:38:07
Откуда: Спб

Re: Total Error

Сообщение sign » 10.01.2010 09:48:03

Код: Выделить всё
rezult := a + b;

У вас разве есть функция?
Вы чему присвоили сейчас результат сложения?
sign
энтузиаст
 
Сообщения: 1131
Зарегистрирован: 30.08.2009 09:20:53

Re: Total Error

Сообщение SII » 10.01.2010 11:16:55

Это не функция, это переменная. Она объявлена в примере правильным образом. Хотя вообще-то результат -- это Result.
SII
новенький
 
Сообщения: 64
Зарегистрирован: 24.06.2007 17:15:09
Откуда: Зеленоград

Re: Total Error

Сообщение Kassper » 10.01.2010 15:55:02

Ну я делал все по видео уроку, там все точно так же однако там нету ошибок.
Скачивал туто http://www.freepascal.org/down/i386/win32-ftp.freepascal.org.html

Изображение
Kassper
новенький
 
Сообщения: 16
Зарегистрирован: 09.01.2010 21:41:53

Re: Total Error

Сообщение Padre_Mortius » 10.01.2010 16:21:18

Файлы конфигурации покажите пожалуйста. Без них сказать что-либо определенное не возможно
Padre_Mortius
энтузиаст
 
Сообщения: 1265
Зарегистрирован: 29.05.2007 17:38:07
Откуда: Спб

Re: Total Error

Сообщение serg_iv » 10.01.2010 16:35:44

Проверьте в путях нет ли пробелов, имел с этим проблемы похожие..
serg_iv
постоялец
 
Сообщения: 276
Зарегистрирован: 15.10.2005 18:45:46
Откуда: Миасс

Re: Total Error

Сообщение Kassper » 10.01.2010 17:41:30

fp.ini

Код: Выделить всё
[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


fp.cfg
Код: Выделить всё
# 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

fpc.cfg

Код: Выделить всё
#
# 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


Добавлено спустя 1 час 44 минуты 8 секунд:
АХ да самое наверное важное забыл, когда это ошибка появляецо то в Compiler mssages пишет:
Error: Illegal parameter -Opentium3

Добавлено спустя 14 минут 36 секунд:
а когда немного изменяю программу то пишет:
Изображение

Добавлено спустя 3 минуты 29 секунд:
Как я понял типо неможет открыть fp.cfg
Kassper
новенький
 
Сообщения: 16
Зарегистрирован: 09.01.2010 21:41:53

Re: Total Error

Сообщение Максим » 10.01.2010 19:47:22

У вас старая версия компилятора, и, к тому же, её fpc.cfg некорректен. Поставьте себе версию 2.4.0, предварительно полностью удалив каталог с текущей версией.
Аватара пользователя
Максим
энтузиаст
 
Сообщения: 598
Зарегистрирован: 27.07.2007 01:51:43
Откуда: Москва

Re: Total Error

Сообщение Kassper » 10.01.2010 21:35:35

Спасибо=) знаете почему не работало xDDD
Я скачал freepascal 2.2.2 и установил а потом скачал кросс компилятор и установил поверх уже установленного
Щас установил 2.4.0 все хорошо спасибо=)

Добавлено спустя 12 часов 36 минут 14 секунд:
блин, а щас почемуто пишет при компиляции, Total: Compilation aborted
Kassper
новенький
 
Сообщения: 16
Зарегистрирован: 09.01.2010 21:41:53

Re: Total Error

Сообщение Vadim » 11.01.2010 12:31:53

Kassper писал(а):блин, а щас почемуто пишет при компиляции, Total: Compilation aborted

Нужно писать все без исключения строки сообщения компилятора.
Vadim
долгожитель
 
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

След.

Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 2

Рейтинг@Mail.ru