Jump to content

[Debate] Assuntos diversos acerca de Pascal e Delphi


Recommended Posts

Posted (edited)

O presente tópico derivou deste. thoga31


Isso dos profes nao deixarem usar certas coisas tambem é para te obrigar a pensar em outras maneiras de resolver um problema, sem ter disponiveis as funçoes mais faceis 😛 sempre te obriga a pensar um bocado e a dar valor as outras funcionalidades. No meu primeiro teste de programaçao o ultimo exercicio precisava de 20 ifs encadeados... na aula seguinte ensinaram.nos o CASE... a vontade era de partir aquilo tudo xD mas ao menos percebemos logo a vantagem dele 🙂

Edited by thoga31
  • Vote 1
Posted (edited)

Eu confesso que era um aluno muito diferente do que seria hoje 😛 como fazia sempre quase tudo à primeira (nem que fosse com 10) nem me dava ao trabalho de estudar e explorar coisas novas... erro tremendo 😛 mas nunca é tarde e hoje faço muito disso 🙂

Edited by Kline777
Posted

Eu considerei sempre que um programador (ou um aluno de programação) tinha de procurar a melhor maneira de criar a solução, e não estar limitado ao que os professores diziam.

Quando eu via que existia a tal história de eles quererem ver se nós nos safávamos com menos recursos, eu agarrava e fazia as duas versões. Só porque sim!

"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.

Posted

Eu considerei sempre que um programador (ou um aluno de programação) tinha de procurar a melhor maneira de criar a solução, e não estar limitado ao que os professores diziam.

Quando eu via que existia a tal história de eles quererem ver se nós nos safávamos com menos recursos, eu agarrava e fazia as duas versões. Só porque sim!

Já cheguei a referir que, em Aplicações Informáticas B, o meu trabalho em Flash foi a apresentação da minha Mini Calc feita em Pascal com coisas que nem a professora sabia que era possível fazer-se na dita linguagem? 😄

E faço notar que na época eu sabia quase nada, comparado com o que sei hoje de Object Pascal.

Pena que sejam raros os alunos com este espírito de procurar mais.

Knowledge is free!

Posted

O quê?

Um professor de programação que não tem noção das reais capacidades do Pascal?

Que estranho, nunca ouvi falar disso!... 😁

"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.

Posted

Isso dos profes nao deixarem usar certas coisas tambem é para te obrigar a pensar em outras maneiras de resolver um problema, sem ter disponiveis as funçoes mais faceis 😛 sempre te obriga a pensar um bocado e a dar valor as outras funcionalidades. No meu primeiro teste de programaçao o ultimo exercicio precisava de 20 ifs encadeados... na aula seguinte ensinaram.nos o CASE... a vontade era de partir aquilo tudo xD mas ao menos percebemos logo a vantagem dele 🙂

eheheh, tive um prof. que me fez exactamente o mesmo!

Posted

Eu confesso que era um aluno muito diferente do que seria hoje 😛 como fazia sempre quase tudo à primeira (nem que fosse com 10) nem me dava ao trabalho de estudar e explorar coisas novas... erro tremendo 😛 mas nunca é tarde e hoje faço muito disso 🙂

eheheh, tive um prof. que me fez exactamente o mesmo!

Por acaso a mim nunca me fizeram isso. Claro que 1 mês e pouco de programação não dá para muito, mas eu descobri a pouco e pouco a sua utilidade à medida que via o meu código cada vez maior e mais feio 😛

Mas falando do case, ele dá mesmo imenso jeito. Para quem não usa o Delphi, como eu, e não conhecendo como ele funcionava nos tempos idos, hoje em dia já podemos fazer case de strings. Aleluia, já estava farto de ifs encadeados 😛

@david santiago, já tens uma resolução?

Knowledge is free!

Posted

Mas falando do case, ele dá mesmo imenso jeito. Para quem não usa o Delphi, como eu, e não conhecendo como ele funcionava nos tempos idos, hoje em dia já podemos fazer case de strings. Aleluia, já estava farto de ifs encadeados 😛

