Jump to content
Sign in to follow this  
melSpeedl.ine

Um principio....

Recommended Posts

melSpeedl.ine

Bem pessoal...

pa inaugurar aqui o Pascal... deixo-vos aqui um pequeno tutorial para iniciantes na Programação...

É uma montagem "rápida" de dois tutoriais brasileiros que encontrei... mas que acho que vai ajudar bastante - pelo menos a mim ajudou...

Ainda estou a trabalhar nele por isso... desculpem os erros...

http://melspeedlinefttp.no.sapo.pt/Pascal.doc

Cumps

Share this post


Link to post
Share on other sites
[_Silence_]
Bem pessoal...

pa inaugurar aqui o Pascal... deixo-vos aqui um pequeno tutorial para iniciantes na Programação...

É uma montagem "rápida" de dois tutoriais brasileiros que encontrei... mas que acho que vai ajudar bastante - pelo menos a mim ajudou...

Ainda estou a trabalhar nele por isso... desculpem os erros...

http://melspeedlinefttp.no.sapo.pt/pascal.doc

Cumps

mel, corrige o link pk n tá a dar =(

Deixo aki tb outro tutorial k tou a seguir e axo tb bastante bom (tá em inglês): http://rulgla.leidenuniv.nl/Researchers/Somers_files/pascal_lessons.pdf

Share this post


Link to post
Share on other sites
deathseeker25
Citação
Bem pessoal...

pa inaugurar aqui o Pascal... deixo-vos aqui um pequeno tutorial para iniciantes na Programação...

É uma montagem "rápida" de dois tutoriais brasileiros que encontrei... mas que acho que vai ajudar bastante - pelo menos a mim ajudou...

Ainda estou a trabalhar nele por isso... desculpem os erros...

http://melspeedlinefttp.no.sapo.pt/pascal.doc

Cumps

Upa uma iniciativa dessas não vai passar sem prémio aqui no forum...e o banner?! ai meu Deus, ESSE VAI SER O NOSSO BANNER...altamente melSpeedl.ine

Só há um problema...o Url não está a funcionar...

P.S. Manda-me esse banner para o mail please...será o banner oficial do nosso forum o da tua sig...

Cumps

Share this post


Link to post
Share on other sites
[_Silence_]
Aqui fica um outro tutorial que eu considero 5* e que tenho seguido atentamente....

http://library.thinkquest.org/27297/

Cumps

Bons programas

Tb o descubri ontem e realmente tá mt fixe, fezme perceber algumas coisas k n percebia, tipo os Loops e os Procedures.

Agora tenhu aki um problema para me ajudarem :P

Program FormulaResolvente;
uses
crt;
var
A : real;
B : real;
C : real;
D : real; {o k ta dentro da raiz kuadrada da formula resolvente}
X : real; {coordenada X do vertice}
raiz1 : real;
raiz2 : real;
Begin
clrscr;
writeln( 'Introduz o valor de A:' );
readln( A );
writeln( 'Introduz o valor de B:' );
readln( B );
writeln( 'Introduz o valor de C:' );
readln( C );
d:= (b*b)-(4*a*c);
if d < 0 then
writeln('Raizes de nºs negativos nao existem ')
else
raiz1:= (-b+sqrt(d))/(2*a);
raiz2:= (-b-sqrt(d))/(2*a);
BEGIN
writeln('1ª Raiz = ',raiz1);
writeln('2ª Raiz = ',raiz2);
END;
X:= (raiz1+raiz2)/2;
Begin
writeln('Coordenada X do vertice : ',X);
writeln('Coordenada Y do vertice : ',(A*sqr(x))+(B*X)+C);
while not keypressed do;
end;
end.

Tenhu esse código feito por mim, k é um programa k calcula a fórmula resolvente. Funciona bem, dá os 2 zeros da função e indica a posição do vértice. Onde preciso de ajuda é com o comando: while not keypressed do; k pára o programa até ser carregada uma tecla. Isto só funciona com o Else activado (ou seja kuando o D n fôr menor k 0), para o D menor k 0 ele termina o programa logo, n pára para carregarmos numa tecla.

Vejam lá se sabem ajudar :P (já tentei diversas posições para o comando: while not keypressed do; e nunca pára kuando D > 0).

Share this post


Link to post
Share on other sites
deathseeker25
Citação

Tb o descubri ontem e realmente tá mt fixe, fezme perceber algumas coisas k n percebia, tipo os Loops e os Procedures.

É um tutorial que explica todos os conceitos muito bem explicados....tenho-o seguido e tenho seguido um outro brasileiro que tenho cá em casa e posso dizer que o Pascal já cá canta...não na perfeição é claro, mas já domino os conceitos.

Tambem, muito sinceramente, só aprendi Pascal para me ajudar a perceber com mais facilidade o C...

No entanto, ainda não vou para o C, mas sim para o Turing....depois de aprender a calcular em TI-83 BASIC.. :D:D

Cumps

Share this post


Link to post
Share on other sites
Master_Yoda
Citação

Tb o descubri ontem e realmente tá mt fixe, fezme perceber algumas coisas k n percebia, tipo os Loops e os Procedures.

Agora tenhu aki um problema para me ajudarem :P


Program FormulaResolvente;
uses
crt;
var
A : real;
B : real;
C : real;
D : real; {o k ta dentro da raiz kuadrada da formula resolvente}
X : real; {coordenada X do vertice}
raiz1 : real;
raiz2 : real;
Begin
clrscr;
writeln( 'Introduz o valor de A:' );
readln( A );
writeln( 'Introduz o valor de B:' );
readln( B );
writeln( 'Introduz o valor de C:' );
readln( C );
d:= (b*b)-(4*a*c);
if d < 0 then
writeln('Raizes de nºs negativos nao existem ')
else
raiz1:= (-b+sqrt(d))/(2*a);
raiz2:= (-b-sqrt(d))/(2*a);
BEGIN
writeln('1ª Raiz = ',raiz1);
writeln('2ª Raiz = ',raiz2);
END;
X:= (raiz1+raiz2)/2;
Begin
writeln('Coordenada X do vertice : ',X);
writeln('Coordenada Y do vertice : ',(A*sqr(x))+(B*X)+C);
while not keypressed do;
end;
end.
 

Tenhu esse código feito por mim, k é um programa k calcula a fórmula resolvente. Funciona bem, dá os 2 zeros da função e indica a posição do vértice. Onde preciso de ajuda é com o comando: while not keypressed do; k pára o programa até ser carregada uma tecla. Isto só funciona com o Else activado (ou seja kuando o D n fôr menor k 0), para o D menor k 0 ele termina o programa logo, n pára para carregarmos numa tecla.

Vejam lá se sabem ajudar :P (já tentei diversas posições para o comando: while not keypressed do; e nunca pára kuando D > 0).

É por isso que eu gosto de C...o comando system("PAUSE") dá para tudo..... :D:D

Pascal sei mais ou menos, mas não estou bem a ver....

Share this post


Link to post
Share on other sites
deathseeker25

Já experimentaste por o "while not keypressed do" entre os dois ends?

Share this post


Link to post
Share on other sites
[_Silence_]
Já experimentaste por o "while not keypressed do" entre os dois ends? ;)

