• Caro Visitante, por que não gastar alguns segundos e criar uma Conta no Fórum Valinor? Desta forma, além de não ver este aviso novamente, poderá participar de nossa comunidade, inserir suas opiniões e sugestões, fazendo parte deste que é um maiores Fóruns de Discussão do Brasil! Aproveite e cadastre-se já!

Programação : Pascal

linguagem visual fede! ate a minha vó sabe programar nisto...

8O sua vó deve manjar pacas heheheh, más falndo sério.. dependendo do nível que vc programa quase não digitada nada... ou... programa como qualquer linguagem OO ou que usa objetos...

Acho que o que não pode é se fechar a uma forma de programação e a uma linguagem apenas.... Java é legal... más tem coisas que eu odeio e outras que não confio... como qualquer linguagem

Eu não vejo utilidade em escolas ensinar alguma linguagem sem nem explicar direito classe..., e a pessoa não entende isso se não sabe como funciona algo estruturado.. é tudo evolução.... e mesmo com uma linguagem ultrapassado da pra fazer coisas legais.. (inclusive simular OO em clipper 8O )

Até coisas em Assembler já tive que fazer :roll:
 
Acho que o que não pode é se fechar a uma forma de programação e a uma linguagem apenas....
eu pensava assim antes manja, queria saber de tudo um pouco, mas no fim vc nao fica bom mesmo em algo, seila eu resolvi seguir a carreira programando so em java.
 
bah, Pascal é um saco!!!! Mas gosto de trabalhar com a parte gráfica dele...
Tenho uns programinhas por áí...mas nada de especial..
agora eu to fazendo um cadastro de livros com Banco de dados no Delphi....
Mas eu não gosto de programar!!!!!!!! ahhhhhhhhh q ódio disso!
 
Dark Schneider disse:
E bem mais do que essa galera que acha que Java é a melhor coisa do mundo
E nao eh?
Na boa so tem programador de cobol ainda pq as empresas nao atualisaum seus sistemas... eu ja programei em cobol e achei uma tremenda chatisse...
E usar C hj em dia eh uma pura perda de tempo pois nem orientado eh... c fosse C++ ate q vai...

Ô inocente :mrgreen:

Se eu soubesse Cobol tava ganhando 5 conto por mês com carteira assinada e cheio de regalia

Ser orientado a objeto não quer dizer nada ;) Sabe aquelas maquinhas ATM? Sim, aquelas mesmas que vc tira dinheiro, compra refri, essas coisas? Não são (nem vão ser) programadas com linguagens orientadas a objeto (só pra citar um exemplinho) :mrgreen:

Na verdade, qualquer coisa com software embarcado :mrgreen:


Deriel, que anda tendo que brincar com C# e .NET (e tá gostando)
 
Dark Schneider disse:
linguagem visual fede! ate a minha vó sabe programar nisto...
E só pq é fácil fede... aiai...
Nojentas são essas linguagens velhas aí... trocentos comandos pra fazer uma merdinha na tela! Ah, vai se ferrar! Especialmente o lixo do C!
 
Que nada... é muito legal.....
No estágio eu ajudei um grupo programar um carrinho (sabe aqueles que jogam futebol) e adivinha a linguagem... e diverti pacas.. principalmente na apresentação...

eu pensava assim antes manja, queria saber de tudo um pouco, mas no fim vc nao fica bom mesmo em algo, seila eu resolvi seguir a carreira programando so em java
Progamei em Java... não fez meu gosto... más as vezes tenho que ver o codigo... se tivesse me prendido a uma linguagem só tava perdido......
Fora que agora to vendo XML, .NET (ps não gosto de VB :twisted: heheh), padrões que podem ou não doinar o mercado.... eu que não vou apostar as minhas fichas em um só :wink:
 
Olórin of Lórien disse:
E só pq é fácil fede... aiai...
Nojentas são essas linguagens velhas aí... trocentos comandos pra fazer uma merdinha na tela! Ah, vai se ferrar! Especialmente o lixo do C!

