|
Respostas
|
Data Resposta: 6/6/2008 6:15:40 PM
|
|
Heitor Santos
|
algoritmo "digitação"
// Autor : Heitor Santos
// Data : 6/6/2008
var
tempo: inteiro
inicio
funcao digitar: inteiro
var palavra: inteiro
inicio
palavra<-tempo*30
retorne palavra
fimfuncao
escreva("Informe durante quantos minutos você digitou: ")
leia(tempo)
tempo<-digitar
escreval("Durante o período informado foram digitados, em média, ", tempo, " palavras")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/6/2008 9:43:37 PM
|
|
MARIA VIRGINIA PEREIRA DA SILVA
|
algoritmo "media palavras por minuto"
// Função :
// Autor : virginia
// Data : 6/6/2008
// Seção de Declarações
var
minutos:inteiro
media:inteiro
inicio
funcao media:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("quantos minutos você levou para digitar?")
leia(minutos)
minutos<-media
escreva("você digita em média ",minutos," palavras por minuto")
// Seção de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/6/2008 9:44:33 PM
|
|
MARIA VIRGINIA PEREIRA DA SILVA
|
algoritmo "media palavras por minuto"
// Função :
// Autor : virginia
// Data : 6/6/2008
// Seção de Declarações
var
minutos:inteiro
media:inteiro
inicio
funcao media:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("quantos minutos você levou para digitar?")
leia(minutos)
minutos<-media
escreva("você digita em média ",minutos," palavras por minuto")
// Seção de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/7/2008 6:03:49 PM
|
|
DAVID RODRIGUES DA COSTA
|
algoritmo "media"
// Função : exercicio 13
// Autor :David Rodrigues da Costa RA-789068-0
// Data : 7/6/2008algoritmo "media"
// Seção de Declarações
var
minutos:inteiro
inicio
funcao quantidade:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("o tempo que vc digitou em minutos")
leia(minutos)
minutos<-quantidade
escreva("a quantidades de palavras em media digitada no periodo informado acima", minutos)
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/7/2008 7:48:36 PM
|
|
Fernando Guilherme
|
algoritmo "Atividade 13"
// Função :
// Autor :
// Data : 7/6/2008
// Seção de Declarações
var palavras, min: inteiro
inicio
funcao digitar: inteiro
var aux: inteiro
inicio
aux<-min*palavras
retorne aux
fimfuncao
escreva("Quantas palavras você digitou? ")
leia(palavras)
escreva("Quantos minutos levou para digitar? ")
leia(min)
min<-digitar
escreva("Você digitou em media,", min," palavras por minuto.")
fimalgoritmo
Professor, as duas variáveis podem ser dinâmicas? Ou as
palavras por minuto devem ser obrigatoriamente 30?
Grato.
|
|
|
|
|
Respostas
|
Data Resposta: 6/7/2008 8:40:12 PM
|
|
Júlio Araújo
|
Aluno: Júlio Clayton de Moura Araújo
algoritmo "Média de palavras digitadas"
// Função :
// Autor :
// Data : 7/6/2008
// Seção de Declarações
var
m,total:real
inicio
funcao media:real
var aux:real
inicio
aux<-m*30
retorne aux
fimfuncao
escreval("Digite o Tempo gasto para digitar em minuitos")
leia(m)
m<-media
escreval("Você digitou nesse tempo cerca de ", m, " Palavras")
// Seção de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/8/2008 8:38:40 PM
|
|
jerry adriane oliveira costa
|
algoritmo "Sub-rotina"
// Função :Média
// Autor : Jerry
// Data : 8/6/2008
// Seção de Declarações
var
x,y,total:real
nome:literal
inicio
// Seção de Comandos
funcao media:real
var result:real
inicio
result<-x*y/2
retorne result
fimfuncao
escreva("Nome: ")
leia(nome)
escreval("Quantas palavras consegue digitar em um período de tempo? ")
leia(x)
escreval("Quanto tempo em minutos? ")
leia(y)
total<-media
escreva("Sua média é de",total," palavras p/m,")
se total>=900 entao
escreva(" Parabéns!!!!!!!!!!!!")
fimse
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/8/2008 9:09:11 PM
|
|
jerry adriane oliveira costa
|
Professor verifiquei que a postagem anterior estava errada, eis aqui a que acredito estar correta.
algoritmo "Sub-rotina"
// Função :Média
// Autor :Jerry
// Data : 8/6/2008
// Seção de Declarações
var
x,y,total:real
nome:literal
inicio
// Seção de Comandos
funcao media:real
var result:real
inicio
result<-x/y
retorne result
fimfuncao
escreva("Nome: ")
leia(nome)
escreval("Quantas palavras consegue digitar em um período de tempo? ")
leia(x)
escreval("Quanto tempo em minutos? ")
leia(y)
total<-media
escreva("Sua média é de",total," palavras p/m,")
se total>=30 entao
escreva(" Parabéns!!!!!!!!!!!!")
fimse
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/8/2008 11:25:33 PM
|
|
Sebastião Ramos de Souza
|
algoritmo "atividade 13"
// Função : "Calcular a média de quantas palavras são digitadas no computador em
// um período informado pelo usuário. Sabendo-se que um usuário
// normal digita 30 palavras por minuto. Cálculo feito utilizando Função."
// Autor : Sebastião Ramos de Souza - 9552995
// Data : 09/06/2008
var
time:inteiro
inicio
funcao calcula:inteiro
var aux:inteiro
inicio
aux <- time*30
retorne aux
fimfuncao
escreva("Informe quantos minutos você digitou: ")
leia (time)
time <- calcula
escreva("Você digitou" ,time, " palavras durante esse período." )
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/10/2008 2:10:35 PM
|
|
Victor
|
algoritmo "tempo de digitaçao"
// Função :
// Autor : victor de barros da costa
// Data : 10/6/2008
// Seção de Declarações
var media,tempo:inteiro
inicio
escreva("tempo desejado: ")
leia(tempo)
funcao digita:inteiro
var calcula:inteiro
inicio
calcula <- tempo*30
retorne calcula
fimfuncao
media <- digita
escreva("tempo escolhido: ",tempo,"usuario digita em media no tempo escolhido: ",media)
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/10/2008 3:02:38 PM
|
|
Ramon Ferreira da Silva
|
algoritmo "Médida de Palavras por Minutos"
// Função : Cálculo
// Autor : Ramon Ferreira da Silva
// Data : 10/6/2008
// Bom Dia !!!!!!!!!!!
var
mi: inteiro
ident:literal
inicio
funcao digitar: inteiro
var palavra: inteiro
inicio
palavra<- mi*30
retorne palavra
fimfuncao
escreval ("Qual a Sua Graça ? ")
leia(ident)
escreva("Qual a Quantidade de Tempo Gasto na Digitação: ")
leia(mi)
mi <- digitar
escreval("A Média de Palvras Digitadas é de, ", mi, " Palavras. ")
escreval ("Parabéns.: ", ident ," VC é um Excelente Digitador... ou Não!!!! ")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/10/2008 3:33:47 PM
|
|
Andr[e Luiz Cavalli
|
algoritmo "ATIVIDADE 13"
// Função : ATIVIDADE 13
// Autor : ANDRÉ LUIZ CAVALLI RA: 940939-4
// Data : 10/6/2008
// Seção de Declarações
var
tempo, total: inteiro
inicio
// Seção de Comandos
funcao mdigitacao: inteiro
var media: inteiro
inicio
media <- tempo*30
retorne media
fimfuncao
Escreva("Quantos minutos você fica digitando no computador?")
Leia(tempo)
Total <- mdigitacao
EscrevaL("Você digitou",Total," palavras no período em que está no computador.")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/10/2008 4:11:29 PM
|
|
carlos
|
algoritmo "média de digitação"
// Função : calcular quantas palavras você digita em determinado tempo.
// Autor : Carlos Augusto RA 780023-1
// Data : 10/06/2008
// Seção de Declarações
var
nome:caractere
palavras,minutos:inteiro
inicio
// Seção de Comandos
funcao media:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
Escreva ("Qual o seu nome? ")
leia (nome)
Escreva ("Quanto tempo, em minutos, você usa fica no msn por dia? ")
leia (minutos)
palavras<-media
Escreval (nome,", você joga fora diariamente cerca de ",palavras," palavras.Toma vergonha!")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/10/2008 6:30:58 PM
|
|
Ericson Flavio Borges Monteiro
|
algoritmo "media de palavras"
// Função :
// Autor : Ericson Flavio B. Monteiro
// Data : 10/6/2008
// Seção de Declarações
var
tempo, total: inteiro
inicio
funcao calcula: inteiro
var media: inteiro
inicio
media < tempo*30
retorne media
fimfuncao
Escreva("Quantas palavras por minuto?")
Leia(tempo)
Total <- calcula
EscrevaL("Você digitou", no computador.")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/11/2008 10:04:51 AM
|
|
Priscila
|
algoritmo "atividade 13"
var
tempodig, resultado:inteiro
inicio
funcao calc: inteiro
var total:inteiro
inicio
total<-tempodig*30
retorne total
fimfuncao
escreva("digite em minutos quanto tempo você digitou: ")
leia(tempodig)
resultado<-calc
escreva("você digitou em média",resultado," palavras, em",tempodig," minutos")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/11/2008 9:57:33 PM
|
|
HELIO
|
Algoritmo "Palavras por minuto"
// Função :
// Autor : Helio
// Data : 11/06/2008
// Seção de Declarações
var
minutos:inteiro
med:inteiro
inicio
funcao media:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("quantos minutos você levou para digitar?")
leia(minutos)
minutos<-med
escreva("você digita em média ",minutos," palavras por minuto")
// Seção de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/11/2008 9:57:38 PM
|
|
HELIO
|
Algoritmo "Palavras por minuto"
// Função :
// Autor : Helio
// Data : 11/06/2008
// Seção de Declarações
var
minutos:inteiro
med:inteiro
inicio
funcao media:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("Quantos minutos você levou para digitar?")
leia(minutos)
minutos<-med
escreva("você digita em média ",minutos," palavras por minuto")
// Seção de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/11/2008 10:57:36 PM
|
|
Adriana Daher Montandon
|
algoritmo "Palavras digitadas em um determinado tempo"
// Função : Algoritmo - Atividade 13
// Autor : Adriana Daher Montandon - RA 728528-0
// Data : 11/06/2008
// Seção de Declarações
var
min:inteiro
inicio
funcao calcula:inteiro
var aux:inteiro
inicio
aux<-min*30
retorne aux
fimfuncao
escreval("Informe em quantos minutos você digitou: ")
leia(min)
min<-calcula
escreval("Você digitou",min," palavras durante esse período")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/11/2008 11:04:40 PM
|
|
Andre da Rocha Freitas
|
algoritmo "Atividade 13"
// Função :
// Autor : André da Rocha Freitas
// Data : 11/06/2008
// Seção de Declarações
var
minutos:inteiro
media:inteiro
inicio
funcao media:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("Quantos minutos você levou para digitar? ")
leia(minutos)
minutos<-media
escreva("Você digita em média ",minutos," palavras por minuto.")
// Seção de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 1:14:20 AM
|
|
Alba Tatiane
|
algoritmo "ATIVIDADE 13"
// Autor : ALBA TATIANE
// Data : 12/6/2008
// Seção de Declarações
var
tempo,total:inteiro
inicio
funcao calcula:inteiro
var:tempo,aux:inteiro
inicio
total<-tempo*30
retorme aux
fimfuncao
escreva("quanto tempo voce gasta para digitar 30 palavras: ")
leia (tempo)
tempo<-total
escreva("Você gasta em media",total, "para digitar")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 9:51:47 AM
|
|
Frederico Duarte
|
algoritmo "media"
// Função : Exercicio 13
// Autor :Frederico Duarte Guerra de Macedo
// Data : 12/6/2008
// Seção de Declarações
var
minutos:inteiro
inicio
funcao quantidade:inteiro
var aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("o tempo que vc digitou em minutos")
leia(minutos)
minutos<-quantidade
escreva("a quantidades de palavras em media digitada no periodo informado acima", minutos)
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 10:16:21 AM
|
|
Dangels Neiva Gonçalves
|
algoritmo "digitando"
// Função : Gerenciamento de redes
// Autor : D'Angels Neiva Gonçalves 817162-9
// Data : 12/6/2008
// Seção de Declarações
var
tempo:inteiro
inicio
// Seção de Comandos
funcao digitar:inteiro
var aux:inteiro
inicio
aux<-tempo*30
retorne aux
fimfuncao
escreva("digite por quantos minutos você digitou: ")
leia(tempo)
tempo<-digitar
escreva("A quantidade media de palavras que você digitou foi de,",tempo," palavras")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 10:21:36 AM
|
|
Anderson Santana Rosa
|
algoritmo "Média de palavras digitadas"
// Função :
// Autor : Anderson Santana Rosa
// Data : 12/6/2008
// Seção de Declarações
var
M,total:real
inicio
funcao multiplica:real
var
aux:real
inicio
aux<-M*30
retorne aux
fimfuncao
escreva(" Durante quantos minutos você digitou ")
leia(M)
total<-multiplica
escreva("foram digitadas",total," palavras ")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 10:42:57 AM
|
|
FRANCISCO JONILDO SILVA LIMA
|
algoritmo "PALAVRAS DIGITADOS POR MINUTO"
// Função :
// Autor : Francisco Jonildo
// Data : 9/6/2008
var
TEMPO:inteiro
MEDIA:real
NumerosPalavras:inteiro
inicio
funcao CALC:real
var aux:real
inicio
aux<-(60/TEMPO)*NumerosPalavras
retorne aux
fimfuncao
escreva("quantos palavras você digitou? ")
leia(NumerosPalavras)
escreva("quantos segundos você leva para digitar uma palavras? ")
leia(TEMPO)
MEDIA<-CALC
escreva("você digita em média ",MEDIA," palavras por minuto")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 10:44:28 AM
|
|
Diego Rodrigues da Silva
|
algoritmo "Média de palavras digitadas"
// Função : Calcular a media de palavras digitadas por um determinado tempo
// Autor : Diêgo Rodrigues da Silva
// Data : 12/6/2008
// Seção de Declarações
var
temp, total:inteiro
inicio
funcao result:inteiro
var per:inteiro
inicio
per<-temp*30
retorne per
fimfuncao
escreva(" Quantos minutos você passa digitando no computador? ")
leia (temp)
total<-result
Escreva(" Você digita em média ",total," palavras nesse período de tempo!")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 10:45:02 AM
|
|
FRANCISCO JONILDO SILVA LIMA
|
algoritmo "PALAVRAS DIGITADOS POR MINUTO"
// Função :
// Autor : Francisco Jonildo
// Data : 9/6/2008
var
TEMPO:inteiro
MEDIA:real
NumerosPalavras:inteiro
inicio
funcao CALC:real
var aux:real
inicio
aux<-(60/TEMPO)*NumerosPalavras
retorne aux
fimfuncao
escreva("quantos palavras você digitou? ")
leia(NumerosPalavras)
escreva("quantos segundos você leva para digitar uma palavras? ")
leia(TEMPO)
MEDIA<-CALC
escreva("você digita em média ",MEDIA," palavras por minuto")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 11:47:24 AM
|
|
Maurício Alves
|
algoritmo "Média palavras digitadas"
// Função : Calcula a média de palavras que um usuário normal digita (30)
// por minuto, o usuário infoma o período.
// Autor : Maurício Alves Filho - GR1P30
// Data : 12/06/2008
// Seção de Declarações
var
tempo: inteiro
media:inteiro
inicio
funcao media: inteiro
var aux: inteiro
inicio
aux<- tempo*30
retorne aux
fimfuncao
escreval("Informe quanto tempo você levou pra digitar: ")
leia(tempo)
tempo<-media
escreval("Você consegue digitar em media " ,tempo," palavras por minuto.")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 12:13:57 PM
|
|
Glauco Souza
|
algoritmo "MÉDIA DE PALAVRAS POR MIN"
// Função :CALCULA O TEMPO DE DIGITACAO
// Autor :GLAUCO FERREIRA SOUZA
// Data : 12/6/2008
// Seção de Declarações
var
MIN:REAL
PALAVRA: REAL
TEMPOTOTAL:REAL
NOME:CARACTER
inicio
// Seção de Comandos
FUNCAO TDIGT:REAL
VAR AUX: REAL
INICIO
AUX <- PALAVRA/MIN
RETORNE AUX
FIMFUNCAO
ESCREVA("DIGITE O TEMPO GASTO EM MINUTOS PARA DIGITAR:")
LEIA (MIN)
ESCREVA ("DIGITE A QUANTIDADE DE PALAVRAS DIGITADAS NESTE TEMPO:")
LEIA (PALAVRA)
TEMPOTOTAL <- TDIGT
ESCREVA ("A MÉDIA DE TEMPO DE SUA DIGITACÃO É DE:",TEMPOTOTAL)
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 1:10:43 PM
|
|
Paulo Henrique Barros de Almeida
|
algoritmo "ATIVIDADE FÓRUM - 13"
// Função : FUNÇÃO
// Autor : PAULO HENRIQUE BARROS DE ALMEIDA - R.A. 8378045
// Data : 12/06/2008
// Seção de Declarações
var
palavras,tempo,total:real
nome:literal
inicio
funcao media:real
var div: real
inicio
div<-palavras/tempo
retorne div
fimfuncao
escreval ("Nome: ")
leia(nome)
escreval("Quantas palavras consegue digitar em um determinado tempo? ")
leia(palavras)
escreval("Quanto tempo em minutos? ")
leia(tempo)
total<-media
escreval ("Sua média é de ", total, " palavras p/m,")
se total>=30 entao
escreval (" Você está dentro da média!")
fimse
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 2:08:58 PM
|
|
Rogério de Souza
|
algoritmo "atividade 13"
// Função : cálculo de média
// Autor : rogério de souza
// Data : 12/6/2008
// Seção de Declarações
var
tempo: inteiro
inicio
funcao multiplica: inteiro
var aux:inteiro
inicio
palavra: tempo*30
retorne palavra
fimfuncao
escreva("informe durante quanto tempo vc digitou")
leia:(tempo)
tempo<- digitar
escreva("durante tempo vc digitou, em media",tempo,"palavras")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 3:37:15 PM
|
|
Karla Raquel Dias
|
Algoritmo media palavras por minuto
Var:
Minutos:Inteiro
Inicio
Função Quantidade:Inteiro
Var aux: Inteiro
Inicio
Aux<-minutos*30
retorne Aux
fimdafunção
Escreva(''Digite o tempo que levou para digirtar'')
Leia(minutos)
minutos<-Quantidade
Escreva (''Aquantidade media de palavras digitada no periodo anterior'', minutos)
fimalgoritmo.
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 3:38:12 PM
|
|
Murilo Bertolo
|
algoritmo "Calculo de media de palavras"
// Função :
// Autor : MURILO BERTOLO - RA:863022-4
// Data : 12/6/2008
// Seção de Declarações
var
periodo:inteiro
inicio
funcao calc:inteiro
var x:inteiro
inicio
x<-periodo*30
retorne x
fimfuncao
escreva ("Digite o tempo de digitação em minutos ===> ")
leia (periodo)
periodo<-calc
escreva("A media de palavras digitadas é :",periodo)
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 3:51:12 PM
|
|
RICARDO
|
algoritmo "CalculoMedioDigitacao"
// Função : Atividade 13
// Autor : 884509-3 Ricardo Santos Gomes
// Data : 12/06/2008
var
minutosTrabalhados:inteiro
funcao mediaDigitacao(aMinutos:inteiro):inteiro
inicio
retorne aMinutos * 30
fimfuncao
inicio
escreval("Informe a quantidade de minutos de trabalho")
leia(minutosTrabalhados)
escreval("Você deve ter digitado em média ", mediaDigitacao(minutosTrabalhados)," caracteres")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 3:51:22 PM
|
|
Thallyson
|
algoritmo "Média de palavras digitadas"
// Função :
// Autor :Thallyson Pereira Torres
// Data : 12/6/2008
// Seção de Declarações
var
m,total:real
inicio
funcao media:real
var aux:real
inicio
aux<-m*30
retorne aux
fimfuncao
escreval("Digite o Tempo gasto para digitar em minuitos")
leia(m)
m<-media
escreval("Você digitou nesse tempo cerca de ", m, "
Palavras")
// Seção de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 6:05:00 PM
|
|
José Augusto Barbosa de Pinho
|
algoritmo "tempo de digitação"
// Autor : José Augusto
var
horas: inteiro
inicio
funcao dig: inteiro
var pal: inteiro
inicio
pal<-horas*30
retorne pal
fimfuncao
escreval("Quantos minutos você digitou: ")
leia(horas)
horas<-dig
escreval("O período informado foram digitados, em média, ", horas, " palavras")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 6:13:06 PM
|
|
ALESSANDRO SANTOS MACEDO
|
algoritmo "digitacao"
//funcao:
//autor?
//data
//secao de declaracoes
var media,tempo:inteiro
inicio
escreva("tempo: ")
leia(tempo)
funcao digita:inteiro
vas calcula:inteiro
inicio
calcula<-tempo*30
retorne calcula
fimfuncao
media<-digita
escreva("tempo dado: ",tempo,"media de digitacao: ",media)
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 6:42:55 PM
|
|
ulysses moura brandao junior
|
algoritmo "Palavras por minuto"
// Aluno: Ulysses Moura Brandao Junior
// RA: 930172-0
// Data : 12/06/2008
var
minutos,media:inteiro
inicio
funcao media:inteiro
var
aux:inteiro
inicio
aux<-minutos*30
retorne aux
fimfuncao
escreva("Quanto minutos vc leva em media para escrever um texto de 30 linhas? ")
leia(minutos)
minutos<-media
escreval("Vc digita em media" , minutos, " palavras por minuto.")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/12/2008 8:47:10 PM
|
|
Fábio Soares Rocha
|
algoritomo-> media em minutos
var
media,min:inteiro
inicio
funcao digitar:inteiro
var aux:inteiro
aux<-min*media
retorne aux
fimfuncao
escreva("quantas palavras vc consegue digitar")
leia( media)
escreva("quantos minutos vc levar para digitar")
leia (min)
min<-digitar
escreva("vc escreve",media,"em tantos",min)
fimalgoritimo
|
|
|
|
|
Respostas
|
Data Resposta: 6/13/2008 12:02:00 AM
|
|
Daniela Cabral Monteiro
|
algoritmo "MediaDigitacao"
// Função : algoritmo que calcula uma média de quantas palavras você
// digita no computador em um período que o usuário irá informar.
// A média é que um usuário normal digita 30 palavras por minuto.
// Autor : Daniela Cabral Monteiro
// Data : 12/06/2008
// Seção de Declarações
var
tempo, media : real
inicio
// Seção de Comandos
funcao digi: real
var aux : real
inicio
aux <-tempo*30
retorne aux
fimfuncao
escreva ("Digite a quantidade de minutos gastos com digitação ")
leia (tempo)
media <-digi
escreva ("A quantidade de média de palavras neste tempo é de ",media)
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/13/2008 1:01:35 AM
|
|
Leandro Martins
|
algoritmo "Palavras por minuto"
// Autor: Leandro Martins
// RA: 920414-8
// Data : 12/06/2008 00:58
var
min,media:inteiro
inicio
funcao media:inteiro
var
aux : inteiro
inicio
aux <- min*30
retorne aux
fimfuncao
escreva("Qual tempo, em minutos, para digita 30 linhas? ")
leia(min)
minutos<-media
escreval("Resultado: " , min, " palavras por minuto.")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/16/2008 1:37:14 PM
|
|
Rebeca Dayane
|
algoritmo "atividade 13"
// Fun?o :
// Autor : Rebeca Daiane
// Data : 16/6/2008
// Se?o de Declara?es
var media :inteiro
inicio
funcao digitar:inteiro
var palavra:inteiro
inicio
palavra<-media*30
retorne palavra
fimfuncao
escreva("Informe o tempo gasto para digitar em minutos")
leia (media)
media<-digitar
escreval ("Foram digitados",media,"palavras")
// Se?o de Comandos
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/18/2008 2:15:07 AM
|
|
LAURO LUIZ DA CONCEIÇÃO
|
algoritmo "Função de Digitação"
// Função : "Nenhuma"
// Autor : Lauro Luiz da Conceição
// Data : 12/6/2008
// Seção de Declarações
var
res,m,n,multi,pr1,Batt:inteiro
inicio
batt<-1
funcao tempo:inteiro
var calc:inteiro
inicio
calc<-batt*30
retorne calc
fimfuncao
procedimento multi (x,y: inteiro; var res:inteiro )
inicio
res<- x*y
fimprocedimento
escreval (" --------------------------------------------------------------" )
escreval (" Informe abaixo o Tempo(em minuto) que vc passa no Computador : ")
escreval ("")
escreval ("")
escreva (" (Utilizando Função)-> ")
leia (batt)
escreval ("")
escreva (" (Utilizando Procedimento) -> ")
leia (m)
n<-30
multi(m,n,res)
limpatela
para pr1 de 1 ate tempo faca
limpatela
escreval ("------------------------------------------------------------------------------------")
escreval (" No tempo de",batt," Minutos Vc Dgita",pr1," palavras (Função).")
escreval ("------------------------------------------------------------------------------------")
fimpara
escreval ("---------------------------------------------------------------------------------------")
escreval (" No tempo de",m," Minutos Vc Dgita",res," palavras (Procedimento).")
escreval ("---------------------------------------------------------------------------------------")
escreval("")
escreval("")
escreval("")
escreval ("Lauro Luiz - RA 955698-2 REDES")
escreval ("")
fimalgoritmo
|
|
|
|
|
Respostas
|
Data Resposta: 6/23/2008 10:47:12 AM
|
|
Gerhard Maurer
|
algoritmo "semnome"
// Função :
// Autor :
// Data : 23/6/2008
// Seção de Declarações
var
minutos:inteiro
inicio
funçao multiplica:inteiro
var aux:inteiro
inicio
aux<- minutos * 30
retorne aux
fim funçao
escreva ("quanto minutos voçe digitou")
leia minutos
minutos<-multiplicaçao
escreva ("total de palavras "minutos)
// Seção de Comandos
fimalgoritmo
|
|
|
|