exercicos em visualg

Fiz no Portugol Studio, sou iniciante na programação, não é a solução mais elegante mais vai te ajudar, eu n conseguir fazer de primeira, pesquisei na internet e vi que ninguém te conseguido fazer ainda, motivou a tentar resolver.

Variáveis

inteiro opcao

cadeia nome

real valor, masculino, feminino

escreva("\n Informe o seu nome:\n")

leia(nome)

escreva("\n Informe o valor da compra:\n")

leia(nome)

masculino = (valor*5)/100

feminino = (valor*13)/100

escreva("\n Selecione o valor que corresponde o seu sexo:\n")

escreva ("1) Masculino\n")

escreva("2) Feminino\n")

escreva("Escolha uma opção")

leia(opcao)

limpa()

escolha (opcao)

caso1:

escreva("\n O valor da sua compra é ",masculino," reais\n")

caso 2:

escreva("\nO valor da sua compra é ", feminino," reais")

Como não há nem uma resposta em visualg aqui vai a solução do colega adaptada:

obs: so funciona com escolha caso, com Se eu ainda não encontrei, caso eu encontre volto aqui para divulgar

Var

  Nome: caractere

  desc, valor : Real

  sexo: inteiro

Inicio

   Escreva ("Qual o nome do usuario? ")

   Leia (Nome)

   Escreva ("Qual o valor da compra? ")

   Leia (Valor)

   Escreval ("Qual o genero do cliente? ")

   Escreval ( "[1] para feminino")

   Escreval ("[2] para masculino")

   Leia (sexo)

   Escolha sexo

     Caso 1

        desc <- valor -((valor *15)/100)

        Escreval ("O seu desconto e de ", desc)

     Caso 2

        desc <- valor - ((valor * 5)/100)

        Escreval ("O seu desconto e de ", desc)

   FimEscolha

Fimalgoritmo

using System;

public class exercicio72

{

  public static void Main()

  {

    string[] nome = new string[7];

    for (int i = 0; i < 7; i++)

    {

      Console.WriteLine("Escreva um nome: ");

      nome[i] = Console.ReadLine();

    }

  }

}