oh mirim :mrgreen: , mas quem programa em C/C++, facilmente consegue aprender Java ou mesmo PHP ou qq outra linguagem, e tenha certeza que esse cara que sabe o lixo do C rapidim consegue um trabalho!
 
quem fala "a linguagem tal é um saco" ou "a linguagem tal nao presta" ou "é um lixo" etc, parem e pensem, não é só pq vcs nao apreciam que necessariamente vai ser ruim.

por exemplo, eu acho que programar em Delphi é MUUUITO mais fácil que programar em C, mas em C é muito mais gostoso ! e eu preciso do C pra programar meu robozinho Fred, pq o programa precisa caber e rodar em um disco de boot.

agora, o que define o VERDADEIRO programador daquele que simplesmente conhece palavras da linguagem, é o gosto.

diz o velho ditado: "Programador não trabalha. É contratado pra se divertir."

e é verdade. não importa a linguagem. algumas vc gosta mais, outras vc evita, mas se mandarem vc usar uma linguagem, e não tiver outro jeito, o programador vai fazê-lo com gosto e diversão de ver o programa rodando. já programei até naquela linguagem porca usada pelos script de mIRC. confesso que tem as que gosto menos, mas programar é uma diversão.

afinal, é somente por diversão que to quebrando a cara no ActionScript do Flash !

---
Portanto, não falem mal de uma linguagem só pq vc não gosta. Use a razão, não a emoção.
 
.: Glóin :. disse:
oh mirim :mrgreen: , mas quem programa em C/C++, facilmente consegue aprender Java ou mesmo PHP ou qq outra linguagem, e tenha certeza que esse cara que sabe o lixo do C rapidim consegue um trabalho!

Não interessa! Eu não gosto e pronto, acabou!
 
Eu ainda to no colégio mas ando fuçando pelas coisas ae. Pascal me pareceu fácil mas nunca interessou. A linguagem que eu gosto mesmo é Assembly. É muito divertida. Alguém aí já tentou programar pro Atari? :)

Aprenda e esqueça Nem com Delphi se trabalha mais hoje em dia
Um primo coitado meu se especializou em Delphi :mrgreen: . O coitado não ganha nem 400 reais hoje.
 
Ô inocente

Se eu soubesse Cobol tava ganhando 5 conto por mês com carteira assinada e cheio de regalia
Bom nao vou falar quanto eu ganho aqui, mas um exp eh um amigo meu q trampa com java q ganha 4 conto...isto pq ele eh analista pleno, o salario medio de um analista java fica em torno dos 4 conto e tem gente q ganha acima de 5 tirando uns deuses q ganhaum 8...
Alem do mais eh muito mais divertido programar em java!

Ser orientado a objeto não quer dizer nada
Sem comentarios...

[/quote]E só pq é fácil fede... aiai...[/quote]
Claro!!! se eh facil nao tem graça!
e vc nao aprende a linguagem em si, vc sabe q c vc apertar este botaum aparece algo na tela tudo bonitinho pra vc...nao eh la na unha e tal!
 
e vc nao aprende a linguagem em si, vc sabe q c vc apertar este botaum aparece algo na tela tudo bonitinho pra vc
Ai eu até concordo com você... más só funciona essa idéia pra quem não conhece a linguagem...
Afinal... tem coisa mais massa de vc criar componentes e pacotes e ter que digitar apenas 1 linha ao invés de 300 pra fazer a mesma coisa?? heheheh
Sou prático e eficiente... e me divirto criando criando coisas pra facilitar minha vida hehe
 
Dark Schneider disse:
Bom nao vou falar quanto eu ganho aqui, mas um exp eh um amigo meu q trampa com java q ganha 4 conto...isto pq ele eh analista pleno, o salario medio de um analista java fica em torno dos 4 conto e tem gente q ganha acima de 5 tirando uns deuses q ganhaum 8...
Alem do mais eh muito mais divertido programar em java!

