Pseudo Pascal - Pascal em Português

[Dinamico]

Pseudo Pascal é um compilador de algoritmos com sintaxe igual a da linguagem Pascal, porém em portugues!!!
É ideal para professores deixarem as aulas de algoritmo mais dinâmicas e práticas, pois só com papel e lapis, a aulas ficam de fato muito enjoativas.
Ao instalar, sugiro que vejam o atalho criado no menu iniciar, onde há atalhos para um pequeno referencial, e para uma pasta onde há alguns exemplos (códigos-fonte).
:arrow: Download:
http://dinamico.orgfree.com/apps/pseudo_pascal.html

[Bronson]

Muito interessante amigo, estarei baixando mais tarde para conferir.

[R0Dr1g0.]

Seria uma cópia do portugol?

[Dinamico]

É parecido com portugol, porém com mais funções e sintaxe da linguagem pascal!!!

[R0Dr1g0.]

É parecido com portugol, porém com mais funções e sintaxe da linguagem pascal!!!

Bem legal cara,você quem fez?

[Dinamico]

Sim, este é de minha autoria!!!
A principio ele iria ficar restrito ao CPD de uma faculdade, como forma de ajudar os alunos iniciante de cursos voltados para a programação, e auxiliando os professores em suas aulas; porém depois de um tempo, resolvi distribuir de forma Freeware, pois creio que pode ser util a alguem.

Deixo aqui um exemplo de código fonte (Uma simples calculadorinha):

Programa Calc;
Bibliotecas Crt;
Variáveis
	Oper1,Oper2: Inteiro;
	Oper: Byte;
Inicio
	CorTexto(Branco);
	Escreva('Entre com o 1ø operando: '); LeiaNl(Oper1);
	Escreva('Entre com o 2ø operando: '); LeiaNl(Oper2);
	
	EscrevaNl;
	CorTexto(Amarelo);
	EscrevaNl(' [1] Somar');
	EscrevaNl(' [2] Subtrair');
	EscrevaNl(' [3] Multiplicar');
	EscrevaNl(' [4] Dividir');
	CorTexto(Branco);
	EscrevaNl('Entre com o numero correspondente (1 a 4):');
	LeiaNl(Oper);

	EscrevaNl;
	CorTexto(VermelhoClaro);
	Caso Oper De
	  1: EscrevaNl(Oper1,' + ',Oper2,' = ',Oper1+Oper2);
	  2: EscrevaNl(Oper1,' - ',Oper2,' = ',Oper1-Oper2);
	  3: EscrevaNl(Oper1,' * ',Oper2,' = ',Oper1*Oper2);
	  4: EscrevaNl(Oper1,' / ',Oper2,' = ',Oper1 Div Oper2,', Resto = ',Oper1 Mod Oper2);
	  Senão EscrevaNl('Numero invalido!');
	Fim;
	LeiaTecla;
Fim.

[R0Dr1g0.]

Sim, este é de minha autoria!!!
A principio ele iria ficar restrito ao CPD de uma faculdade, como forma de ajudar os alunos iniciante de cursos voltados para a programação, e auxiliando os professores em suas aulas; porém depois de um tempo, resolvi distribuir de forma Freeware, pois creio que pode ser util a alguem.

Deixo aqui um exemplo de código fonte (Uma simples calculadorinha):

Programa Calc;
Bibliotecas Crt;
Variáveis
	Oper1,Oper2: Inteiro;
	Oper: Byte;
Inicio
	CorTexto(Branco);
	Escreva('Entre com o 1ø operando: '); LeiaNl(Oper1);
	Escreva('Entre com o 2ø operando: '); LeiaNl(Oper2);
	
	EscrevaNl;
	CorTexto(Amarelo);
	EscrevaNl(' [1] Somar');
	EscrevaNl(' [2] Subtrair');
	EscrevaNl(' [3] Multiplicar');
	EscrevaNl(' [4] Dividir');
	CorTexto(Branco);
	EscrevaNl('Entre com o numero correspondente (1 a 4):');
	LeiaNl(Oper);

	EscrevaNl;
	CorTexto(VermelhoClaro);
	Caso Oper De
	  1: EscrevaNl(Oper1,' + ',Oper2,' = ',Oper1+Oper2);
	  2: EscrevaNl(Oper1,' - ',Oper2,' = ',Oper1-Oper2);
	  3: EscrevaNl(Oper1,' * ',Oper2,' = ',Oper1*Oper2);
	  4: EscrevaNl(Oper1,' / ',Oper2,' = ',Oper1 Div Oper2,', Resto = ',Oper1 Mod Oper2);
	  Senão EscrevaNl('Numero invalido!');
	Fim;
	LeiaTecla;
Fim.

Você traduziu os comandos da biblioteca crt ,e antes de compilar você troca as palavras reservadas traduzidas(ex: Caso = case,inicio=begin).
Bem criativo cara.

[Dinamico]

Basicamente há um parser que trata as instruções das bibliotecas System e CRT.
Muitos dos componentes e módulos foram criados com orientação a gambiarra, já que o software foi feito em VB6 e muitos dos componentes de que necessitava não existiam para esta IDE.

[R0Dr1g0.]

Basicamente há um parser que trata as instruções das bibliotecas System e CRT.
Muitos dos componentes e módulos foram criados com orientação a gambiarra, já que o software foi feito em VB6 e muitos dos componentes de que necessitava não existiam para esta IDE.

POG,Quem nunca usou atire a primeira pedra.
Mas é um belo trabalho que você fez

[Dinamico]

Valeu R0Dr1g0, fico feliz que tenha gostado!!!