Com o while not keypressed do; entre os dois end's faz o mm k no sitio onde o tenhu =(

Share this post


Link to post
Share on other sites
deathseeker25
Citação
Com o while not keypressed do; entre os dois end's faz o mm k no sitio onde o tenhu =(

Vou rever uns e-books e vou tentar responder-lhe á dúvida, que, pelo que parece, tambem é minha....

Share this post


Link to post
Share on other sites
[_Silence_]
Citação

Vou rever uns e-books e vou tentar responder-lhe á dúvida, que, pelo que parece, tambem é minha...

Thks pela ajuda =) E btw "Responder-te" :P

Share this post


Link to post
Share on other sites
deathseeker25
Citação
Thks pela ajuda =) E btw "Responder-te" :P

LOL..ok vou rever os e-books e depois vou responder-te

Share this post


Link to post
Share on other sites
[_Silence_]

Btw mais uma dúvida, ele dáme os resultados em notação cientifica, como meter em números reais? Tipo 1, 2 ou 1.2

Share this post


Link to post
Share on other sites
deathseeker25
Citação
Btw mais uma dúvida, ele dáme os resultados em notação cientifica, como meter em números reais? Tipo 1, 2 ou 1.2

Em vez de real quando declaras, põe integer.... :P

Share this post


Link to post
Share on other sites
[_Silence_]
Em vez de real quando declaras, põe integer.... :P:P

