program nota

544 palavras 3 páginas

program nota; var notas,media,n1,n2,n3,n4:integer; begin // write('Digite suas notas da 1° unidade: '); write ('Digite suas nota de Portugues: '); readln (n1); write ('Digite suas nota de Matemarica: '); readln (n1); write ('Digite suas nota de Filosofia: '); readln (n1); write ('Digite suas nota de logica: '); readln (n1); write ('Digite suas nota de Quimica: '); readln (n1); write ('Digite suas nota de Fisica: '); readln (n1); write ('Digite suas nota de Infor-Basica: '); readln (n1); write ('Digite suas nota de Eletroeletronica: '); readln (n1); write ('Digite suas nota de Artes: '); readln (n1); write ('Digite suas nota de Des.Tecnico: '); readln (n1); write ('Digite suas nota de Composoc: '); readln (n1); write ('Digite suas nota de Historia: '); readln (n1); write ('Digite suas nota de Edu.Fisica: '); readln (n1); write ('Digite suas nota de Sociologia: '); readln (n1); // write('Digite suas notas da 2° unidade: '); write ('Digite suas nota de Portugues: '); readln (n2); write ('Digite suas nota de Matemarica: '); readln (n2); write ('Digite suas nota de Filosofia: '); readln (n2); write ('Digite suas nota de logica: '); readln (n2); write ('Digite suas nota de Quimica: '); readln (n2); write ('Digite suas nota de Fisica: '); readln (n2); write ('Digite suas nota de Infor-Basica: '); readln (n2); write ('Digite suas nota de Eletroeletronica: '); readln (n2); write ('Digite suas nota de Artes: '); readln (n2); write ('Digite suas nota de Des.Tecnico: '); readln (n2); write ('Digite suas nota de Composoc: ');

Relacionados

Lista de computação pascalzim
550 palavras | 3 páginas

de exercícios 3 Exercício 1. Program Pzim ; var n1: integer; Begin writeln ('Digite um valor '); read (n1); writeln('O valor digitado foi:',n1); End. Exercício 2 Program Pzim ; var n1, n2: integer; Begin writeln ('Digite um valor '); read (n1); writeln('O valor digitado foi:',n1); writeln ('Digite outro valor'); read (n2); writeln ('O valor digitado foi:',n2); End. Exercício 3 Program Pzim ; var n1, n2: integer;….

exibir mais
Exercicios de pascal
2527 palavras | 11 páginas

exiba o nome e telefone de 15 amigos Program Exercicio1;Varnome:string;tel,i:integer;Begin for i:=0 to 14 do begin; Write('Escreva o nome do seu amigo:'); Read(nome); Write('Digite o numero do seu amigo:'); Read(tel); end; End. | Program Exercicio1;Varnome:string;tel,i:integer;Begin i:=0; while i <14 do begin; Write('Escreva o nome do seu amigo:'); Read(nome); Write('Digite o numero do seu amigo:'); Read(tel); end;End. | Program Exercicio1;Varnome:string;tel,i:integer;Begin….

exibir mais
diogo rocha
1241 palavras | 5 páginas

