Aula 02 Exemplos de Algoritmos
description
Transcript of Aula 02 Exemplos de Algoritmos
![Page 1: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/1.jpg)
1ICC
Exemplos Implementados em Free Pascal
Prof. Marcelo Souza
Abril/2012
![Page 2: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/2.jpg)
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.
![Page 3: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/3.jpg)
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.
![Page 4: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/4.jpg)
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.
![Page 5: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/5.jpg)
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.
![Page 6: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/6.jpg)
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.
![Page 7: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/7.jpg)
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.
![Page 8: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/8.jpg)
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.
![Page 9: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/9.jpg)
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.
![Page 10: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/10.jpg)
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.
![Page 11: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/11.jpg)
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.
![Page 12: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/12.jpg)
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.
![Page 13: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/13.jpg)
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.
![Page 14: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/14.jpg)
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.
![Page 15: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/15.jpg)
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.
![Page 16: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/16.jpg)
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.
![Page 17: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/17.jpg)
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.
![Page 18: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/18.jpg)
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.
![Page 19: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/19.jpg)
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.
![Page 20: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/20.jpg)
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.
![Page 21: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/21.jpg)
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.
![Page 22: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/22.jpg)
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.
![Page 23: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/23.jpg)
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.
![Page 24: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/24.jpg)
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.
![Page 25: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/25.jpg)
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.
![Page 26: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/26.jpg)
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.
![Page 27: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/27.jpg)
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.
![Page 28: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/28.jpg)
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.
![Page 29: Aula 02 Exemplos de Algoritmos](https://reader030.fdocument.pub/reader030/viewer/2022033102/577c81c21a28abe054ae004d/html5/thumbnails/29.jpg)
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.