1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Argh! Pascal e a famosa linha 18 - Need Assitance

Discussão em 'Programação' iniciada por Gaminger, 16 de Dezembro de 2005. (Respostas: 7; Visualizações: 1110)

  1. Gaminger

    Gaminger Power Member

    OI...sim é o que acontece quando o ensino escolar anda atrasado (sim e eu ja tou habituado), por isso mais uma vez fui estudar sozinho...neste caso tou a falar do pascal, ja era para eu saber algumas dele mas aínda nem demos o "Para" na algoritmia... emfim Pascal parece simples e tal e eu ando a fzr um prog pa testar e tal...mas o raio da linha 18 tem um erro que eu não encontro:

    program Calculos;
    uses wincrt ;
    var v1, v2 : integer;
    var s, sb, m, d : char;
    var s_n : char;

    begin
    writeln('***Alguns C*lculos em Pascal 0.1***');
    writeln;
    writeln('___________________________________');
    writeln;
    repeat
    writeln('Insira um n£mero positivo e inteiro');
    readln(v1);
    writeln('Insira outro n£mero positivo e inteiro');
    readln(v2);
    s:=v1+v2

    sb:=v1-v2
    m:=v1*v2
    d:=v1/v2
    writeln('Os resultados sÆo:');
    writeln;
    writeln('Soma:',s);
    writeln;
    writeln('Subtrac‡Æo:',sb);
    writeln;
    writeln('Multiplica‡Æo:',m);
    writeln;
    writeln('DivisÆo:',d);
    writeln('Deseja calcular com mais numeros?Inserir: s=sim n=nÆo.')
    readln(s_n);
    until s_n = 'n';
    writeln;
    writeln;('Prima ENTER para sa¡r do programa.');
    writeln;
    readln;
    end.

    Fico agradecido por todos os masters os programing que me ajudem a encontrar este erro. BTW: As linhas a negrito são as linhas que penso terem o erro...eu ainda não sei como esta coisa maldita faz a contagem das linhas mas parece que na é como eu pensei.
     
    Última edição: 16 de Dezembro de 2005
  2. [BoB]Marley

    [BoB]Marley To fold or to FOLD?

    ja tou um bocado enferrujado no pascal, mas...

    var s, sb, m, d : char; ????
    pk nao double ou int? n será disso que estará a dar o erro?
     
  3. Gaminger

    Gaminger Power Member

    Sim sim tb tá mal mas não era esse o problmea...ja corrigi o da linha dezoito agr tenho um problema na linha 37
     
  4. Encarnado

    Encarnado [email protected] Member

    readln não precisa de variavel?
     
  5. Gaminger

    Gaminger Power Member

  6. [BoB]Marley

    [BoB]Marley To fold or to FOLD?

    pois... tb penso ke seja isso... senao o ke é ke o readln ia ler? :P


    p.s.: só axo um bocadinho xato é andar a contar as linhas... é ke se um gajo se engana contar... >(

    :P
     
  7. BlueBird

    BlueBird Power Member

    Também serve para entrar "em espera"...

    Faltam aí ;
     
    Última edição: 17 de Dezembro de 2005
  8. Delta

    Delta Suspenso

    é isso mesmo

    cada linha de instrução deve ser terminada por ";"

    excepto em casos tipo assim :

    If exp1 Then
    If exp2 then
    Stat1
    else
    stat2;

    em que Stat1 é precedido imediatamente por Else, com um ";" no Stat1 nem sei se ele quebra o bloco IF

    já não me lembro
     

Partilhar esta Página