1. Faa um algoritmo que receba dois nmeros e exiba o resultado da sua soma. Program var n1, n2, total real Begin writeln (Informe o primeiro nmero ) read (n1) writeln (Informe o segundo nmero ) read (n2) total n1 n2 writeln (A soma , total) end. 2. Faa um algoritmo que receba dois nmeros e ao final mostre a soma, subtrao, multiplicao e a diviso dos nmeros lidos. Program var n1, n2, soma, subtracao, divisao, multiplicacao real Begin writeln (Informe o primeiro nmero ) read (n1) writeln (Informe….

exibir mais
Pascal
744 palavras | 3 páginas

Exercícios Resolvidos 1. Dada uma seqüência de números inteiros não-nulos, seguida por 0, imprimir seus quadrados. program CalculaQuadrado; var numero: integer; /* usada para leitura da sequencia */ quadrado: integer; /* guardara o quadrado do numero lido */ begin writeln(''); writeln(' Calculo dos quadrados de uma sequencia de numeros'); writeln(''); write('Entre com uma sequencia de numeros inteiros nao-nulos, seguida por 0: '); read(numero);….

exibir mais
Trabalho Computação
1800 palavras | 8 páginas

área de superfície. 5 program ex04 5 real r,h,v,a1 5 1.5 Exercício 05 5 Permita a entrada da idade de uma pessoa. Calcular e mostrar quantos dias ela viveu.( Anos completos e com 365 dias). 5 program ex05 5 integer i,d 5 Write(*,*) “ Digite a sua idade :” 5 read(*,*) i 5 d=i*365 5 Write(*,*)” Voce viveu “,d,”dias.” 5 endpogram ex05 5 1.6 Exercício 06 5 Permita ler o preço da gasolina e o valor pago por um usuário. Determine a quantidade de gasolina inserida no tanque. 5 program ex06 6 real g,p,q 6….

exibir mais
exercicios java
1702 palavras | 7 páginas

LISTA 1 EXERCÍCIO 01 using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace Lista_01_EX_01 { class Program { static void Main(string[] args) { // 1. Leia um número e exiba o seu sucessor int x, sucessor = 0; Console.WriteLine("Digite um número inteiro."); x = int.Parse(Console.ReadLine()); sucessor = x; sucessor = sucessor + 1;….

exibir mais
Fundamentos da programação
8023 palavras | 33 páginas

..........................................................................................27 12.1 OBJETIVO: APRESENTAR COMANDOS DE REPETIÇÃO REPEAT...UNTIL (LOOP)....................................................27 12.2 RECURSOS DA LINGUAGEM : PROGRAM, WRITE, WRITELN, DELAY, BEGIN/END; READ, READLN; REAPEAT...UNTIL...........................................................................................................................................27 12.3 EXEMPLO:...........................….

exibir mais
Aprendiz
4388 palavras | 18 páginas

{Programa que converte uma temperatura em graus Farenheit para graus Celsius} program ConversaoTemperatura; var Celsius, Farenheit : real; begin writeln('Digite a temperatura em graus Farenheit'); readln(Farenheit); Celsius := 5*(Farenheit - 32)/9; writeln(Farenheit:0:2, ' graus Farenheit correspondem a ', Celsius:0:2, ' graus Celsius'); end. 2b. {Programa para gerar o invertido de um inteiro dado} program InverteInteiro; var Num, Invertido, Unidade, Dezena, Centena : integer; begin….

exibir mais
todos
2368 palavras | 10 páginas

Escreva algoritmos em C# : 1. Leia um número e exiba o seu sucessor. 2. Calcular a nota necessária para passar por média no 4º bimestre. Dados: notas dos 3 bimestres. 3. Calcular a quantidade de dinheiro gasta por um fumante. Dados: o número de anos que ele fuma, o nº de cigarros fumados por dia e o preço de uma carteira. 4. Ler dois números inteiros, X e Y, e imprimir o quociente e o resto da divisão inteira entre eles. 5. Ler dois números inteiros, X e Y, e apresentar….

exibir mais
Trabalho de Pascal
2935 palavras | 12 páginas

média dos números lidos } program Media_de_tres_numeros; var numero1,numero2,numero3,media:integer; begin writeln('digite 1 numero'); readln(numero1); writeln('digite outro numero'); readln(numero2); writeln('digite mais outro numero'); readln(numero3); writeln('a media dos 3 numeros sao:',(numero1+numero2+numero3)/3); readln(media); end. {2. Faça um algoritmo para ler os coeficiente de uma equação do segundo grau e escrever o valor do seu Delta.} program equacao_do_grau; var a,b,c….

exibir mais

Outros Trabalhos Populares