Pascal

[Nandofer 0]

Estou precisando fazer um programa q mostre o quadrado dos números inteiros de 15 até 200, só q tenho q usar a estrutura while, fiz esse código mas não funciona. Alguém pode me ajudar?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.

[Kandrade 7]

Estou precisando fazer um programa q mostre o quadrado dos números inteiros de 15 até 200, só q tenho q usar a estrutura while, fiz esse código mas não funciona. Alguém pode me ajudar?

Pelo que entendi do exercício voce não precisa ler o número. Segue abaixo a lógica em portugol:

 

n <- 15;faça enquanto (n < 200)   escrever "O quadrade de ", n, " é: ", n*n   n <- n + 1;fim_enquanto

Percebe que enquanto o loop FOR incrementa a variável o WHILE não.

Por isso a linha:

n <- n + 1;

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif