ajuda em algoritmos por favor!!

[felipemussii]

ola galera eu estou iniciando no curso superior de sistemas da informação e estou precisando de uma ajudinha tenho um exercicio de algoritmos q nao consigo resolver :

faça um algoritmo q receba um numero positivo maior q zero, calcule e mostre

A)o numero digitado ao qadrado

a raiz qadrada do numero digitado

eu estou testando meus algoritmos no visualg se alguem puder me ajudar agradeço desde ja obrigado.

[Visitante]

Opa amigo,

Não sei qual a linguagem, pseudo-código, no visualg, mas independente da linguagem usa o raciocinio:

x

x2 = x^2

Indice = 2 (Pra ser raiz quadrada o indice tem que ser 2)

Raiz = Raiz(x, indice)

Se não houver a função raiz no visualg use matematica onde:

Raiz quadrada de um número é igual ao próprio número elevado à 1/2.

Raiz = x^(1/2)

[felipemussii]

Opa amigo,

Não sei qual a linguagem, pseudo-código, no visualg, mas independente da linguagem usa o raciocinio:

x

x2 = x^2

Indice = 2 (Pra ser raiz quadrada o indice tem que ser 2)

Raiz = Raiz(x, indice)

Se não houver a função raiz no visualg use matematica onde:

Raiz quadrada de um número é igual ao próprio número elevado à 1/2.

Raiz = x^(1/2)

opa valeu cara eu consegui fazer ja mais valeu pela ajuda^^

Mas se você puder me ajudar

esse código nao sei se esta correto mas esta dando um erro (Final de arquivo na esperado ) na compilação.

program Salario;

{ Função :calcular salario,impostos e gratificaçao}

{ Autor :Felipe de camargo mussi}

{ Data : 06/03/2012}

{ Seção de Declarações}

var

gratificacao,tempodeservico,codigo:int;

salarioliquido,imposto,salariobase:real;

acimade2mil,mile1,milreais:string;

begin

write('Valor do Salário:');

writeln (salariobase);

write('Tempo de Serviço em Anos:');

writeln(tempodeservico);

if (salariobase>800.00)then begin

imposto:=(salariobase*0.00);

write (imposto);

end;

if (salariobase>=800.00 < 1500.01)then begin

imposto:=(salariobase*0.03);

write (imposto);

end;

if (salariobase>=1500.01 <=4000.00)then begin

imposto:=(salariobase*0.08);

write (imposto);

end;

if (salariobase>=4000.00)then begin

imposto:=(salariobase*0.12);

write (imposto);

end;

tempodeservico:=(tempodesevio*365);

if (salariobase>1500.00 and tempodeservio>=1095)then begin

gratificacao:=(20);

write (gratificacao);

if (salariobase>1500.00 and tempodeservico>1095)then begin

gratificacao:=(30);

write (gratificacao);

if (salariobase<=1500.00 and tempodeservico<=1095)then begin

gratificacao:=(23);

write (gratificacao);

if (salariobase<=1500.00 and tempodeservico=1095 <2189)then begin

gratificacao:=(35);

write (gratificacao);

if (salariobase<=1500.00 and tempodeservico>2190)then begin

gratificacao:=(33);

write (gratificacao);

salarioliquido:=(salariobase-imposto+gratificacao);

if (salarioliquido<1000.00)then begin

milreai:=(ClaseA);

write (milreais);

end;

if (salarioliquido>1000.00 < 2500.00)then begin

mile1:=(ClaseB);

write (mile1);

end;

if (salarioliquido>2500.00)then begin

acimade2mil:=(ClaseC);

write (acimade2mil);

end;

write('Valor do imposto:');

writeln (imposto);

write('Valor do salario liquido:');

writeln(salarioliquido);

write('Valor da gratificacao:');

writeln (gratificacao);

End