Nos tempos idos, o case apenas funcionava com tipos de dados ordinais...

Nos tempos de agora, fica muito mal se eu confessar que nunca mais testei com outro tipo de dados, e como tal, desconheço se é possível ou não com strings? 😄

"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.

Posted

Com o Free Pascal, desde a versão 2.6.0 (salvo erro), muitas mudanças aconteceram, e entre elas a possibilidade de fazer isto:

case nick of
  'nunopicado' : write('No outro tópico parece meio bêbado xD');
  'thoga31'    : write('É assim para o parvo, coitado');
  'Kline777'   : write('Encontra-se todos os dias a beber uma loira.');
  'passarito'  : write('Aconteceu-lhe o mesmo que ao Kline777, e não me refiro à loira ');
end;
  • Vote 1

Knowledge is free!

Posted

Tenho de ver se isso dá em Delphi... Não tenho aqui, mas depois testo.

"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.

Posted

Deculpa, mas se não der no Delphi, acho que vou partir o coco a rir 😄

Também eu! lol

Logo verei!

Kline: Não o tens à mão. Tens a última versão, será o mais justo para testar! 😉

"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.

Posted (edited)

Só em casa 😛

Mas sei que dá 🙂 não dá é com float's mas isso acho que não dá com a maior parte das linguagens 😛

UUUUUUPPPPPSSSS

Tava a acabar de escrever isto e a fazer um... não... não dá!! Agora fiquei envergonhado pelo Delphi pá xD

Edited by Kline777
Posted

Ahhhhh

Estava a ver que andava a ser enganado este tempo todo! 🙂

"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.

Posted

ESPERA... Pára tudo!

Aquele código do case que o Thoga fez não dá no Pascal nem no Delphi?

Nah... Voçês podem ser os melhores programadores do mundo, mas essa vou ter de experimetar pessoalmente!

Eu estou farto de usar o case de strings em asp classico, e tenho a nitida, ou melhor, nitida, sensação que usei case de strings em pascal, só q voces já sabem... BP7

Posted (edited)

ESPERA... Pára tudo!

Aquele código do case que o Thoga fez não dá no Pascal nem no Delphi?

Nah... Voçês podem ser os melhores programadores do mundo, mas essa vou ter de experimetar pessoalmente!

Eu estou farto de usar o case de strings em asp classico, e tenho a nitida, ou melhor, nitida, sensação que usei case de strings em pascal, só q voces já sabem... BP7

Esquece... Eu também venho do BP7, do TP7, do TP6, do TP5.5 e até do TP.3.1!

Não dava!

Há no entanto alternativas, que não sendo tão directas, não fazem ninguém perder cabelo.

Há uma função chamada StrIndex, definida na JCL, que segue qualquer coisa como isto:

Function StrIndex (aString:String; aStringList: Array of String):Integer;

O que ela faz é retornar a posição de aString dentro do array aStringList.

Ou seja, podemos fazer isto:

Case StrIndex ('Palavra', ['procura', 'nesta', 'lista']) of 
 0: ..code..;  // Procura
 1: ..code..;  // Nesta
 2: ..code..;  // Lista
else 
  // vai chegar aqui...
end;

Há outras, mas esta não está mal...

Quem não tiver acesso à JCL, nem é preciso dizer que é facílimo fazer esta função!

Edited by nunopicado

"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.

Posted

ESPERA... Pára tudo!

Aquele código do case que o Thoga fez não dá no Pascal nem no Delphi?

Nah... Voçês podem ser os melhores programadores do mundo, mas essa vou ter de experimetar pessoalmente!

Eu estou farto de usar o case de strings em asp classico, e tenho a nitida, ou melhor, nitida, sensação que usei case de strings em pascal, só q voces já sabem... BP7

No Delphi actual dá, no Free Pascal actual dá, antes não dava.

Estive a ver um livro que tenho aqui de 1993, e refere bem que não dá para fazer case de strings. 😉

Ainda bem que agora dá, lol, é melhor que o StrIndex 😄

Knowledge is free!

Posted

No Delphi actual dá (...)

piu!

"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.

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.