Programa pascal

program media_notas; var NOME:string; N1,N2,N3,MEDIA:real; CONT:integer; begin clrscr; FOR CONT:=1 to 10 do begin write('Digite o nome e as 3 notas do ',cont,'o aluno '); readln(NOME,N1,N2,N3); while (N110) or (N210) or (N310) do begin {repete enquanto as notas forem menores que 0 ou maiores que 10!} writeln('Notas inválidas! Digite notas de 0 a 10!'); readln(N1,N2,N3); end; MEDIA:=(N1+N2+N3)/3; writeln('A média do aluno ',NOME,' é: ',MEDIA:2:2); end; readkey; end

program alturamf; uses CRT; var quant,cont,cont_m,cont_f:integer; sexo,sme_alt,sma_alt:string; alt,alt_maior,alt_menor,alt_media,soma_alt,dif:real; begin {inicializa as variáveis} cont_m := 0; cont_f := 0; alt_menor := 10; alt_maior := 0; soma_alt := 0; writeln('Qual a quantidade de pessoas?'); readln(quant); while quant0 then write(dif:2:2,'% a mais de homens') else write(abs(dif):2:2,'% a mais de mulheres'); readkey; end

program kase; uses crt; var i,j:INTEGER; N:STRING[80]; RG:STRING[10]; CPF:STRING[15]; label menu; label fin;

begin
CLRSCR;
menu: writeln('Digite uma das opcoes abaixo:'); writeln(); writeln(' OPCOES ');
WRITELN();
WRITELN('OPCAO 1: CADASTRAR');
WRITELN('OPCAO 2: BUSCAR');
WRITELN('OPCAO 3: EDITAR');
WRITELN('OPCAO 4: SAIR'); writeln(); READLN(i); case i of
1:BEGIN
writeln(); writeln('CADASTRAMENTO DE CLIENTES'); writeln(); WRITELN('DIGITE AGORA O NOME COMPLETO DO CLIENTE:');
WRITELN();
READLN(N);
WRITELN();
WRITELN('DIGITE AGORA O RG DO CLIENTE(SOMENTE NUMEROS)');
WRITELN();
READLN(RG);
WRITELN();
WRITELN('DIGITE AGORA O C.P.F (SOMENTE NUMEROS)');
WRITELN();
READLN(CPF);
WRITELN();
WRITELN('CLIENTE CADASTRADO COM SUCESSO!');
WRITELN();
READKEY; clrscr; END;
2:begin
WRITELN('PESQUISA DE CLIENTES'); readkey; CLRSCR; end; 3:begin
WRITELN('EDITAR OS DADOS DO