Em SP até programador ASP ganha isso :mrgreen:
 
Deriel disse:
Dark Schneider disse:
Bom nao vou falar quanto eu ganho aqui, mas um exp eh um amigo meu q trampa com java q ganha 4 conto...isto pq ele eh analista pleno, o salario medio de um analista java fica em torno dos 4 conto e tem gente q ganha acima de 5 tirando uns deuses q ganhaum 8...
Alem do mais eh muito mais divertido programar em java!

Em SP até programador ASP ganha isso :mrgreen:


Eba! Eu seu programar ASP (porcamente)!!! LEgal, to com a vida feita!
 
Agora que eu passe nessa matéria inútil eu coloco um exerciciozinhos pra vcs se divertirem :

1) Um programa pra imprimir a sequencia de Fibonacci ( cada numero é a soma dos dois anteriores )

program fibonacci;
uses crt;
var a,b,c,n,p:integer;

begin
clrscr;
a:=0;
b:=1;
textcolor (yellow);
textbackground (blue);
writeln ('Digite o n£mero de termos da sequencia');
writeln;
readln (p);
writeln;
writeln ('Para o n£mero de ',p,' termos, a sequencia de Fibonacci ‚ :');
writeln;
writeln(a);
writeln(b);
for c:= 1 to (p-2) do
begin
n:=a+b;
a:=b;
b:=n;
writeln (n);
end;
readln;
end.

2) Fazer uma calculadora com as quatro operações principais


program calculadora;
uses crt;
var
opcao:integer;

{ Rotinas de calculos }

{ 1a Rotina : Adicao }
procedure adicao;
var
x,a,b:real;
begin
writeln ('Entre com o primeiro termo');
readln(a);
writeln ('Entre com o segundo termo');
readln(b);
x:=a+b;
writeln('O valor da soma dos termos ‚ ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao Menu');
readln;
end;

{2a Rotina : Subtracao }
procedure subtracao;
var
a,b,x:real;
begin
writeln ('Entre com o maior termo');
readln (a);
writeln ('Entre com o menor termo');
readln (b);
x:=a-b;
writeln ('A diferenca entre os termos ‚ : ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao menu');
readln;
end;

{3a Rotina : Multiplicacao }

procedure multiplicacao;
var
a,b,x:real;
begin
writeln ( 'Entre com o primeiro termo');
readln (a);
writeln ( 'Entre com o segundo termo');
readln (b);
x:=a*b;
writeln ('O produto entre os termos ‚ : ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao menu');
readln;
end;

{ 4a Rotina : Divisao }

procedure divisao;
var
a,b,x:real;
begin
writeln ('Entre com o termo divisor');
readln (a);
writeln ('Entre com o termo dividendo');
readln (b);
x:=a/b;
writeln ('O resultado da divisao dos termos ‚ : ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao programa');
readln;
end;

{ Programa Principal }

begin
opcao:=0;
while opcao<>5 do
begin
clrscr;
writeln ('Tecle uma das opcoes abaixo: ');
writeln;
writeln ('1...........................SOMA');
writeln ('2......................SUBTRACAO');
writeln ('3..................MULTIPLICACAO');
writeln ('4........................DIVISAO');
writeln ('5................FIM DE PROGRAMA');
readln (opcao);
if opcao=1 then
adicao;
if opcao=2 then
subtracao;
if opcao=3 then
multiplicacao;
if opcao=4 then
divisao;
end;
end.

3) Constuir uma matriz de até 100 linhas e exatas 3 colunas. Imprimir a soma da 3ª coluna. Imprimir a matriz. Pesquisar elementos, se o elemento pesquisado estiver na primeira coluna, imprimir a linha onde ele se encontrar, se não estiver na primeira coluna, exibir a mensagem : Código não encontrado. Usar procedures e functions.

program tabela;
uses crt;
type
tab = array [1..100,1..3] of integer;
const
espaco = ' ';
var
num,l,c,cod,flag: integer;
matriz: tab;


