Jump to content

Search the Community

Showing results for tags 'pascal'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Web Development
    • HTML e CSS
    • Javascript
    • PHP
    • Ruby
    • Python
    • Java
    • .NET
    • Docker, Kubernets and other environments
    • WordPress
    • Mobile
    • Agile
    • Desenvolvimento de Games
    • Banco de Dados
    • Design and UX
    • Algoritmos & Outras Tecnologias
  • Entretenimento e uso pessoal
    • Segurança & Malwares
    • Geral
    • iMasters's pub

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 16 results

  1. FILIPEINFORMATICA10

    Como passar esse código do pascal para o PHP

    uses Crt; var X, Y : Integer; begin Writeln ('Entre com dois Números:'); { Mostra na tela a mensagem} Readln (X, Y); { Lê os dois números } If (X = Y) Then {Condição - SE X for igual a Y} Begin {INICIO - Repare abaixo que existe duas instruções, dois comandos Writeln, por isso estão entre BEGIN e END} Writeln ('X é igual que Y'); Writeln ('O Valor de X é =', X); End; {FIM} end.
  2. flavionorvel

    Converter linguagem C para visualg

    #include <stdio.h> #include <stdlib.h> // Limites de tamanhos #define MINIMO 2 #define MAXIMO 50 // Variáveis globais int opcao = 0; int linhas = MAXIMO; int colunas = MAXIMO; int matrizA[MAXIMO][MAXIMO]; int matrizB[MAXIMO][MAXIMO]; void limpar_tela(); // Retorna resposta do usuario se quer rodar novamente int rodar_novamente() { int opcao = 0; printf("\n\nDeseja rodar novamente? Digite 1 para SIM e 0 para Não: "); scanf("%d",&opcao); if (opcao == 1 || opcao == 0) { return opcao; } printf("\nOpcao invalida. Escolha novamente."); return rodar_novamente(); } // Recebe valor inteiro do usuario int receber_numero() { int numero = 0; scanf("%d",&numero); if (numero >0) { return numero; } printf("\nNúmero inválido. digite um número positivo.: "); return receber_numero(); } // Valida tamanhos de linhas e colunas int validar_tamanhos(int linhas, int colunas) { if ((linhas >= MINIMO && linhas <= MAXIMO) && (colunas >= MINIMO && colunas <= MAXIMO) && (linhas ! = colunas)) { return 1; } printf("\nLinhas e Colunas devem ser diferentes e ter valores entre %d e %d. Tente novamente.",MINIMO,MAXIMO); return 0; } // Preencher matriz void preencher_matriz(int matriz[MAXIMO][MAXIMO], int linhas, int colunas) { int i,j; for (i = 0 ; i < linhas ; i ++) { for (j = 0 ; j < colunas ; j ++) { printf("\nDigite um valor inteiro para a posicao %d-%d da matriz A: ",i,j); matriz[j] = receber_numero(); } } } // Imprimir matrizes void imprimir_matrizes(int matrizA[MAXIMO][MAXIMO], int matrizB[MAXIMO][MAXIMO], int linhas, int colunas) { int i,j; limpar_tela(); printf("\n\nMATRIZ A\n"); for (i = 0 ; i < linhas ; i++) { for (j = 0 ; j < colunas ; j ++) { printf("\nMATRIZ A POSICAO %d-%d: %d",i,j,matrizA[j]); } } printf("\n\nMATRIZ B (TRANSPOSTA DE A)\n"); for (i = 0 ; i < colunas ; i++) { for (j = 0 ; j < linhas ; j ++) { printf("\nMATRIZ B POSICAO %d-%d: %d",i,j,matrizB[j]); } } } void limpar_tela() { system("@cls||clear"); } // Laço principal int main() { int i,j; do { //Inicializar variáveis opcao = 0; linhas = 0; colunas = 0; i = 0; j = 0; do { printf("\nEntre com o tamanho para linhas: "); linhas = receber_numero(); printf("\nEntre com o tamanho para colunas: "); colunas = receber_numero(); } while (!validar_tamanhos(linhas,colunas)); // entrar com valores para a matriz A preencher_matriz(matrizA, linhas, colunas); // criar matriz transposta de A for(i = 0 ; i < linhas ; i ++) { for(j = 0 ; j < colunas ;j ++) { matrizB[j] = matrizA[j]; } } // Imprimir matrizes imprimir_matrizes(matrizA,matrizB,linhas, colunas); // Pergunta ao usuário se quer continuar opcao = rodar_novamente(); } while (opcao == 1); }me
  3. Boa noite/dia gente. Preciso de ajuda aqui. Tenho um exercício no qual tenho de fazer um programa em pascal com o seguinte enunciado: Considere a soma S dos termo da série infinita apresentada abaixo: Fazer um programa em Free Pascal que calcule o valor aproximado da soma S dos termos da série até o momento em que a diferença das normas (módulo) de 2 termos consecutivos for menor que 0,000001 ({i.e.}, norma da diferença das normas de dois termos consecutivos). Segue meu algoritmos/programa: program calcserie; var soma, a1, a2, an : real; sinal : longint; cont, n, fat : integer; begin n := 0; a1 := 1; a2 := 0; soma := 0; cont := 1; fat := 1; an := 1; sinal := 1; while (an) > 0.000001 do begin n := n + 2; while cont <= n do begin fat := fat * cont; cont := cont + 1; end; soma := (soma + (a1 * sinal)); sinal := sinal * -1; a2 := a1; a1 := ((1/fat)); if (a2 < 0) then an := (a2 * -1) - a1 else if (a1 < 0) then an := (a2) - (a1 * -1); end; write (soma:0:15); end. Meu erro está sendo a partir da 3 casa decimal
  4. Boa noite meu problema é '$' que sempre da na ultima linha esta ai o codigo Program Pzim ; var nome:string; sangue:string; idade:integer; Begin writeln('Escreva seu nome aqui '); read(nome); writeln('Digite sua idade '); read(idade); writeln('Digite seu tipo sanguineo '); read(sangue); if sangue=Apositivo then write('Você ',nome,'tem); End.
  5. Hatepascal

    PascalAlgotitmo

    program divisao; /*ME AJUDEM POR FAVOR, ESTOU FICANDO LOUCO! Questão: faça uma calculadora onde o usuario entre com 2 numeros e secolha a operacao desejada, multiplicao ou divisao. voce devera mostrar o resultado e depois perguntar se ele deseja realizar a operacao novamente. sei que isso usa o comando while,porem nao estou conseguindo entender a logica,pelo que parece algem resolve para mim? grato. */ var m,d, n1, n2: real; continuar :string; escolha:char; begin d := 0; m :=0; continuar := 'sim' ; while continuar = 'sim' do Begin writeln('digite o primeiro numero: '); readln(n1); writeln('digite o segundo numero'); readln(n2); WriteLn('escreva d para divisao ou m para multiplicacao'); readln(escolha); if escolha = 'm' then begin m := n1 * n2; end; if escolha = 'd' then begin d := n1 / n2; end; write('resultado multiplicação : '); writeln(m); write('resultado divisão : '); writeln(d); writeln('deseja continuar , sim? '); readln; end; end.
  6. Temóteo Francisco

    Algoritmo_pascal

    Alguém resolve aí pra mim pq eu fiz exatamente o que tava no livro e mesmo assim o código não segue;ele para quando termino de enviar os dados pra recebimento,por favor me ajudem ! program patrao; var Aumento,sal,SN:real; No:string ; Idade,AT,P:Integer ; begin WriteLn('Digite sua idade'); readln(Idade); WriteLn('quantos anos trabalhados? '); ReadLn(AT); WriteLn('Qual o valor do seu salário? '); ReadLn(sal); case Idade of 0..25: begin case AT of 0..3: P:= 5; 4..6: P:= 10; else P:= 15; end; end; 26..35: begin case AT of 0..9: P:= 20; 10..15: P:= 25; else P:= 30; End; end; else begin case AT of 0..10: P:= 30; 11..20: P:= 40; 21..30: P:= 50; 31..40: P:= 60; else begin P:= 70; end; end; end; Aumento:= (P/100)*sal; SN:=sal + Aumento; WriteLn('seu antigo salario era de R$:',sal); Writeln('a porcentagem de aumento recebida foi de: ',Aumento:1:1,'%'); writeln('seu novo salario e de R$:',SN); readln; end; end.
  7. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  8. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  9. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  10. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  11. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  12. Estou cursando ciências da computação,1 período a matéria mais pesada pra mim esta sendo Programação.. enfim o Professor lançou um desafio gostaria de pedir ajuda alguém que tenha mais experiencia:seguinte desafio> Faça um programa na linguagem pascal que leia informações de 50 pessoas,cada uma delas,altura e o sexo da pessoa para(masculino 1,feminino 2)calcule e mostre o seguinte: A maior e a menor altura media das mulheres maior e menor altura dos homens Media do conjunto de 50 e fim...
  13. 1) Sabe-se que o quilowatt de energia custa 0,05% do valor do salário mínimo (R$ 1000) e o consumo (kW) dessa residência ao longo do ano foi: Janeiro 150 Fevereiro 52 Março 45 Abril 28 Maio 65 Junho 87 Julho 12 Agosto 100 Setembro 120 Outubro 45 Novembro 67 Dezembro 230 Sabe-se, que se o valor consumido for maior que 60 kW, deve ser aplicada uma taxa extra (bandeira amarela) igual a 2% do valor da conta, e se for maior que 100 kW, deve ser aplicada mais uma taxa (bandeira vermelha) igual a 5% do valor da conta (antes da bandeira amarela). Essas taxas devem ser somadas ao valor total da conta. Faça um programa que calcule e mostre a. o valor a ser pago por essa residência a cada mês; b. Se no mês de dezembro o consumo médio foi menor que 85 quilowatts, então deve ser dado um desconto de natal de 50% nesse mês;
  14. 1. Uma sorveteria vende 5 produtos diferentes, cada um com um preço, de acordo com a tabela abaixo: Código Produto Preço (R$) A refrigerante 0,60 B casquinha simples 1,00 C casquinha dupla 1,20 D sundae 1,50 E banana split 2,00 Faça um programa que processe diversas vendas. O programa deverá apresentar um menu indicando os preços dos produtos. Cada venda efetuada pode ser composta por diversas unidades de diversos produtos. Os produtos são identificados através de seus códigos. A cada venda efetuada informar o preço a pagar. No final do dia o programa deverá emitir um relatório com as seguintes informações: a) número total de itens vendidos em cada produto; b) total pago para cada produto; c) total arrecadado (somando todos os produtos); e d) média de valor pago por pedido. O que eu consegui fazer foi: Program sorveteria; var cod,resp:string; vendas,total_itens,total_vendido,total_pago,arrecadado,media,quanta,quantb,quantc,quantd,quante,ta,tb,tc,td,te:real; Begin while resp='s' do vendas:=vendas+1; writeln('A-refrigerante------0,60'); writeln('B-casquinhasimples--1,00'); writeln('C-casquinha dupla---1,20'); writeln('D-sundae------------1,50'); writeln('E-banana split------2,00'); writeln('Informe a quantidade de produtos A comprados:'); readln(quanta); ta:=quanta*0.60; writeln('Informe a quantidade de produtos B comprados:'); readln(quantb); tb:=quantb*1; writeln('Informe a quantidade de produtos C comprados:'); readln(quantc); tc:=quantc*1.20; writeln('Informe a quantidade de produtos D comprados:'); readln(quantd); td:=quantd*2; writeln('Informe a quantidade de produtos E comprados:'); readln(quante); tb:=quante*1; writeln('Valor pago por produto:','A', ta:2:2); writeln('Valor pago por produto:','B', tb:2:2); writeln('Valor pago por produto:','C', tc:2:2); writeln('Valor pago por produto:','D', td:2:2); writeln('Valor pago por produto:','E', te:2:2); writeln('Total vendido de cada item:','A:',quanta:0:0); writeln('Total vendido de cada item:','B:',quantb:0:0); writeln('Total vendido de cada item:','C:',quantc:0:0); writeln('Total vendido de cada item:','D:',quantd:0:0); writeln('Total vendido de cada item:','E:',quante:0:0); arrecadado:=(ta+tb+tc+td+te); writeln('O total arrecadado é:',arrecadado:2:2); writeln('Vendas:',vendas); writeln('Mais uma venda?'); readln(resp); readkey; End.
  15. program Impar; var Soma, Cont: Integer; begin Soma := 0; for Cont := 1 to 100 do begin if Cont mod 2 <> 0 then begin Soma := Soma + Cont; end ; end; Writeln('A soma dos numeros impares de 1 a 100 e:',Soma); readln; end. opa galera queria saber se esse meu algoritmo para saber a somatório de números ímpares entre 1 até 100 está certo muito obrigado (a) pela atenção
  16. Boa noite! Esse é meu primeiro post então me desculpem se postei no lugar errado. Estou com um pequeno problema para resolver um problema de programação pascal envolvendo matrizes e vetores. O problema é o seguinte: 1. Desenvolver um procedimento que escreva uma matriz 3x3. 2. Utilizando a solução do exercício 1, armazene a diagonal principal da matriz em um vetor e depois escreva os valores armazenados nesse vetor. Esses foi o mais próximo que consegui chegar, o problema 1 eu fiz mais o 2 to empacado. procedure Trabalho01 (); Var Mat : array [1..3] of array [1..3] of integer; Vet : array [1..3] of integer; Linha, Coluna, Valor : Integer; Begin Valor := 0; For Linha := 1 to 3 do Begin For Coluna :=1 to 3 do Begin Valor := Valor + 2; Mat[Linha][Coluna] := Valor; End; End; If Linha = Coluna then Begin Vet[1] := Mat Vet[2] := Mat Vet[3] := Mat escr(IntToStr(Vet[Mat]); End; End; Minha duvida é a seguinte. Eu preciso usar If ? Da maneira que estou usando ele dará todos os valores no qual linha = coluna, isso me daria mais dados do que preciso. Como eu posso filtrar para que me dê as posições [1,1] [2,2][3,3] ?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.