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.

Program Verifica_se_e_Palindrome;
{Obs:O programa considera letras maiúsculas diferentes de minúsculas,você
deveria ter dito se era pra considerar igual ou diferente,daí normalmente
os pálíndromes são usados em números,então isso não importa,por isso
deixi como distintos}
uses crt;
var
texto:string;                     {Tetxto a ser lido}
	 
	ePalindrome:boolean;      {Define se é palindrome}
i,n:integer;
 Begin
 ePalindrome:=true;
 clrscr;
 readln(texto);
 n:=length(texto);      {n é agora o comprimento do texto}
 for i:=1 to n do
 if texto[i]<>texto[n-i+1] then    {Ex:Se o primeiro caractere é diferente do último,não é palíndrome}
 ePalindrome:=false;
 if ePalindrome then writeln('É palíndrome')  {if ePalindrome for True,faça...}
 else writeln('Não é palíndrome');
 
  
 End.

Coloca um readkey; antes do end final

Solução com procedimento:

Program Verifica_se_e_Palindrome_Usando_procedimento;
uses crt;
var
texto:string;

 Procedure ePalindrome(x:string);
 var
 i:integer;
 n:integer;
 res:boolean;
 begin
 res:=true;
 n:=length(x);
 for i:=1 to n do 
 if x[i]<>x[n-i+1] then res:=false;  
 if res then writeln('É Palíndrome')
 else writeln('Não é Palíndrome');
 end;
 begin
 clrscr;
 readln(texto);
 ePalindrome(texto);
 end.

Note que esta solução não muda praticamente nada em relação a primeira,mas em outros programas procedimentos são muito im,portantes,e eu estou treinando por isso coloquei essa solução alternativa,ahhh não esquece o readkey;,pra ficar mió,eu esqueço.xD

Outra coisa eu não entendi ainda direito como funciona esse site daí estou só falando coisas,se alguém puder me ajudar e dizer o que que é pra fazer,afinal eu não sei se eu estou fazendo soluções erradas,ou quebrando alguma regra,do tipo:
Não dê respostas,tipo pra trabalhos rsrsrs.alguém me explica por favor,ahhh!

Program Primo;
{Rapaz...eu não entendi se é o terceiro primo,ou até o terceiro,mas vai 
os dois,outra coisa,eu não vou colocar essas coisas de deseja continuar,
pq eu não gosto.Bom eu ia usar a função pra verificar se é primo,mas vai 
ficar parecido com o teu,então não vou usar funções,logo minha soluçao vai ficar feio}

uses crt;

 var 
    cont,i,n:integer;          {Cont:Conta quantos primos já foram,i:variável do for,n:número de entrada}              
    ePrimo:boolean;            {Define se número é primo}
    v:array[1..3] of integer;  {Guarda os três primeiros primos a partir do consecutivo,mas por que depois do consecutivo?Pois eu não entendi se por exemplo,ao escrevermos 5 é para dizê-lo tbm}  
 Begin
 clrscr;
 cont:=0;     {O contador é 0inicialment}
 readln(n);     
 n:=n+1;            {Parte para o consecutivo}
 while(cont<3) do begin   {vai até o terceiro}
 ePrimo:=true;                
 for i:=2 to trunc(exp(1/2*ln(n))) do  {Só é necessário testar até a raiz quadrada,mas poderia ser até n-1}
 if n mod i=0 then ePrimo:=false;
 if ePrimo then begin
   cont:=cont+1;
   v[cont]:=n;      {guarda}                          
   end;
    
 n:=n+1;    {Muda n}   
 end;

 
 
 writeln('O terceiro primo a partir do consecutivo do número lido é ',v[3]);
 
 writeln;
 writeln('os três primeiros primos a partir do consecutivo do número lido são:');
 for i:=1 to 3 do
 write(v[i]:3);
 
    
 readkey;
 
 end.

rapaz eu fiz uma solução desorganizada,pq tô indo pra aula e eu ainda tô aprendendo a mexer nesse site.

Ahhhh e eu não sou muito bom em funções,comecei agora a estudar pascal em casa,eu sei criar funções,mas acho um pouco dificil ainda.

Estou começando agora em pascal, estou meio perdida nesse algoritmo alguém poderia me ajudar a resolver?

Faça um programa que leia o nome e o salário bruto de um professor. Sabendo que o imposto a ser descontado
é de 3% sobre o salário bruto e que ele recebe uma bolsa família de R$120,00; calcule o salário líquido. O
algoritmo deve escrever o nome do professor, o salário bruto, o valor do desconto e o salário líquido.



Program salario_do_Professor;
uses wincrt;
const
bolfamil=120; {Define o valor da bolsa família,definimos como uma constante para possíveis alterações em ter que mudar o programa todo}
var sal_brut,sal_liq,imp:real; {Observação,o nome é uma string}
{Tendo:}
nome:string;

{Obs:Uma idéia seria criar a função Desconto,mas esse é meu primeiro post,e eu quero entender como funciona esse site,rapaz pressupondo que você não errou contas,tá feito,ahh não faltou dizer o nome do professor,então coloque writeln(nome;,em algum lugar,bom isso é apenas um teeste}
Begin

clrscr;
writeln ('Digite o nome do Professor');
readln (nome);
writeln ('Digite o salário Bruto');
readln (sal_brut);
imp:=(0.03*sal_brut);
sal_liq:=sal_brut-imp+120;
writeln ('O desconto de seu salário é de: ',imp:2:2);
writeln ('Você receberá a quantia Liquido de R$: ',sal_liq:2:2);
readkey;
End.
{Ah não meu,como envia isso?xD}{ahhh achei lol}

Eu nem sei o que eu fiz acima solução:

Program salario_do_Professor;
uses wincrt;
const
bolfamil=120; {Define o valor da bolsa família,definimos como uma constante para possíveis alterações em ter que mudar o programa todo}
var sal_brut,sal_liq,imp:real; {Observação,o nome é uma string}
{Tendo:}
nome:string;

{Obs:Uma idéia seria criar a função Desconto,mas esse é meu primeiro post,e eu quero entender como funciona esse site,rapaz pressupondo que você não errou contas,tá feito,ahh não faltou dizer o nome do professor,então coloque writeln(nome;,em algum lugar,bom isso é apenas um teeste}
Begin

clrscr;
writeln ('Digite o nome do Professor');
readln (nome);
writeln ('Digite o salário Bruto');
readln (sal_brut);
imp:=(0.03*sal_brut);
sal_liq:=sal_brut-imp+120;
writeln('Professor: ',nome);
writeln ('O desconto de seu salário é de: ',imp:2:2);
writeln ('Você receberá a quantia Liquido de R$: ',sal_liq:2:2);
readkey;
End.
{Ah não meu,como envia isso?xD}{ahhh achei lol}

Eu nem sei o que eu fiz,nesse site é a primeira vez que mecho nesse troço,se tiver correto me avisa por favor.Só não sei como avisa,ahhh.xD