Hmm, mas integer n me vai dar números decimais certo? Precisava de todos os números reais, mas que não apareçam em notação cientifica.

Share this post


Link to post
Share on other sites
deathseeker25
Citação
Hmm, mas integer n me vai dar números decimais certo? Precisava de todos os números reais, mas que não apareçam em notação cientifica.

Segundo os tutoriais que andei a rever, existem alguns tipos de variáveis que tu tambem conheces:

-real;

-integer;

-longint;

-boolean;

-char;

-string;

Ora, não é real nem integer, long int tambem não....

Entre estas todas e segundo este tutorial sé mesmo o real é que cabe nas exigências que fizeste...

Cumps

Share this post


Link to post
Share on other sites
melSpeedl.ine
Citação

Program FormulaResolvente;
uses
crt;
var
A : real;
B : real;
C : real;
D : real; {o k ta dentro da raiz kuadrada da formula resolvente}
X : real; {coordenada X do vertice}
raiz1 : real;
raiz2 : real;
Begin
clrscr;
writeln( 'Introduz o valor de A:' );
readln( A );
writeln( 'Introduz o valor de B:' );
readln( B );
writeln( 'Introduz o valor de C:' );
readln( C );
d:= (b*b)-(4*a*c);
if d < 0 then
writeln('Raizes de nºs negativos nao existem ')
else
raiz1:= (-b+sqrt(d))/(2*a);
raiz2:= (-b-sqrt(d))/(2*a);
BEGIN
writeln('1ª Raiz = ',raiz1);
writeln('2ª Raiz = ',raiz2);
END;
X:= (raiz1+raiz2)/2;
Begin
writeln('Coordenada X do vertice : ',X);
writeln('Coordenada Y do vertice : ',(A*sqr(x))+(B*X)+C);
while not keypressed do;
end;
end.
 

Tenhu esse código feito por mim, k é um programa k calcula a fórmula resolvente. Funciona bem, dá os 2 zeros da função e indica a posição do vértice. Onde preciso de ajuda é com o comando: while not keypressed do; k pára o programa até ser carregada uma tecla. Isto só funciona com o Else activado (ou seja quando o D n for menor k 0), para o D menor k 0 ele termina o programa logo, n pára para carregarmos numa tecla.

Vejam lá se sabem ajudar :P (já tentei diversas posições para o comando: while not keypressed do; e nunca pára kuando D > 0).

assim à primeira vista.. um noob como eu não vai lá...

isto com uma noite bem dormida... ;)

Fiquem bem pessoal!

Share this post


Link to post
Share on other sites
deathseeker25

Boas,

Estive num forum de programação internacional, com bastantes mais users que este nosso novo forum e coloquei lá a tua dúvida....

A verdade é que ela já lá está há quase um dia e ainda não obtive resposta....

A ver vamos se eles lá dão uma ajudinha, senão vou entrar para as pms para o administrador desse mesmo forum....

Cumps

Share this post


Link to post
Share on other sites
deathseeker25

Boas,

Acho que achei uma solução....temporária é claro, porque temos de saber qual o verdadeiro erro do programa...

Usa o getkey no final e ve o que acontece....

Cumps

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.