cadastro

06/07/2008

Boa noite pessoal, hoje irei postar um programinha um pouco mais avançado do que os outros que já postei. Ele faz o cadastro de no Maximo 10 pessoas, onde isso pode ser alterado, e depois que cadastrar você pode estar procurando esses cadastros, alterando-os, excluindo e algumas outras opções, espero que gostem.

Program Dados_pessoais ;
var
i:integer; //quantas pessoa cadastradas
nome:array[1..10]of string;
idade:array[1..10]of integer;
sexo:array[1..10]of char;
op:char;
n:string;
Begin

for i:=1 to 10 do
nome[i]:=”;

repeat
clrscr;
writeln(‘1-Cadastrar’);
writeln(‘2-Localizar’);
writeln(‘3-Listar’);
writeln(‘4-Alterar’);
writeln(‘5-Excluir’);
writeln(‘6-Finalizar’);
op:=readkey;

case op of
‘1’: begin
clrscr;
for i:=1 to 10 do
begin
if nome[i]=” then
begin
writeln(‘Cadastro’);
writeln(‘Nome’);
readln(nome[i]);
nome[i]:=upcase(nome[i]);
writeln(‘idade:’);
readln(idade[i]);
writeln(‘sexo:’);
readln(sexo[i]);
sexo[i]:=upcase(sexo[i]);
writeln(‘Pressione C para confirmar o cadastro’);
op:=upcase(readkey);
if op’C’ then
nome[i]:=”;
break;
end;
end;
if i>10 then
writeln(‘Cadastro lotado…’);
end;

‘2’:begin
clrscr;
writeln(‘Localizar’);
writeln(‘Entre com o nome:’);
readln(n);
n:=upcase(n);
for i:=1 to 10 do
begin
if n=nome[i] then
begin
writeln(”);
writeln(‘Nome =’,nome[i]);
writeln(‘Idade =’,idade[i]);
writeln(‘Sexo =’,sexo[i]);
break;
end;
end;

if i>10 then
writeln(‘Nome não encontrado’);

readkey;
end;
‘3’:begin
clrscr;
writeln(‘Listagem’);
for i:=1 to 10 do
begin
if nome[i]” then
begin
writeln(‘nome:’,nome[i]);
writeln(‘Idade:’,idade[i]);
writeln(‘Sexo:’,sexo[i]);
writeln(”);
writeln(”);
end;
end;
readkey;
end;
‘4’:begin
clrscr;
writeln(‘Alterar’);
writeln(‘Entre com o nome:’);
readln(n);
n:=upcase(n);
for i:=1 to 10 do
begin
if n=nome[i] then
begin
writeln(‘nome:’,nome[i]);
writeln(‘Digite o novo nome:’);
readln(nome[i]);
nome[i]:=upcase(nome[i]);
writeln(‘Idade:’,idade[i]);
writeln(‘Digite a nova idade’);
readln(idade[i]);
writeln(‘Sexo:’,sexo[i]);
writeln(‘Digite o novo sexo’);
sexo[i]:=upcase(readkey);
break;
end;
end;
end;

‘5’:begin
clrscr;
writeln(‘Excluir’);
writeln(‘Entre com o nome:’);
readln(n);
n:=upcase(n);
for i:=1 to 10 do
begin
if n=nome[i] then
begin
writeln(‘nome:’,nome[i]);
writeln(‘Idade:’,idade[i]);
writeln(‘Sexo:’,sexo[i]);
writeln(”);
writeln(”);
writeln(‘Pressione C para confirmar a exclusão’);
op:=upcase(readkey);
if op=’C’ then
nome[i]:=”;//
break;
end;
end;
end;

end;
until op=’6′;

End.


desenhando

06/03/2008

Ola pessoal, estou postando mais um programa de pascal, esse é chique em, com ele você será capaz de fazer desenhos, espero que gostem.

Program asterisco ;
var
c:char;
x,y,col,lin,cor:integer;
Begin
x:=40;
y:=15;
cor:=0;
gotoxy(x,y);
write(‘*’);

// ate aki eh a borda
for col:=1 to 80 do
begin
gotoxy(col,6);
write(‘*’);
end;

for col:=1 to 80 do
begin
gotoxy(col,25);
write(‘*’);
end;

for lin:=6 to 25 do
begin
gotoxy(1,lin);
write(‘*’);
end;

for lin:=6 to 25 do
begin
gotoxy(80,lin);
write(‘*’);
end;

repeat
// Dados
textcolor(7);
gotoxy(1,3);
writeln(‘lin:’,y:2);
gotoxy(10,3);
writeln(‘Col:’,x:2);
gotoxy(65,3);
writeln(‘Cor:’);
textcolor(cor);
gotoxy(70,3);
write(chr(177),cor:2);