{procedure leitura}
procedure leitura (l,c,num:integer; var matriz:tab);
begin
for l:= 1 to num do
for c:= 1 to 3 do
begin
writeln ('Digite o numero da matriz [',l,',',c,']: ');
readln (matriz [l,c]);
writeln;
end;
end; {procedure leitura}

{function soma}
function soma (num:integer):integer;
var
resultado: integer;
begin
resultado:=0;
for l:= 1 to num do
begin
resultado:= resultado + matriz[l,3];
end;
soma:= resultado;
end; {function soma}


{procedure imprime}
procedure imprime (l,c,num:integer; var matriz:tab);
begin
writeln;
for l:=1 to num do
begin
for c:=1 to 3 do
write (matriz[l,c]:5,espaco,'³');
writeln;
end;
end; {procedure imprime}


{procedure pesquisa}
procedure pesquisa (l,c,num:integer; matriz:tab);
begin
while cod >=0 do
begin
writeln;
write ('Digite o elemento que deseja pesquisar: ');
readln (cod);
writeln;
flag:= 0;
for l:=1 to num do
if matriz[l,1]=cod then
begin
flag:= 1;
for c:=1 to 3 do
write (matriz[l,c]:5,espaco,'³');
end;
if (flag = 0) and (cod >= 0) then
begin
writeln ('C¢digo nÆo encontrado');
flag:=0;
end;
writeln;
end;
end; {procedure pesquisa}

{programa principal}

begin
clrscr;
writeln ('Digite o numero de linhas desejado: ');
writeln;
readln (num);
leitura (l,c,num,matriz);
writeln;
writeln ('A soma dos elementos da terceira coluna da matriz e ', soma(num));
imprime (l,c,num,matriz);
pesquisa (l,c,num,matriz);
writeln ('O programa foi finalizado.');
readkey;
end. {programa principal}
 
tava dando uma olhada no arquivo-morto dos meus e-mails e achei isso, é beeem antigo

/***************************************
TOP SECRET Microsoft(c) Code Project: Chicago(tm)
Projected release-date: Summer 1997
***************************************/

#include "win31.h"
#include "win95.h"
#include "evenmore.h"
#include "oldstuff.h"
#include "billrulz.h"
#define INSTALL = HARD

char make_prog_look_big[1600000];

void main()
{
while(!CRASHED)
{
display_copyright_message();
display_bill_rules_message();
do_nothing_loop();

if (first_time_installation)
{
make_50_megabyte_swapfile();
do_nothing_loop();
totally_screw_up_HPFS_file_system();
search_and_destroy_the_rest_of_OS/2();
hang_system();
}

write_something(anything);
display_copyright_message();
do_nothing_loop();
do_some_stuff();

if (still_not_crashed)
{
display_copyright_message();
do_nothing_loop();
basically_run_windows_3.1();
do_nothing_loop();
do_nothing_loop();
}
}

if (detect_cache())
disable_cache();

if (fast_cpu())
{
set_wait_states(lots);
set_mouse(speed, very_slow);
set_mouse(action, jumpy);
set_mouse(reaction, sometimes);
}

/* printf("Welcome to Windows 3.11"); */
/* printf("Welcome to Windows 95"); */

printf("Welcome to Windows 98");

if (system_ok())
crash(to_dos_prompt);
else
system_memory = open("a:\swp0001.swp", O_CREATE);

while(something)
{
sleep(5);
get_user_input();
sleep(5);
act_on_user_input();
sleep(5);
}

create_general_protection_fault();
}
 
Bom eu programo em VB
Mas falam q pascal e quase a mesma coisa

Eu faso informatica na FECAP
o curso e bom mas o colegio e uma bosta

mas se vc tiver interesado em programas de Vb eu tenho muitos
e so vc escolher
 

Valinor 2023

Total arrecadado
R$2.404,79
Termina em:
Back
Topo