Jump to content
thoga31

Introdução ao Pascal

Recommended Posts

thoga31

Tutorial de pascal no quadro de Tutoriais

Está quase! :)

Já está tudo compilado num DOC!

Se tudo correr bem, antes de Domingo estará lá a compilação, revista e actualizada, deste tutorial!

Cumprimentos,

Thoga31


Knowledge is free!

Share this post


Link to post
Share on other sites
thoga31

Tutorial de Pascal, revisto e actualizado

Está publicado aqui!

Tem os programas testados e corrigidos, bem como os conteúdos em si.

Enjoy it! 😎

Cumprimentos,

Thoga31


Knowledge is free!

Share this post


Link to post
Share on other sites
nunopicado

Parabéns, já és um editor...  ;):confused:

Muito bom trabalho!s


"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites
thoga31

Parabéns, já és um editor...  ;):confused:

Muito bom trabalho!s

LOL. ;)

Obrigado! B)


Knowledge is free!

Share this post


Link to post
Share on other sites
thoga31

Versão PDF

Camaradas,

Encontra-se disponível a versão PDF do presente Tutorial.

Esta versão inclui propostas de resolução de muitos dos exercícios e desafios propostos no tutorial.

Para os interessados: Download do PDF (alojado no WordPress)

Cumprimentos. :)


Knowledge is free!

Share this post


Link to post
Share on other sites
thoga31

Tutorial na Wiki

Apesar de já há algum tempo o presente tutorial estar na Wiki, ainda não o tinha noticiado "publicamente" pois sabia que havia um estudo de reestruturação da Wiki, no qual eu participei.

Agora que a "nova" Wiki está "limpa" e operacional, deixo-vos o link: http://wiki.portugal-a-programar.org/dev_geral:pascal:tutorial_2010:indice

O tutorial está organizado em diferentes páginas, e está, de novo, revisto. Mais exercícios e desafios foram resolvidos. ;)

Cumprimentos,

Thoga31.


Knowledge is free!

Share this post


Link to post
Share on other sites
LagMaster

Muito Bom  :confused:

3. Avaliações 1 – uso do Case… Of…

Consideremos uma escala de avaliações, numa escola, de 0 a 20 (de zero a vinte) valores. Consideremos a negativa uma avaliação abaixo de 10 e a positiva acima deste valor, inclusive. Utilizaremos apenas e tão-somente, neste exemplo, avaliações inteiras (números inteiros).

program avaliacoes;
uses crt;
var nota : integer;

begin
     write('Escreva a avaliacao, inteira, de 0 a 20: ');
     readln(nota);
     case nota of
          // falta a selecção de casos
     end else writeln('Nota invalida');
     readln;
end.

Para seleccionarmos os casos, podemos utilizar a noção de intervalo, existente no Pascal. Evitamos escrever o caso de ser 0, de ser 1, 2, 3 e por aí adiante. Se quisermos que o caso de a avaliação ser “FRACO” seja no intervalo de 0 a 3, inclusive, podemos escrever este intervalo assim: 0..3

Então, façamos a selecção de casos no nosso programa:

program avaliacoes;
uses crt;
var nota : integer;

begin
     write('Escreva a avaliacao, inteira, de 0 a 20: ');
     readln(nota);
     case nota of
          0..3 : writeln('Fraco');
          4..9 : writeln('Insuficiente');
          10..12 : writeln('Pouco Suficiente');
          13..15 : writeln('Suficiente');
          16..18 : writeln('Bom');
          19..20 : writeln('Excelente');
     end else writeln('Nota invalida');
     readln;
end.

Já me tinha respondido a esta pergunta ( na altura ainda estava a ler a parte um do Tut , agora que cheguei aqui e vi um código parecido e que dava o mesmo erro...)

Como me disse para corrigir :D

[code=pascal]
program avaliacoes;
uses crt;
var nota : integer;

begin
     write('Escreva a avaliacao, inteira, de 0 a 20: ');
     readln(nota);
     case nota of
          0..3 : writeln('Fraco');
          4..9 : writeln('Insuficiente');
          10..12 : writeln('Pouco Suficiente');
          13..15 : writeln('Suficiente');
          16..18 : writeln('Bom');
          19..20 : writeln('Excelente');
     else writeln('Nota invalida');
     end;  // Obrigado @nunopicado   
    readln;
end.

[/code]

