• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Pagota

Boas :) Ajuda com CODIGO PASCAL [compilador- PZIM]

1 mensagem neste tópico

Aqui vai:

PROGRAM lista_telefone;
var user:record
      nome:Array[1..5] of string;
      idade:Array[1..5] of integer;
      sexo:Array[1..5] of string;
     end;
     morada:record
      porta:Array[1..5] of integer;
 andar:Array[1..5] of integer;
      rua:Array [1..5] of string;
     end;
     r3:char;
  

PROCEDURE inicio;
var r:char;
Begin
  writeln ('Bem vindos á lista telefonica!');
  writeln ('Para começar, diga-me deseja visualizar apenas, ou modificar?');
  writeln ('Para modificar prima M, para ver prima V');
   read (r);
    case r of
     'm','M':
 Begin 
  writeln ('Vai adicionar uma entrada no registo 2!');
  writeln ('Por favor indique os dados de forma correcta para evitar erros!');
  writeln ('Digite por esta ordem! NOME IDADE SEXO');
  readln (user.nome[2],user.idade[2],user.sexo[2]); :!:
      End; 
'v','V':
 Begin
  writeln ('Os dados existentes são:');
       writeln ('Nome: ',user.nome[1]);
       writeln ('Idade: ',user.idade[1]);
       writeln ('Sexo: ',user.sexo[1]);
       writeln ('Reside em:');
       writeln ('Porta: ',morada.porta[1]);
       writeln ('Andar: ',morada.andar[1]);
       writeln ('Nome da rua e codigo postal: ',morada.rua[1]);
 End
  ELSE
   writeln ('O programa vai terminar devido a um erro');
   End;  
End;
    
BEGIN
  user.nome[1]:='TESTE';
  user.idade[1]:=25;
  user.sexo[1]:='MASC';
  morada.porta[1]:=2;
  morada.andar[1]:=3;
  morada.rua[1]:='Rua santo antonio, 2855-310 SEIXAL';
   inicio;
    writeln ('Deseja correr de novo o programa? S/N'); :?:
    read (r3);
     if r3='S' then
     inicio
      else
       writeln ('Fim do programa! Adeus =)');
   writeln (' ');    
END.

Onde eu coloquei um ponto de esclamação:

o programa quando acabo de inserir isso, não faz a instrução onde se encontra o ponto de interrogação.

Alguem me sabe dizer porque???

Obrigado =)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora