fork download

copy

Program Ex12;
Var
raioBase,altura,volume : Real;
Begin
ClrScr;
Write(‘Digite o valor do raio da base:’);
ReadLn(raioBase);
Write(‘Digite o valor da altura do cone:’);
ReadLn(altura);
volume:=1/3*PI*Sqr(raioBase)*altura;
WriteLn(‘O volume desse cone e: ‘,volume:3:1);
ReadKey;
End.
 

prog.pas: In main program:
prog.pas:5: error: undeclared identifier `ClrScr' (first use in this routine)
prog.pas:5: error:  (Each undeclared identifier is reported only once
prog.pas:5: error:  for each routine it appears in.)
prog.pas:6: error: invalid character
prog.pas:6: error: invalid character
prog.pas:6: error: invalid character
prog.pas:6: error: undeclared identifier `Digite' (first use in this routine)
prog.pas:6: error: undeclared identifier `valor' (first use in this routine)
prog.pas:6: error: syntax error before `do'
prog.pas:6: error: undeclared identifier `raio' (first use in this routine)
prog.pas:6: error: undeclared identifier `base' (first use in this routine)
prog.pas:6: error: invalid character
prog.pas:6: error: invalid character
prog.pas:6: error: invalid character
prog.pas:6: error: syntax error before `)'
prog.pas:7: error: missing comma
prog.pas:7: error: syntax error before `;'
prog.pas:8: error: invalid character
prog.pas:8: error: invalid character
prog.pas:8: error: invalid character
prog.pas:8: error: syntax error before `do'
prog.pas:8: error: undeclared identifier `cone' (first use in this routine)
prog.pas:8: error: invalid character
prog.pas:8: error: invalid character
prog.pas:8: error: invalid character
prog.pas:9: error: missing comma
prog.pas:9: error: syntax error before `;'
prog.pas:10: error: missing comma
prog.pas:10: error: syntax error before `:='
prog.pas:10: error: missing comma
prog.pas:10: error: syntax error before `;'
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: undeclared identifier `O' (first use in this routine)
prog.pas:11: error: undeclared identifier `desse' (first use in this routine)
prog.pas:11: error: undeclared identifier `e' (first use in this routine)
prog.pas:11: error: syntax error before `:'
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: missing comma
prog.pas:12: error: undeclared identifier `ReadKey' (first use in this routine)

Standard output is empty