/ -
/ Programa que mostra a srie de Fibonacci at o termo informado
/ pelo usurio. Na srie de Fibonacci cada elemento dado pela
/ soma dos 2 anteriores. :~
/
/ Autor : Rodrigo Gar Pissarro - Beta Tester
/ Contato : [email protected]
/ -
Program Exem
/ -
/ Dadas duas matrizes A e B, programa calcula C = A + B. :~
/ -
Program ExemploPzim ;
Var A,B,C : array [ 1.2 , 1.4 ] of integer;
i,j : integer;
Begin
/ Leitura da matriz A
For i:= 1 to 2 do
For j:= 1 to 4 do
Begin
write('Entre com o valor A[
/ -
/ Programa que mostra a tabuada de um nmero. :~
/
/ Autor : Rodrigo Gar Pissarro - Beta Tester
/ Contato : [email protected]
/ -
Program ExemploPzim ;
Var i: integer ;
N: integer;
Begin
/ Solicita o nmero
write('Informe o nmero desejado: ');
/ -
/ Programa em que o usurio informa os 3 lados de um tringulo
/ e ele informa o tipo de tringulo. :~
/
/ Autor : Rodrigo Gar Pissarro - Beta Tester
/ Contato : [email protected]
/ -
Program ExemploPzim ;
Var X, Y, Z: real;
Begin
/ Solicita os
/ -
/ Programa que troca os valores de duas variveis, a e b. :~
/ -
Program ExemploPzim ;
var a,b: integer;
Begin
/ Solicita valores de a e b
writeln('Digite dois valores inteiros:');
write('Valor de a: ');
readln(a);
write('Valor de b: ');
readln
cfw_ -
Leonardo Pignataro's TETRIS - verso 1.0
* Includo para demonstrar os recursos do Pascal ZIM!
Autor : Leonardo Pignataro - Beta Tester
Contato : [email protected]
Este cdigo fonte teve de sofrer algumas adaptaes para
torn-lo compatv
PS
Srogram conta_hotel;
var
tipo:char;
numdiarias,consumo,totaldiarias,subtotal,taxa,totalgeral:real;
nome:string;
Begin
writeln('digite o nome do hspede');
readln(nome);
writeln('digite o tipo do apartamento: A,B,C,D');
readln(tipo);
write
/ -
/ Programa que calcula a soma dos nmeros pares entre 0 e 200. :~
/ -
Program ExemploPzim ;
Var i, soma: integer ; cfw_ Declarao de variaveis
Begin
i := 2; cfw_ Inicializao das variaveis
soma := 0 ;
Repeat cfw_ Repeticao
Soma := soma + i ;
i
/ -
/ Programa em que o usurio informa o valor de um ngulo em graus
/ e o programa informa o seno e o cosseno deste ngulo.
/
/ OBS: As funes Sin() e Cos() esperam um angulo em radianos. :~
/
/ Autor : Rodrigo Gar Pissarro - Beta Tester
/ Contato : rodrig
/ -
/ Este programa simule a rolagem de dois dados de 6 faces,
/ para depois calcular a soma dos numeros obtidos :~
/ Autor : Luiz Reginaldo - Desenvolvedor do Pzim
/ -
Program RolagemDados ;
var primeiroDado : integer ;
segundoDado : integer ;
soma :
/ -
/ Este programa mostra como criar um game de labirinto :~
/ Autor : Luiz Reginaldo - Desenvolvedor do Pzim
/ -
Program Pzim ;
var maze: array[1.25,1.80] of char;
i, j: integer ;
xDestino, yDestino: integer ;
x,y: integer;
flag:boolean;
/-
/ Funcao
/ -
/ Este programa mostra mostra como construir listas lineares
/ usando ponteiros. :~
/ -
Program ExemploPzim ;
/ Tipo de dados que representa um n da lista
type pNo = ^TNo ;
TNo = record
dado : integer ; / Dado armazenado no n
prox : pNo ; / Ponteir
/ -
/ Programa que calcula o MMC de dois nmeros. :~
/
/ Contribuio: Danilo Rafael Galetti.
/ -
Program Pzim ;
var
PrimeiroValor,SegundoValor,Divisor,MMC:Integer;
Begin
writeln (' Programa que calcula MMC de 2 nmeros ');
writeln (' - ');
writeln (');
/ -
/ Programa com a frmula matemtica para se calcular Pi. Quanto
/ maior o nmero n, mais prximo ser o resultado entre o valor
/ calculado pelo programa e o nmero Pi. Como o programa
/ bastante limitado, esse resultado no se aproxima tanto.
/ Quanto m
/-
/ Programa em que o usurio digita um valor N e ele informa se
/ um nmero primo. Caso no seja o programa ele informa o
/ primeiro divisor deste nmero. :~
/
/ Autor : Rodrigo Gar Pissarro - Beta Tester
/ Contato : [email protected]
/-
Program Exem
/ -
/ Este programa implementa o clssico "Ol mundo!". :~
/ -
Program ExemploPzim ;
Begin
textbackground( red ) ;
clrscr;
gotoxy(10,10);
textcolor( lightcyan );
write('Ol, mundo!');
End.
/ -
/ Este programa mostra a definio de um tipo de dados bem
/ complexo. Esse tipo de dados utilizado para definio e uso
/ de uma varivel de exemplo. :~
/ -
Program ExemploPzim ;
TYPE TIPO_ABSURDO = array[1.4] of record
campo1: integer;
campo2: array[
/ -
/ Este programa mostra a definio de um tipo de dados bem
/ complexo. Esse tipo de dados utilizado para definio e
/ uso de uma varivel de exemplo. :~
/ -
Program ExemploPzim ;
TYPE TIPO_ABSURDO = array[1.4] of record
campo1: integer;
campo2: array[
Program maior_numero;
var n1,n2:integer;
Begin
writeln('digite dois numeros');
readln(n1,n2);
if n1>n2 then
writeln('o maior numero :',n1)
else
writeln('o maior numero :',n2);
End.
Program Indice_Massa_corporea;
var peso,altura,imc:real;
Begin
writeln('digite o seu peso');
readln(peso);
writeln('digite a sua altura');
readln(altura);
imc:=(peso)/(altura*2);
writeln('seu imc :',imc:5:2);
if (imc <= 13) then
writeln(
Program fatorial;
var
fatorial,num,x:integer;
Begin
writeln('digite um numero para achar o fatorial');
readln(num);
fatorial:=1;
for x:=num downto 1 do
fatorial:=fatorial * x;
writeln(' o fatorial :',fatorial);
End.
Program tabuada;
var
num,i,res:integer;
Begin
writeln('digite um numero');
readln(num);
i:=0;
repeat
writeln(num,'x',i,'=',res);
res:=(num*i);
i:=(i+1);
until i > 10
End.
Program Pzim ;
var
n1,n2:string;
procedure troca(nom1,nom2:string);
var
mudanca:string;
begin
mudanca:=nom1;
nom1:=nom2;
nom2:=mudanca;
writeln(nom1);
writeln(nom2);
end;
Begin
writeln('digite o primeiro nome');
readln(n1);
writ
/ -
/ Este programa ilustra a utilizao de enumeracoes. :~
/ -
Program ExemploPzim ;
var diasSemana : (domingo, segunda, terca, quarta, quinta, sexta, sabado) ;
Begin
writeln( 'Depois de segunda vem quinta? ' , succ(segunda) = quinta );
writeln( 'Depoi
