Programa pascal

| |No de matrícula: ______________ |Turma: CIC1AN-A |Valor: 10 pontos |Nota: | | | |O trabalho é em grupo de, no máximo, 4 alunos; | |Trabalhos copiados não serão considerados (nota zero para todas as cópias); | |Devem ser entregues a listagem impressa dos programas, com as devidas indentações e bem documentada, juntamente com um CD ou pendrive, contendo os | |programas fonte; | |Toda mensagem de orientação e de erro devem ser devidamente tratada; | |Todos os trabalhos serão apresentados no laboratório de informática, na data de entrega. Perguntas sobre o código serão feitas aos componentes do grupo, | |no ato da apresentação do seu trabalho. À medida que um componente do grupo for respondendo erroneamente as perguntas, tal componente irá perdendo um | |percentual sobre a nota final obtida no trabalho (25%, 50%, 75%, 100%)

Program atividade1 ; Uses CRT; var sal,salx,sal2:real; vale,sexo,nome,depart, fun,sangue,vale1,vale2,sexo1,sexo2:string; vale3,salario_extra: char; cod,ndep: integer; Begin sexo1:='feminino'; sexo2:='masculino'; vale1:='recebe'; vale2:='não recebe'; writeln('Qual o seu CODIGO ?'); readln(cod); Writeln('Qual o seu NOME ?'); readln(nome); writeln('Qual o seu Sexo [F/M]'); readln(sexo); if sexo…

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; …

Programas em Pascal Resolução – Lista 01 01. Faça um algoritmo que leia os valores A, B, C e diga se a soma de A + B é menor que C. program valores; var a, b, c, soma:real; begin writeln('Digite o valor para a:'); readln(a); writeln('Digite o valor para b:'); readln(b); writeln('Digite o valor para c:'); readln(c); soma:=a+b; if soma=ap then begin writeln('Nome do aluno:',nome); readln; writeln('A media do aluno eh:',media:5:2,'APROVADO' ); …

PARTE I Exercícios da Ficha 1. Programa para calcular um factorial Program factorial ; var fact, a, num: integer; Begin writeln('introduza o valor'); read(num); fact:=1; for a:=1 to num do begin fact:=fact*a; end; write('O Valor de ', num, ' Factorial é: ', fact); End. 2. Programa para verificar se um numero é ou não Armstrong. Program Amstrong; var n,a,b,c,result:integer; Begin writeln('digite o valor'); …

3)Escreva um programa em Pascal para ler um número positivo qualquer, calcular e escrever o quadrado e a raiz quadrada do mesmo. program ex2; uses crt; var x, q: integer; r: real; begin clrscr; write('Informe um numero: '); readln(x); q:= sqr(x); writeln('O quadrado de ', x, ' ‚ ', q); if x>=0 then begin r:= sqrt(x); writeln('A raiz quadrada de ', x, ' ‚ ', r:0:2); end else begin writeln('Nao existe raiz de ',x); end; readkey; end. 8) antes do raciocionamento de energia…

...Programa em pascal para calcular e mostrar o estoque com código de produtos e código de país com CASE.. {*Função do programa: Calcular e mostrar Nome do Programa: Controle de estoque Supermercado Nome do programador: Anderson de Oliveira versão: 1.0 Data: 29/03/2012 *} Program calc_mostrar; Uses wincrt; {Declaração de Variáveis} Var codigo_produto,codigo_pais:integer; peso_grama,pesokg,imposto,preco_total,valor_total,preco_grama:real;…

Dicionário de Tipos: CAMPO | TIPO | REGISTRO | UTILIDADE | NOME | String[100] | TCadastro | Nome do Aluno | INSTRUTOR | String[100] | TCadastro | Instrutor | PLACA | String[7] | TCadastro | Placa do Carro | DATA | TDateTime | TCadastro | Data de Início do Processo | ATEORICAS | Integer | TCadastro | Número de Aulas Teóricas Realizadas | APRATICAS | Integer | TCadastro | Número de Aulas Práticas Realizadas | PTEORICA | Integer | TCadastro | Situação na Prova Teórica |…

Organização de programas em Pascal Leonardo Gresta Paulino Murta leomurta@ic.uff.br Vamos programar em Pascal! Mas... • • • • • Como um programa é organizado? Quais são os Apos de dados disponíveis? Como variáveis podem ser declaradas? Como atribuir valores às variáveis? Como entrada e saída básica de dados podem ser feitas? Vamos …

2. Linguagem de Programação Pascal 2.1 Fundamentos de Programação de Computadores O que é um Programa de Computador? A utilização do computador para a resolução de problemas de forma automática traz grandes vantagens: Rapidez de execução; Precisão nos processamentos e resultados; Flexibilidade; Confiança nos resultados obtidos. Entretanto, o computador por si só não seria capaz de resolver o mais simples dos problemas que nos possa ocorrer. Para que ele o faça, é preciso descrever…