Baixe o app para aproveitar ainda mais
Prévia do material em texto
1COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs % - Variável inteira (2 bytes) (Valor Máximo 32.768) ! – Variável ponto flutuante precisão simples (4 bytes) (1,401298.10-45 a 3,402823.1038 ) # - Variável ponto flutuante precisão dupla (8 bytes) (4,94065645841247.10-324 a 1,79769313486232.10308) $ - Variável literal Ex.: aa%, die!, rt# e wr$ O tipo da variável é definida pelo último caractere, se nada for especificado, ela é “variant” e real de precisão simples: LIGUAGEM DE PROGRAMAÇÃO BASIC & - Variável inteira (4 bytes) (Valor Máximo 2.147.483.648) @ - Variável ponto fixo (4 bytes) (Trabalhar com moeda, Valor Máximo 922.337.203.685.477,5807) 2COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs Ex.: DEFDBL A-F, Z (define um intervalo e a letra Z) Ex.: FUCTION some (aa,bb,...) AS INTEGER Alguns sistemas aceitam definir o tipo da variável pela letra inicial As funções retornam um único valor. Podem ser BOLEAN (lógica), BYTE, CURRENCY, DATE, DOUBLE, INTEGER, LONG, OBJECT, SINGLE, STRING, VARIANT. LIGUAGEM DE PROGRAMAÇÃO BASIC DEFBOOL DEFBYTE DEFINT DEFLNG DEFCUR DEFSGL DEFDBL DEFDATE DEFOBJ DEFSTR DEFVAR Variável lógica (“Boolean”, 2 bytes) Variável inteira positiva (1 byte) Variável inteira (2 bytes) Variável inteira (4 bytes) Variável ponto fixo (4 bytes) Variável real de precisão simples (4 bytes) Variável real de precisão dupla (8 bytes) Variável data e hora (8 bytes) Variável endereço (4 bytes) Variável literal Variável geral (16 bytes) - - - - - - - - - - - 3COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs A B C D E F Resultado 3 4 1 1 100 =some(C4;D4)*B4 5050 5 10 0,1 10 =some(C5;D5)*B5 5151 6 100 0,01 1 =some(C6;D6)*B6 5050 7 1000 0,001 0,1 =some(C7;D7)*B7 5050 8 10000 0,0001 0,01 =some(C8;D8)*B8 5151 9 100000 0,00001 0,001 =some(C9;D9)*B9 5050,00000000001 10 1000000 0,000001 0,0001 =some(C10;D10)*B10 5150,99999999999 11 10000000 0,0000001 0,00001 =some(C11;D11)*B11 5050 12 100000000 0,00000001 0,000001 =some(C12;D12)*B12 5050 ( ) jj jj j jj jjjjj D Cp j BB CD B CBj DCCCCppBSome j j .10 .100;1;1;4 5050,,.3,.2,.1,.0,. 1 .0 = ==== === + ≤ = ∑ L Function Some(CJ, DJ) prog = 0 Some = 0 While prog < DJ prog = prog + CJ Some = Some + prog Wend End Function LIGUAGEM DE PROGRAMAÇÃO BASIC – Propagação de erro 4COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs LIGUAGEM DE PROGRAMAÇÃO BASIC – Propagação de erro Function fat(n) As Byte 'Function fat(n) As Integer '(inteira 2 bytes) 'Function fat(n) As Long '(inteira 4 bytes) 'Function fat(n) As CURRENCY '(real 8 bytes) 'Function fat(n) As SINGLE '(real 4 bytes) 'Function fat(n) As DOUBLE '(real 8 bytes) fat = 1 i = 1 While i < n i = i + 1 fat = fat * i Wend End Function fat = i! 5COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs LIGUAGEM DE PROGRAMAÇÃO PLANILHA ELETRÔNICA B = ActiveCell.Value c = ActiveCell.Offset(3, 4).Value ActiveCell.Offset(5, 8).Value = A ActiveCell.Offset(2, 4).Activate h = Cells(10, 8).Value ´Atribui a variável h, o conteúdo da célula H10, oitava coluna e décima linha. ´Atribui a variável B, o valor da célula ativa, a célula indicada pelo “mouse”. ´Copia o valor da variável A na célula localizada cinco linhas e oito colunas deslocadas da célula ativa. ´Atribui a variável c, o valor da célula ativa, deslocada por três linhas e quatro colunas. ´Ativa a célula localizada duas linhas e quatro colunas deslocadas da célula ativa. MsgBox(" a = " & a) Expõe: “ a = ” concatenado ao valor da variável a. 6COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs O tipo da variável é definida pelo caracter inicial. As variáveis iniciadas com as letras dentro do intervalo I-N (INteira) são consideradas inteiras de 4 bytes, todas as outras são reais de precisão simples (4 bytes). As variáveis podem ser definidas como: CHARACTER*n - Literal de (n bytes ), CHARACTER ([KIND=]n); COMPLEX*8 - Complexa de (8 bytes ), COMPLEX([KIND=]8); COMPLEX*16 - Complexa de (16 bytes ), COMPLEX([KIND=]16), (DOUBLE COMPLEX); INTEGER*1 - Inteira de (1 byte), INTEGER([KIND=]1), -128 a 127; INTEGER*2 - Inteira de (2 bytes ), INTEGER([KIND=]2), -32.768 a 32.767; INTEGER*4 - Inteira de ( 4 bytes ), INTEGER ( [ KIND = ] 4 ), -2.147.483.648 a 2.147.483.647; INTEGER*8 - Inteira de (8 bytes ), INTEGER([KIND=]8), somente para processadores ALPHA, -9.223.372.036.854.775.808 a 9.223.372.036.854.775.807; LOGICAL*1 - Lógica de (1 byte), LOGICAL([KIND=]1), .TRUE. ou .FALSE.; LOGICAL*2 - Lógica de (2 bytes ), LOGICAL([KIND=]2), .TRUE. ou .FALSE.; LOGICAL*4 - Lógica de (4 bytes ), LOGICAL([KIND=]4), .TRUE. ou .FALSE.; LOGICAL*8 - Lógica de (8 bytes ), LOGICAL([KIND=]8), somente para processadores ALPHA, .TRUE. ou .FALSE.; REAL*4 - Real de (4 bytes ), REAL([KIND=]4), 1,17549435.10-38 a 3,40282347.1038; REAL*8 - Real de (8 bytes ), REAL([KIND=]8) (DOUBLE PRECISION) 2.2250738585072013.10-308 a 1.7976931348623158.10308. e 2.2250738585072008.10-308 a 4.94065645841246544.10-324 ; REAL*16 - Real de (16 bytes ), REAL([KIND=]16), somente para sistemas OpenVMS and DIGITAL UNIX. As constates podem ser: HOLLERITH - nH.........., n caracteres (1 - 2000); BINÁRIO - B’01...’, B”01...”, 128 dígitos binários (0, 1) é o máximo, os zeros à esquerda são ignorados; OCTAL - O’75...’, O”75...”, 43 dígitos octais (0, 1, 2, 3, 4, 5, 6, 7) é o máximo, os zeros à esquerda são ignorados; HEXADECIMAL - Z’A8...’, Z”A8...”, 32 dígitos hexadecimais (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F) é o máximo, os zeros à esquerda são ignorados). As constantes decimais podem ser: INTEGER - Inteira de (4 bytes ), se não for especificado o espaço ocupado; COMPLEXA precisão simples - (Real*4, Real*4), conjunto com duas constantes reais de 4 bytes; COMPLEXA precisão dupla - (Real*8, Real*8), conjunto com duas constantes reais de 8 bytes; LOGICA - Lógica de (4 bytes ); REAL*4 - Real de (4 bytes ), REAL([KIND=]4). 1.235E-8; REAL*8 - Real de (8 bytes ), REAL([KIND=]8) (DOUBLE PRECISION), 1.235D-8; REAL*16 - Real de (16 bytes ), REAL([KIND=]16), somente para sistemas OpenVMS and DIGITAL UNIX, 1.235Q-8. LIGUAGEM DE PROGRAMAÇÃO FORTRAN 7COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs Valor lógico Valor inteiro Valor real Valor complexo Valor hollerith Valor literal LIGUAGEM DE PROGRAMAÇÃO Representação de dados 8COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs C Win32 Console Application C Implicit integer*1(a-h,o-z) C Implicit integer*2(a-h,o-z) C Implicit integer*4(a-h,o-z) C Implicit real*4(a-h,o-z) C Implicit real*8(a-h,o-z) k = 1 select case(k) case (1) Bj = 1. do i = 1, 10 Cj = 1./Bj Dj = 100.*Cj p = 0. soma = 0. n = 1 do while(p <= Dj) p = p + Cj n = n + 1 soma = soma + p end do soma = soma*Bj Print *, n, p, soma Bj = Bj*10 end do case (2) i = 0. fat = 1. do j = 1, 10 i = i + 1 fat = fat * i print *, j, fat end do end select end ( ) jj jj j jj jjjjj D p j BB CD B CBj DCCCCppBSoma j .10 .100;1;1;0 5050,,.3,.2,.1,.0,. 1 0 = ==== === + ≤ = ∑ L fat = i! LIGUAGEM DE PROGRAMAÇÃO FORTRAN – Propagação de erro 9COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs LIGUAGEM DE PROGRAMAÇÃO Comandos Basic Fortran Definição padrão da variável pelo seu caractere inicial DefTipo intervalo de letras[, intervalo de letras] . . . Implicit Tipo (intervalo de letras[, intervalo de letras] . . .) Tipo Bool Byte Int Long Cur Sng Dbl Date Str Obj Var Boolean Byte Integer Long CurrencySingle Double Date String Object Variant Logical*1 Lógica (1 byte) Inteira (2 bytes) Inteira (1 byte) Inteira (4 bytes) Real (4 byts) Real (8 bytes) Logical*2 Logical*4 integer*1 integer*2 integer*4 real*4 real*8 Character*n Complex*8 Complex*16 Lógica (2 byte) Lógica (4 byte) Literal (n bytes) Complexa (8 bytes) Complexa (16 byte) 10COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs LIGUAGEM DE PROGRAMAÇÃO Comandos Basic Fortran Definição padrão da variável pelo seu caractere inicial 11COMPUTAÇÃO NA ENGENHARIA QUÍMICA - EQ 246PhDs [Call] name [argumentlist] Conclui a entrada/saída (E/S) para um arquivo aberto usando a instrução Open. Sintaxe Close [filenumberlist] Dim Repete um bloco de instruções enquanto uma condição é True ou até que ela se torne True. Sintaxe Do [{While | Until} condition] [statements] [Exit Do] [statements] Loop Ou você pode usar a sintaxe a seguir: Do [statements] [Exit Do] [statements] Loop [{While | Until} condition] Encerra um procedimento ou bloco. Sintaxe End End Function End If End Property End Select End Sub End Type End With Sai de um bloco de código Do…Loop, For...Next, Function, Sub ou Property. Sintaxe Basic LIGUAGEM DE PROGRAMAÇÃO Comandos Fortran
Compartilhar