O que é que está mal ? =X

[UnKnowN]

O que é que está mal ?

program d_pintassilgo;
uses crt;
var
r:real;
begin
textcolor(4+12);
writeln('Indique um número'); readln®;
if (r=1)
then writeln('O número introduzido foi o 1');
if (r=2)
then writeln('O número introduzido foi o 2');
else
writeln('Não introduziu nem o número 1 nem o número2');
end.

O que é que está mal ?

[saramgsilva]

ja nem me lembrava de programar em pascal...  😕 mas dei uns toques... bem nao sei o que é

 uses crt;

  nem

  textcolor(4+12);  

mas o seguinte programa ja funciona!!!  😛

program tofas(input,output);
// uses crt; nao sei para que serve
var r,sair : real;
begin
//textcolor(4+12);    nao sei para que serve...
writeln('Indique um numero'); readln(r);
if (r=1) then
writeln('O numero introduzido foi o 1')
else
if (r=2)
then writeln('O numero introduzido foi o 2')
else
writeln('Nao introduziu nem o numero 1 nem o numero 2');
readln(sair);
end.

[Overrun™]

ja nem me lembrava de programar em pascal...  😕 mas dei uns toques... bem nao sei o que é

 uses crt;

  nem

  textcolor(4+12);  

mas o seguinte programa ja funciona!!!  😛

program tofas(input,output);
// uses crt; nao sei para que serve
var r,sair : real;
begin
//textcolor(4+12);    nao sei para que serve...
writeln('Indique um numero'); readln(r);
if (r=1) then
writeln('O numero introduzido foi o 1')
else
if (r=2)
then writeln('O numero introduzido foi o 2')
else
writeln('Nao introduziu nem o numero 1 nem o numero 2');
readln(sair);
end.

TOFAS:

ai que desgraça, bem tofas, o Uses CRT é uma biblioteca que permite usar o clr src que nos limpa o ecrã, o textcolor, permite-nos imbutir cores no texto, como o próprio nome indica.

UnKnowN:

quanto a erros de compilação, tinhas um ; antes do else (não é permitido) e faltava-te um readln; no fim que te permitia ver o resultado sem executares atravéz de DOS.

Cumps. Overrun

[saramgsilva]

ai que desgraça, bem tofas, o Uses CRT é uma biblioteca que permite usar o clr src que nos limpa o ecrã, o textcolor, permite-nos imbutir cores no texto, como o próprio nome indica.

ai que desgraça pq??  😛 ja nao programava pascal assim á uns 4 anos... lolol so tentei ajudar...  ?

[Overrun™]

soz, desgrassa pk andas a desleixar-te  😄 , tava no gozo heim  😕 .

De qualquer forma tudo bem corrigis-te bem, so postei pra te "relembrar".

Cumps. Overrun

[saramgsilva]

ah ok!! assustaste-me... eu prefiro programar em C ou C++...  😄

[UnKnowN]

Obrigado pla ajuda aos dois 😛

[UnKnowN]

Continua a dar mal

program d_pintassilgo;
uses crt;
var
r:real;
begin
textcolor(4+12);
writeln('Indique um número'); readln(r);
if (r=1)
then writeln('O número introduzido foi o 1');
else
if (r=2)
then writeln('O número introduzido foi o 2');
else
writeln('Não introduziu nem o número 1 nem o número2');
readln;
end.

O FPC assume o erro no primeiro ELSE diz que falta 1 ';'

[David Pintassilgo]

(é pá,..eu instalei o free pascal IDE, mas esta porra ao fazer copy/past não me leva o código todo que eu fiz o copy?? 😛 porque? )

[UnKnowN]

Seleccionas o texto que queres copiar e dps vais a Editar>Copy to Windows e dps fazes o Paste normalmente Ctrl+V 😛

[David Pintassilgo]

meke????

eu fasso o copy (não há cá nenhum Copy to windows) e depois fasso, edit/past na janela do free IDE pascal e só parte do código é que passa :S

[Overrun™]

Hi again.

program d_pintassilgo;

uses crt;

var r:real;

begin

clrscr;

writeln('Indique um número'); 
readln(r);

if (r=1) then

writeln('O número introduzido foi o 1')

else

if (r=2) then

writeln('O número introduzido foi o 2')

else

writeln('Não introduziu nem o número 1 nem o número 2');

readln;

end.

O teu problema provavelmente deriva de não estares a usar a biblioteca das cores, que actualmente não me recordo de qual seja, tens de fazer uses "nome da biblioteca" antes das var's onde tens o uses crt, aproveitei e apliquei alguma funcionalidade ao uses crt, experimenta o programa assim deve dar.

Cumps. Overrun

[UnKnowN]

Pah o problema e mesmo no ELSE (e o que o FPC assume... ) agr nao estou em casa e nao tnho aqui nenhum compilador de Pascal mas dps digo kk koisa 😛

[saramgsilva]

tenta experimentar outro compilador....

por encrivel k parece pode ajudar a resolver o problema ( a semana passada tive esse problema em k no visual c++ 1 programa dava erro e no dev c++ ja n dava ...e perceber pq??    )

[UnKnowN]

Agora já deu obrigado Overrun

PS: no meu Compiler (FPC) a "célula" 'uses crt;' estava a dar erro ... :\ da primeira vez que tentei ... mas agora já nao deu 😛

[Overrun™]

provavelmente era devido ao facto de estares a usar o uses crt sem lhe dares utilidade, estavas a indicar uma biblioteca sem utilidade nenhuma e pode ter dado algum conflito  😕

Cumps. Overrun

[UnKnowN]

Tipo o que entendes por dar uso é usar o clrscr certo ? =X

[Overrun™]

yup

[UnKnowN]

Pois e eu dava ... pah caga nisso ... lol agora já está a dar bem ... 😛

[Overrun™]

Quanto à cena da biblioteca das cores é que tens de fazer um outro uses, mas eu não me lembro do nome da biblioteca, experimenta ver um post aí com o programa de final de curso do [GPL] que ele tem la, ou espera por uma resposta mais concisa  😁.

Cumps. Overrun