Mas é melhor corrigir no post mesmo para se alguém vier e que não veja os comentários..

De resto 5*  :D

Vou continuar a ler :D

Cumpz

LagMaster


YOU SHALL NOT PASS !!!

Share this post


Link to post
Share on other sites
nunopicado

Atenção que não leva o end antes do else, mas leva-o depois...

Ou seja, ficaria assim:

program avaliacoes;
uses crt;
var nota : integer;

begin
     write('Escreva a avaliacao, inteira, de 0 a 20: ');
     readln(nota);
     case nota of
          0..3 : writeln('Fraco');
          4..9 : writeln('Insuficiente');
          10..12 : writeln('Pouco Suficiente');
          13..15 : writeln('Suficiente');
          16..18 : writeln('Bom');
          19..20 : writeln('Excelente');
     else writeln('Nota invalida');
     end;
     readln;
end.


"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites
thoga31

As alterações são feitas actualmente na Wiki e não aqui :confused:

Obrigado. Vou corrigir ainda hoje, à noite. :D


Knowledge is free!

Share this post


Link to post
Share on other sites
thoga31

Fiz uma actualização no tutorial na Wiki.

Agradecia que me ajudassem a detectar possíveis erros ou inconformidades para eu actualizar e corrigir. Obrigado. ;)


Knowledge is free!

Share this post


Link to post
Share on other sites
NCS_One

Boas,

Parabéns pelo excelente trabalho.


Se a vida te voltar as costas aproveita e apalpa-lhe o cu.

Share this post


Link to post
Share on other sites
apocsantos

Boa noite,

Parabéns pelo trabalho! Continua que ainda existe tanta coisa de pascal para ser dita, que por este andar ainda editas o livro! ;)

Cordiais cumprimentos,

Apocsantos


"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Share this post


Link to post
Share on other sites
thoga31

Oh God :D

Por acaso ando a pensar há algum tempo escrever um livro, mas não sei até que ponto um gajo como eu possa ter o sucesso de 1) o lançar e 2) ter leitores.

Quando tiver tempo ainda o escrevo. Para já só estou apto a falar da síntese da N,N-dimetil-2-(6-metil-2-p-tolil-imidazol[1,2-a]piridina-3-il)-acetilamida (e não, não inventei este nome xD).


Knowledge is free!

Share this post


Link to post
Share on other sites
thoga31

Repito as palavras que escrevi no tópico do quadro de Tutoriais...

Era a recta final da Primavera de 2010. Publiquei a primeira de seis partes de um tutorial daquela que era, e ainda hoje é, a minha linguagem de eleição.

Migrei o Tutorial para a Wiki da nossa comunidade e compilei num PDF. Expandi com mais uma parte e um anexo. Mantive o seu suporte durante muitos meses... e mais meses... até que, passados 4 anos e 4 meses, dou por finda esta "viagem".

Já encontrei o PDF do meu tutorial publicado em mais sítios na Internet - apesar de nunca me terem pedido autorização, mas enfim, sempre é boa publicidade -, vi muitas visitas à Wiki, recebi imensos comentários, opiniões, críticas... mas chega o momento de deixar este tutorial. Novas paragens me esperam, com certeza, inclusive no mundo do Pascal.

Espero que o meu tutorial tenha ensinado muitas mentes jovens (ou não tão jovens, quiçá) a perceber melhor esta linguagem que acaba por ser um mártir da programação.

Continuarei, claro, a transmitir mais conhecimento sobre assuntos específicos desta linguagem na Revista, como tenho feito nos últimos 2 ou 3 anos, sempre que encontrar um tema interessante para abordar.

Deixando este tutorial descontinuado, resta-me terminar em concordância como quando comecei...

Hope you've enjoyed it! :)

Cumprimentos.


Knowledge is free!

Share this post


Link to post
Share on other sites
tero98

Está muito bom, vai-me dar jeito para o curso! :)

Edited by pwseo
eliminada citação desnecessária

Share this post


Link to post
Share on other sites
nunopicado

Está muito bom, vai-me dar jeito para o curso! :)

É realmente muito bom, e visto que o autor é também um dos moderadores do forum, vai aparecendo por cá! ;)

  • Vote 1

"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites
tero98

É realmente muito bom, e visto que o autor é também um dos moderadores do forum, vai aparecendo por cá! ;)

Claro :cheesygrin:

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

×
×
  • 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.