c:=upcase(readkey);
if c=’M’ then // mudança de cor
begin
cor:=cor+1;
if cor>15 then
cor:=0;
end
else
if c=’W’ then
begin
if y>7 then
begin
y:=y-1;
end;
end
else
if c=’S’then
begin
if y<24 then
begin
y:=y+1;
end;

end
else
if c=’A’ then
begin
if x>2 then
begin
x:=x-1;
end;
end
else
if c=’D’ then
begin
if x<79 then
begin
x:=x+1;
end;

end
else
if c=’Q’ then
begin
if (y>7) and (x>2) then
begin
x:=x-1;
y:=y-1;
end;
end
else
if c=’E’ then
begin
if (y>7) and (x<79) then
begin
x:=x+1;
y:=y-1;
end;
end
else
if c=’Z’ then
begin
if (y2) then
begin
x:=x-1;
y:=y+1;
end;
end
else
if c=’C’ then
begin
if (y<24) and (x<79) then
begin
x:=x+1;
y:=y+1;
end;
end;

if c=’P’ then
begin
clrscr;
end;

gotoxy(x,y);
write(‘*’);
until (c=’F’);

End.


Mega Sena

05/23/2008

Boa noite estou postando mais um programa feito no pascalzim espero que vocês gostem, ele faz um sorteio de seis números de 0 a 60 e sorteia 6 números.
Façam suas apostas e torçam.

Program megasena ;
var
n:integer;
Begin
gotoxy(23,10);
textcolor(white);
writeln(‘Resultado da Mega Sena’);
randomize;

repeat
gotoxy(25,13);
textcolor(red);
textbackground(white);
for n:=1 to 6 do
begin

write(‘ ‘,random(60)+1);
delay(100);
end;
until n>0;
End.


Preenchimento com o asterisco

05/21/2008

Program preenchimento ;
var
lin,col:integer;
Begin
for lin:=1 to 25 do
begin
for col:=1 to 80 do
begin
textcolor(red);
gotoxy(col,lin);
write(‘*’);
delay(25);
end;
end;
End.


Número primo com laço de repetição

05/10/2008

Bom Dia como prometido estou postando o programa que mostra o número primo mais agora com laço de repetição, é mais curto o programa e verifica todo número sem precisar fazer o calculo de todos.

Program primo ;
var
i,n,cont,r,x:integer;
op:char;
Begin
repeat
writeln(‘entre com um valor:’);
readln(n);
cont:=0;
x:=0;

for i:=0 to n do
begin
x:=x+1;
r:=n mod x;
if r=0 then
cont:=cont+1;
end;

if cont=2 then
begin
writeln(‘o número É primo’);
end
else
begin
writeln(‘o número NÃO é primo’);
end;
writeln(‘Deseja verificar novo numero ? (s/n)’);
op:=upcase(readkey);
clrscr;
until(op=’N’);
End.


Numero Primo

05/08/2008

Bom temos duas maneira de Fazer a verificação de um número primo, primeiro vou mostrar a vocês a maneira mais dificil e mais extensa sem laço de repetição e talvez amanhã eu coloco do modo mais facil para vocês.

Program numero_primo ;
var
n,r1,r2,r3,r4,cont:integer;
Begin
writeln(‘Entre com o número’);
readln(n);
cont:=0;
r1:=n mod 1;

r2:=n mod 2;
if n>=2 then

begin
if r1=0 then
begin
cont:=cont+1;
writeln(‘e primo’);
end;
end
else

begin
r3:=n mod 3;
if n>=3 then

begin
if r3=0 then
begin
cont:=cont+1;
writeln(‘e primo’);
end;
end

else

begin
r4:=n mod 4;
if n>=4 then

begin
if r4=0 then
begin
cont:=cont+1;
writeln(‘e primo’);
end;
end;
end;
end;
End.


maior

05/03/2008

Um programa que exibirá se o número digitado pelo usuario é maior ou menor que os outros que ele digitou.

Program maior_menor ;

var

_____n1,n2,n3:real;

Begin

_____writeln(‘Entre com o primeiro valor’);

_____ readln(n1);

_____writeln(‘Entre com o segundo valor’);

_____readln(n2);

_____writeln(‘Entre com o terceiro valor’);

_____readln(n3);

_____if n1>n2 then

_____begin

___________if n1>n3 then

___________begin

_________________writeln(‘O maior é ‘,n1);

___________end;

_____end

_____else

_____begin

____________if n2>n1 then

____________begin

__________________if n2>n3 then

__________________begin

_________________________writeln(‘O maior é ‘,n2);

__________________end;

_____________end;

_____________begin

__________________if n3>n1 then

__________________begin

_______________________if n3>n2 then

_______________________begin

_____________________________writeln(‘O maior é ‘,n3);

_______________________ end;

___________________end;

______________end;

_______end;

___

End.


Seguir

Get every new post delivered to your Inbox.