5 replies to this topic

[Nandofer]

Pessoal tenho um problema não consigo fazer o seguinte programa usando a estrutura while
Apresentar o quadrado dos números inteiros de 15 a 200. Já fiz o código mas não funciona... Será alguém sabe o q tá errado

program quadrado;
uses crt;
var n,q:integer;
begin;
clrscr;
write('Digite n£meros inteiro entre 15 e 200');
readln;

while(n<=15)and(n>=200) do
begin
write('Digite um n£mero: ');readln(n);
q:=sqr(n);

write('O quadrado do n£mero que vocˆ digitou ‚: ',q);
end;
repeat until keypressed;
end.

[Rafaelbetatester]

rapaz você colocou entre com algo... e leu nada pra quê mesmo heim?
e como tu vai saber se n>=15 e<=100,se tu nem leu.


Faz o seguinte:


Program Quadrados;
uses crt;
var
i:integer;


Begin
clrscr;
for i:=15 to 100 do begin {faça i de 15 até 100}
write(sqr(i):8); {Diga i ao quadrado,e dê um espaço de 8}
end;
readkey;
End.

Lol é até 200.
faz o seguinte:
Program Quadrados;
uses crt;
const
min=15;
max=200;


var
i:integer;


Begin
clrscr;
for i:=min to max do begin {faça i de 15 até 100}
write(sqr(i):8); {Diga i ao quadrado,e dê um espaço de 8}
end;
readkey;
End.




Bom usamos as constantes pra mudar mais facilmente sem ter que ficar procurando no programa todinho

Rapaz ele não quer que leia nada,ele quer:



"Apresentar o quadrado dos números inteiros de 15 a 200"
,mas caso quisesse o quadrado de um inteiro entre 15 e 200,faria:


Program teste;
uses crt;
var
n:integer;
begin
clrscr;
writeln('Entre com um inteiro');
readln(n);
while (n<15) or (n>100) do begin
writeln('Entre com um inteiro');
readln(n);
end;
writeln('n ao quadrado =',sqr(n));
readkey;
end.


Cara outra coisa eu não me preocupei com esse negócio de writeln('n ao quadraod...');por que fica bonito,mas não serve muito.Daí eu acho que o mais importante é a lógica da solução,mas para praticar comandos é muito bom usar.

Rapaz ele não quer que leia nada,ele quer:



"Apresentar o quadrado dos números inteiros de 15 a 200"
,mas caso quisesse o quadrado de um inteiro entre 15 e 200,faria:


Program teste;
uses crt;
var
n:integer;
begin
clrscr;
writeln('Entre com um inteiro');
readln(n);
while (n<15) or (n>100) do begin
writeln('Entre com um inteiro');
readln(n);
end;
writeln('n ao quadrado =',sqr(n));
readkey;
end.


Cara outra coisa eu não me preocupei com esse negócio de writeln('n ao quadraod...');por que fica bonito,mas não serve muito.Daí eu acho que o mais importante é a lógica da solução,mas para praticar comandos é muito bom usar.

[LarPhozyHah]

Doxycycline Over Night Pediatric Dosing For Amoxicillin Acheter Cialis Ligne France pharmacy prices for levitra Best And Quickest Viagra Online Amoxicillin Treatment Course For Pneumonia
Levitra Food where to purchase low cost levitra Cyntra Viagara Radio Commercials

[LarPhozyHah]

Buy Slimex Do Generic Ed Drugs Really Work Cialis Mas Alcohol viagra online Buy Pfizer Viagra Online
No Script Trimix Ed Meds Bystolic For Sale Sildenafil Citrate 100mg Prices generic viagra Cialis Precio 20 Mg
Where To Buy Direct Stendra Discount Free Shipping Isotretinoin Viagra Soft Generique cialis Viagra A Stomaco Vuoto Cialis Grande Bretagne

[LarPhozyHah]

Levitra Scheda Tecnica Priligy Alternatives viagra online Cialis Generico Contrareembolso Comparatif Clomid Online Pyridium Mail Order Glendale
Cialis Duracion Del Efecto Side Effects Amoxicillin Buy Amlodipine Without Prescription cialis Cephalexin Penicillin Allergy Controindicazioni Propecia Finasteride Viagra En Cordoba
Keflex Respiratory Infection Viagra Pastiglie Morbide vardenafil bestellen Cheap Viagra Online Ozz Pills Viagra Quanto Costa Farmacia
Clavulanate Potassium And Penicillin Dapoxetina Ficha Tecnica NРÑФtapoteket generic levitra for sale Buy Prednisone Onlineno Prescription

[RonsisM]

Prezzo Del Cialis Originale Comprar Viagra Cialis Levitra Propecia Online No Prescription Hair Growth cialis price Where Can U Buy Black Rock Like Viagra Acheter Cialis Bon Marche Minox Propecia 1mg
Viagra Internet Avis Cephalexin Dogs Side Effects Levitra Gegen Zu Fruhes Kommen generic viagra Acquisto Cialis Svizzera Bactrim Ds 800 Vs Amoxicillin 500 Cialis Non Prescription Needed