(* programa que le um numero e retorna o ultimo algarismo *) (* escrito por Marcos Castilho em 22/10/2002, com erros. *) program ultalgarismo; begin read (A) writeln (A mod 10); end.
program Misterio; var nota1,nota2,media: integer; begin readln(nota1,nota2) while nota1 <> 0 do media:=nota1+nota2/2; writeln(nota1,nota2,media); readln(nota1,nota2); end.
program misterio2; var m, g: real; N1, N2: integer; begin readln(N1, N2); if (N1 > N2) then m := N2 else m := N1; g:= 1; while g do begin if (N1 mod m = 0) AND (N2 mod m = 0) then g := 0; else m := m - 1; end; if (m := N1) then writeln('O valor resultante eh: ' m); end.
program soma_dois; var a, b, soma: longint; begin read (a,b); soma:= a + b; writeln (a+b); end.
É importante entender as mensagens de erro do compilador. Por isso, sugere-se que o leitor produza erros de sintaxe na sua cópia deste programa-fonte (que está correto sintaticamente) e que explore o compilador para começar a compreender as mensagens de erro e a procurar corrigi-los.
Experimente, por exemplo, as seguintes alterações:
Faça uma alteração por vez e observe quais mensagens de erro serão retornadas pelo compilador.
Program ex1; var A: <completar>; B: <completar>; C: <completar>; D: <completar>; E: <completar>; begin A := 1 + 2 * 3; B := 1 + 2 * 3 / 7; C := 1 + 2 * 3 \ DIV \ 7; D := 3 \ DIV \ 3 * 4.0; E := A + B * C - D end.
Exemplo de entrada: 28.7
Saída esperada para a entrada acima: 8.3659999999999997E+001
Exemplo de entrada: 105.4
Saída esperada para a entrada acima: 6.5492523661815000E+001
Exemplo de entrada 1: 3600
Saída esperada para a entrada acima: 1 graus, 0 minutos e 0 segundos
Exemplo de entrada 2: 3500
Saída esperada para a entrada acima: 0 graus, 58 minutos e 20 segundos
a11 x + a12 y = b1 a21 x + a22 y = b2
O método de cálculo do sistema é indiferente, desde que o resolva independente dos valores informados. Veja um exemplo de execução incluindo entrada e saída:
Exemplo de entrada: 2.0 1.0 11.0 5.0 7.0 13.0
Saída esperada para a entrada acima: x = 7.111 y = -3.222