Exercícios pascal

Lista de Exercícios Lógica de Programação Prof. Ricardo Wurthmann Saad 1-) Escreva um programa em Pascal para ler um valor fornecido pelo usuário e gerar a seqüência de Fibonacci, onde o valor lido representa até qual termo será gerada a seqüência. 2-) Altere o programa 1, de forma que ele seja executado 100 vezes. 3-) Altere o programa 1, de forma que ele seja executado enquanto o usuário desejar. 4-) Altere o programa 3, de forma a só utilizar a estrutura While como laço. 5-) Escreva um programa em Pascal para ler um valor fornecido pelo usuário e: a-) Calcular o seu fatorial b-) Verificar se o numero é Primo. c-) Gerar a tabuada para valor de –3 a 10. 6-) Altere o programa 5, de forma que ele seja executado 100 vezes. 7-) Altere o programa 5, de forma que ele seja executado enquanto o usuário desejar. 8-) Altere o programa 7, de forma a só utilizar a estrutura While como laço. 9-) Altere o programa 5, de forma a permitir que o usuário escolha qual item deve ser executado (MENU DE OPÇÕES), e executar enquanto o usuário desejar. 10-) Escreva um programa em Pascal para ler N (Enquanto o usuário desejar) valores fornecido pelo usuário e: a-) Calcular a média aritmética entre eles. b-) Verificar qual é o maior e menor elemento entre os elementos lidos. c-) Verificar a qual faixa o elemento pertence. Faixa 1 – Elementos < 0 Faixa 2 – Elementos >=0 e < 15 Faixa 3 – Elementos >=15 e < 100 Faixa 4 – Elementos >= 1000 Faixa 5 – Elementos >= 101 e…

Exercício 01 Escreva um programa em Pascal que leia uma distância em metros e escreva esse mesmo valor em decímetros, centímetros e milímetros. Programa exercício1 Var distancia, metro, decimetro, centmetro, milimetro: real Begin Writeln(‘entre com ao distancia’); Readln(distancia); Writeln(‘entre com metro’); Readln(metro); Decímetro:= distancia +10; Centímetro:= distancia+100; Milímetro:= distancia +1000; End. Exercício 02 Escreva um algoritmo que leia as…

LISTA DE EXERCÍCIOS DE PASCAL Obs.: Esta lista é parte integrante do material para prova de Pascal, mas não deverá ser a única fonte de estudos, servindo apenas como orientação. 1. Fazer um programa ler um vetor de inteiros e positivos e imprimir quantas vezes aparece o número 1, 3 e 4, nesta ordem. O vetor terá no máximo 100 posições. Sair do programa quando for digitado -1. 2. Fazer um programa para ler uma quantidade N de alunos. Ler uma nota para cada um dos N alunos e…

As perguntas devem ser copiadas à caneta juntamente com as respostas à lápis (não as separe); – As respostas são individuais; – Não serão aceitas atividades fora do padrão estabelecido 1. Crie um programa em Pascal que receba os valores de uma matriz D 5x5. Considere que o usuário não informará valores duplicados. A seguir leia um número X qualquer e escreva uma mensagem indicando se o valor de X existe ou não na matriz. 2. Construa um programa em Pascal que leia 2 matrizes, A…

Readkey; End. Program Tabuada; Uses Crt; Var Numero,i,Resultado:Integer; Begin Writeln ('Escreva um numero: '); Readln (Numero); For i:=0 to 10 do Begin Resultado:=(Numero*i); Writeln (Numero,' x ',i,' = ',Resultado); End; Readkey; End. {Exercício 1: Faça um programa que receba as medidas do retângulo e calcule a área do mesmo} Program area_retangulo; Uses Crt; Var L1,L2:Real; Begin Writeln (' L4 '); Writeln ('…

1) Faça um algoritmo que solicite ao usuário dois números e exiba o resultado da soma dos números lidos. Program exercicio_1 ; var num1:integer; num2:integer; total:integer; Begin write('Digite primeiro numero: '); readln(num1); write('Digite segundo numero: '); readln(num2); total:=num1+num2; writeln('seu total e ' , total); readkey End. 2) Faça um algoritmo que solicite ao usuário dois números e ao final mostre a soma, subtração, multiplicação e…

UNIVERSIDADE GAM A FILHO DISCIPLINA INF193 - COMPUTAÇÃO CIENTÍFICA PROJETO GQ1 TÍTULO Turbo Pascal NOME: MATRICULA: GIOVANI LOPES 20091603404 NOME: MATRICULA: RODRIGO PINHEIRO CURSO: ENG. ELÉTRICA 20032072635 DISCIPLINA: COMPUTAÇÃO CIENTÍFICA TURMA: 308 Computação Científica – Trabalho GQ1 INF193 – TRABALHO DA GQ1 INF193 – 2009.2 Faça um algoritmo e a implementação através do Turbo Pascal, para a escolha e execução do…

Nome: josé victor araujo da silva. Matricúla: 2014102033 1. Dada uma seqüência de números inteiros não-nulos, seguida por 0, imprimir seus quadrados. Program sequencianumerica ; var numero : integer; quadrado: integer ; Begin write('digite o numero que você quer que seja elevado ao quadrado: '); read(numero); while (numero 0) do begin quadrado := numero * numero; writeln('O quadrado do numero que você digitou é :',…

1) Criar um algoritmo que receba e 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.…

FIT – Faculdade de Informática de Taquara Curso de Sistemas de Informação EXERCÍCIOS e Respostas da disciplina de PROGRAMAÇÃO I - Linguagem Pascal - Profa. Flávia Pereira de Carvalho Agosto de 2006 Exercícios de Programação I - Linguagem Pascal Sumário Página Simples - 1 ao 7.............................................................................................................................................................3 Seleção - 1 ao…