1ICC
Exemplos Implementados em Free Pascal
Prof. Marcelo Souza
Abril/2012
2ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program NOME;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
3ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program NOME;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
4ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program Nome;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
5ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program NOME;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
6ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program NOME;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
7ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program NOME;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
8ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program NOME;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
9ICC
Exemplo 1 - Implementação
Pseudocódigo
programa Nome
var
Nome : caractere
inicio
leia Nome
escreva Nome
fim
Código em FREE PASCAL
program NOME;
uses crt;
var nome: string;
begin
write('Digite o seu nome: ');
readln(nome);
writeln;
writeln('O nome digitado foi ', nome);
readkey;
end.
10ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program soma;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
11ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
12ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
13ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
14ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
15ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
16ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, S: inteiro
inicio
leia A
leia B
S A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
17ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
18ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva R
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
19ICC
Exemplo 2 - Implementação
Pseudocódigo
Programa soma
var A , B, R: inteiro
inicio
leia A
leia B
R A + B
escreva S
fim
Código em FREE PASCAL
program SOMA;
uses crt;
var A,B,S:integer;
begin
clrscr;
write('Entre o valor de A:= ');readln(A);
write('Entre o valor de B:= ');readln(B);
S:=A+B;
writeln('O resultado da soma ‚ S:= ', S);
writeln('Pressone qualquer tecla para
finalizar...');
readkey;
end.
20ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
21ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
22ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
23ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
24ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
25ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr; //esta função serve para limpar tela
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
26ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
27ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
28ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
29ICC
Exemplo 3 - Implementação
Pseudocódigo
programa salario
var HT, VH, PD, SB,
TD, SL: real
inicio
leia HT, VH, PD
SB HT * VH
TD (PD/100)*SB
SL SB - TD
escreva SL
fim
Código em FREE PASCAL
program Salario;
uses crt;
var HT,VH,PD,SB,TD,SL : real;
begin
clrscr;
write('Quantidades de horas trabalhadas HT:= ');
readln(HT);
write('Valor da hora trabalhada VT:= ');
readln(VH);
write('Percentual de desconto PD:= ');
readln(PD);
SB:=HT*VH;
TD:=(PD/100)*SB;
SL:=SB-TD;
writeln('O valor de salário liquido ‚',SL:7:2);
writeln('Pressione qualquer tecla para finalizar...');
readkey;
end.
Top Related