akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Anagal
Цитата:| что один и тот же текст программы так меняет свойства, если меняешь проект с Console на Simple Graphics |
строго говоря, не текст программы, а используемые в ней ресурсы
я уже здесь где-то писал, что в таких случаях обычно поступают так:
собирают все ресурсы (пр. текстовые строки) в одном файле (можно в .res, а можно и в обычном .txt) и компилируют условно, в зависимости от типа проекта (или вообще -- подгружают динамически):
Код: 1251.txt
...
character*80 str_Give_Value /'задайте начальное значение х:'/
character*80 str_Result /'результирующее значение функции F ='/
...
866.txt
...
character*80 str_Give_Value /'задайте начальное значение х:'/
character*80 str_Result /'результирующее значение функции F ='/
...
program myProg
!DEC$ IF DEFINED (__CODEPAGE_1251__)
include '1251.txt'
!DEC$ ELSEIF DEFINED (__CODEPAGE_866__)
include '866.txt'
!DEC$ ENDIF
...
real*8 x
write(*,*) str_Give_Value
read(*,*) x
...
end
сборка:
ifort /D__CODEPAGE_866__ |
ну или по типу проекта:
__PROJECT_CONSOLE__
__PROJECT_SIMPLE_GRAPHICS__
короче, пиши по-английски... :)
-----
inthepines
а каким компилятором пользуешься?
в интеле IF компилируй с опцией
/real-size:64
тогда все числовые константы будут с двойной точностью...
и
Код:
real*8 p
real*4 q
p = 3.14
q = 3.14
write (*,*) p
write (*,*) q |
не сломается...
|
Всего записей: 25203 | Зарегистр. 06-12-2002 | Отправлено: 16:21 30-10-2010 | Исправлено: akaGM, 16:41 30-10-2010 |
|
