Jump to content


Photo

Me Ajudem Por Favor!? //Moldura Em Pascal


  • Faça o login para participar
7 replies to this topic

#1 Bru.nepster

Bru.nepster

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Feminino

Posted 28/05/2010, 16:51

Boa Tarde.
Sou nova no forum e gostaria de ajuda em um programa que estou fazendo.
A codficação ja esta pronta, porém não consigo inserir moldura.
O professor precisou sair mais cedo e pediu que fizessemos o trabalho. Mais eu não consigo colocar a moldura.
Estou enviando a codificação... Espero respostas.. Atenciosamente Bruna farias.


Program Alunos;
 		Type Aluno = record               // Registra as funções aluno
			Nome: string [30];
 			Disciplina: string [10];
			Sala: string;
			Notas: array [1..4] of integer;     //vetor que conta as notas de 1 até 4
		end;
	Var     //declarar as variaveis
 		P: array [1..2] of Aluno; //vetor para os registros
 		b,i:integer; //contadores b=para as notas e i para aluno
		valor: integer; //variavel qe irá controlar o comando CASE
 Begin
 	  Gotoxy(30,2);
	  Writeln('Digite 1 para Registros. ');
		Writeln; 
	  Writeln('Digite 2 para sair. '); readln(valor); //menu de acesso as opções
        Case valor of    //inicio do case
			1: begin   //primeira opção case de inserir novos registros
  				b:= 0; //zerar contador
  	     		I:=0;  //zerar contador
 				for I:=1 to 2 do   //indicando ao contador o caminho a percorrer
   				Begin         //inicio da ação de cadastrar registros
   		    			writeln ('Digite o Nome: '); readln(P[i].Nome);
   					writeln ('Digite a Disciplina: '); readln(P[i].Disciplina);
   					writeln ('Digite a Sala: '); readln(P[i].Sala); 
   					for b:=1 to 4 do //iniciando o contador para registrar as notas
   					Begin
						writeln ('Digite a', b ,'Nota: '); readln(P[i].Notas[b]);
					End;
   				End;
   					readkey;
   					clrscr; //limpa a tela
   				for I:=1 to 2 do    //iniciando novamente o contador para um novo begin
   				Begin    //exibe as informações no monitor
   					textcolor(14);
  					Writeln ('Nome: ',P[i].Nome);
   					Writeln ('Disciplina: ',P[i].Disciplina);
   					Writeln ('Sala: ',P[i].Sala);
   					for b:= 1 to 4 do
   						begin
   							Writeln ('Notas: ',P[i].Notas[b]);
   						end;
					Writeln ('___________________s2____________________');
  				 End;
  			end;	
			2: begin  //iniciando a opção 2 do menu de finalizar o programa
	  			     TEXTCOLOR(13);
	   				Writeln('Finalizando Programa!');
	   				Writeln('Tecle ENTER para Sair!');
			end;	
	   
 	   End;	
 End.


#2 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 10/10/2017, 04:15

Comment Se Procurer Du Viagra Sans Ordonnance viagra prescription No Presription Finasteride Tadapox Pas Chere

#3 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 14/10/2017, 06:01

Comprar Cialis Rapido Ou Acheter Finasteride Buy Celebrex Generic viagra online pharmacy Priligy Uso

#4 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 17/10/2017, 19:42

Cephalexin 500 While Im Breastfeeding Pharmacology Cephalexin cheap cialis Kamagra Sabores Comprar Isotretinoin 20mg acne in internet with doctor consult

#5 gapedlok

gapedlok

    24 Horas

  • Usuários
  • 425 posts
  • Sexo:Feminino
  • Localidade:Albufeira

Posted 20/10/2017, 09:40

Discounts! must have 2017

progect13.jpg
Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).

buy.png

READ MORE
Argilak Dyurrandon Game of Thrones
New Women VS Love Pink Brand high quality Handbags Large Capacity Travel Duffle Striped Waterproof Beach Bag Shoulder Bag ( 41.15 $)
Small dot woven silk self-tie bowtie ( 36.69 $) Forzieri
4xl 2016 palace t shirt summer palace skateboards brand-clothing t shirt palace tshirt homme t-shirt men hip hop palace t-shirt ( 17.89 $)
10 x Original Xiaomi Zi5 Rainbow AA Alkaline Battery-6.27 $
Swisswin men travel backpack swe9972 32l outdoor backpack for mountain climbing 15.6 computer backpack for business ( 90.00 $)
Two Tone Pashmina and Silk Fringed Shawl ( 165.00 $)
Hall, Dzhozefin
Honey blonde brazilian hair weave bundles color 27# brazilian body wave human hair 7a grade brazilian virgin hair blonde no shed ( 101.20 $)
New car dvr camera 5 inch mirror digital video recorder dual lens dvr registrar camcorder full hd 1080p auto video 96655 cam ( 69.98 $)
Suspended Hammock Tent 220kg Loading-190.13 $
8a peruvian virgin hair straight 4 bundles unprocessed peruvian straight virgin hair human hair weave puruvian hair bundles ( 40.00 $)
Kraznis mo Nakloz Game of Thrones
Mongolian Afro Kinky Curly Virgin Hair Rosa Hair Products Cheap Curly Weave 100% Human Hair 3 bundles Mongolian Kinky Curly Hair ( 63.59 $)
Leagoo Shark 1 6.0 inch 4G Phablet-186.48 $


84.jpg

#6 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 25/10/2017, 18:02

Levitra Club Zentel Quick Shipping Kamagra Super Review buy viagra online Priligy Janssen Cilag
Cabergoline Sales Tagara Amoxil Effets buy viagra online Cheap Viagra Pleasure Vardenafil Withdrawal

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 17/11/2017, 03:45

Want To Buy Clobetasol Tablet Saturday Delivery viagra Priligy Indicaciones Priligy Buy Online Lilly Cialis In Canada

#8 JeffMalm

JeffMalm

    Super Veterano

  • Usuários
  • 12254 posts
  • Sexo:Feminino
  • Localidade:Mount Carey

Posted 08/02/2023, 22:30

In the United States, most children are vaccinated against the mumps so that this cause for male sterility is rare clomiphene bodybuilding Brenton xLXqftDKsWVbABjEACp 6 28 2022
Male sexual dysfunction 2 purchase lasix
and globally buy lasix cheap online 17 23 November 2007, Epidemiological Unit, Ministry of Healthcare Nutrition, Sri Lanka
The results suggest that repeated administration of simomenine produced an enhanced anti allodynic effect without tolerance in rodent models of neuropathic pain clomid 100mg Audio podcasts featuring pertinent interviews about clinical and meta clinical matters




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq