Pular para o conteúdo principal

Inteiro para caractere

as variaveis são iniciadas no início do programa:
VAR
conta:integer; //variavel numérica
t_conta:string; //variavel de texto


str(conta,t_conta);{converte o valor que tem na variavel conta em texto e salva na variavel t_conta}

Postagens mais visitadas deste blog

3 notas com media ponderada

Program Pzim ; {4- Escreva um programa que leia o código de um aluno e suas três notas. Calcule a média ponderada do aluno, considerando que o peso para a maior nota seja 4 e para as duas restantes, 3. Mostre o código do aluno, suas três notas, a média calculada e uma mensagem "APROVADO" se a média for maior ou igual a 5 e "REPROVADO" se a média for menor que 5. } var cod:integer; n1, n2, n3, nm1, nm2, nm3, media:real; Begin media:=0; writeln('Digite o código do aluno : '); read(cod); write('digite a 1o. nota : '); read(n1); write('digite a 2o. nota : '); read(n2); write('digite a 3o. nota : '); read(n3); {aproveitando a mesma estrutura para ordenar a maior nota, as outras duas não tem importançia na ordem, pois tem o mesmo peso} if ((n1 > n2) and (n1 > n3)) then begin nm1:=n1; nm2:=n2; nm3:=n3; end else if ((n2 > n1) and (n2 > n3)) then begin nm1:=n2; nm2:=n1; nm3:=n3; end else if ((n3 ...
Leia mais

SIMULADOR DE LOTERIA

{Escrever um programa que simule um jogo da loto. O computador deve gerar 5 números aleatórios entre 50 possíveis (0 a 49), armazenando-os em um vetor (dez_sort) de 5 posições. Em seguida, o usuário deverá ler um vetor (aposta)com 10 posições (que representa uma aposta). O programa deve, então, verificar e imprimir uma mensagem mostrando quantos números o usuário acertou. De acordo com o exemplo abaixo o usuário acertou 4 dezenas. } Program Exer_99 ; var dez_sort :array[1..5]of integer;    //vetor para receber as dezenas geradas aleatoriamente aposta :array[1..10]of integer; //vetor para receber as dezenas apostadas a, acerto,posi,i,j:integer; Begin acerto:=0; for j:= 1 to 5 do      // for para gerar as cinco dezenas aleatórias begin a:=(random(50))-1;     //o -1 é para gera de 0 a 49 dez_sort[j]:=a;        //o vetor recebe na posição j de 1 ate 5, as 5 dezenas geradas writeln(dez_sort[j]);  // m...
Leia mais

Soma da sequencia (n * n) + 1

Program Pzim ; Var x,num,soma,soma2:integer; Begin     Writeln('Digite um numero maior que ZERO :');              //solicita que seja digitado um numero     Read(Num); // lê o número     If num<=0 then //se o número for invalido recusa     Write ('Número digitado invalido, digite um mumero maior que zero') // exibe a mensagem     else                                    For x:=1 to num do                         //faz de 1 até o numero         Begin            ...
Leia mais