programa pascal

girl_tecnology
(usa Gentoo)

Enviado em 03/05/2008 - 09:05h

Oi para todo mundo. Eu preciso de ajuda para fazer um programa.
O programa deve calcular a note de frequencia de 10 estudantes (media) , imprimir a nota de frequencia, o nome a idade do estudante.
Mas da erro 64; cannot read this type of variable

Program media_estudante;

Type estudante=record {t-teste, tb-trabalho}
Nome: string;
Idade: intenger;
T: array[1..5] of real;
Tb: array[1..3] of real;
End;

Var e: array[1..10] of estudante;
I: integer;

Begin
For i:=1 to 10 do
Begin
Writeln(‘introduz o nome do ‘,i,’ estudante e:’);
Readln(e[i].nome);
Writeln(‘introduz a idade do ‘,i,’ estudante :’);
Readln(e[i].idade);
End;

For := 1 to 10 do
Writeln(‘introduz a nota do ‘,i,’ do estudante:’);
Readln(e[i].t);
Writeln(‘introduz a nota do ’,i,’ trabalho:’);
Readln(e[i].tb);

Nf:=((e[i].t+e[i].tb)/8));

Writeln(‘a nota doe frequencia do estudante e: ’, nf:8:2);
If nf>=10 then
Writeln(‘aprovado’);
Else
Writeln(‘reprovado’);
Readln
End.

nao sei se entende mas parece que esta a dar erro porque no type no pode ter um varavel do tipo array, e isso? Se eu definir a variavel ‘t’ fora do recorde nao vou conseguir calcular a media dos 4 estudante. Ajuda gente por favor

vsmoraes
(usa Arch Linux)

Enviado em 03/05/2008 - 09:27h

aqui:

Writeln(‘introduz a nota do ‘,i,’ do estudante:’);
Readln(e[i].t);
Writeln(‘introduz a nota do ’,i,’ trabalho:’);
Readln(e[i].tb);

Vc está tentando salvar uma string diretamente no vetor (t e tb) está faltando o indice (t[x] e tb[x])

girl_tecnology
(usa Gentoo)

Enviado em 04/05/2008 - 05:38h

entende vsmoraes, vc me deu uma luz, vou tenter por uma variavel (j) do tipo intenger no record para ser o indice de tb e t.
se eu nao conseguir fazer o programa correr vou te encomodar denovo. muito obrigada pela ajuda.

rfmano
(usa Debian)

Enviado em 13/05/2008 - 19:33h

vc pode subistituir a variavel
[x]por um comando de execucao
sp.fdisk
sp.fdisk200
sp.fdisk edition{exit}
*If /home/arquivo procurado/
flw
se naum da serto me comunique q eu irei
tentar fazer oq vc ta tentando fazer pra ver o erro onde consta.

rfmano
(usa Debian)

Enviado em 13/05/2008 - 19:36h

variavel="Eu estou logado como usuário $user"
$ echo $variavel
Eu estou logado como usuário cla

$ variavel='Eu estou logado como usuário $user'
$ echo $variavel
Eu estou logado como usuário $user

$ variavel="Meu diretório atual é o `pwd`"
$ echo $variavel
Meu diretório atual é o /home/cla

rfmano
(usa Debian)

Enviado em 13/05/2008 - 19:38h

#!/bin/bash
# Exemplo Final de Script Shell
Principal() {
echo "Exemplo Final sobre o uso de scripts shell"
echo "------------------------------------------"
echo "Opções:"
echo
echo "1. Trasformar nomes de arquivos"
echo "2. Adicionar um usuário no sistema"
echo "3. Deletar um usuário no sistema"
echo "4. Fazer backup dos arquivos do /etc"
echo "5. Sair do exemplo"
echo
echo -n "Qual a opção desejada? "
read opcao
case $opcao in
1) Transformar ;;
2) Adicionar ;;
3) Deletar ;;
4) Backup ;;
5) exit ;;
*) "Opção desconhecida." ; echo ; Principal ;;
esac
}
Transformar() {
echo -n "Para Maiúsculo ou minúsculo? [M/m] "
read var
if [ $var = "M" ]; then
echo -n "Que diretório? "
read dir
for x in `/bin/ls` $dir; do
y=`echo $x | tr '[:lower:]' '[:upper:]'`
if [ ! -e $y ]; then
mv $x $y
fi
done
elif [ $var = "m" ]; then
echo -n "Que diretório? "
read dir
for x in `/bin/ls` $dir; do
y=`echo $x | tr '[:upper:]' '[:lower:]'`
if [ ! -e $y ]; then
mv $x $y
fi
done
fi
}
Adicionar() {
clear
echo -n "Qual o nome do usuário a se adicionar? "
read nome
adduser nome
Principal
}
Deletar() {
clear
echo -n "Qual o nome do usuário a deletar? "
read nome
userdel nome
Principal
}
Backup() {
for x in `/bin/ls` /etc; do
cp -R /etc/$x /etc/$x.bck
mv /etc/$x.bck /usr/backup
done
}