URI (BEECROWD) - 1010 - Simple Calculate (Cálculo Simples) - Iniciante - Haskell

Olá!

Hoje vamos voltar a resolver um probleminha em Haskell (Simple Calculate / Cálculo Simples).

Esse exercício é bem fácil e pode ser resolvido com poucas linhas de código. Confira na sequência desse post!

Plataforma: Beecrowd (antiga URI)

Problema: 1010

Enunciado:

In english:

In this problem, the task is to read a code of a product 1, the number of units of product 1, the price for one unit of product 1, the code of a product 2, the number of units of product 2 and the price for one unit of product 2. After this, calculate and show the amount to be paid.

Linguagem: Haskell

Solução:

Precisamos obter os valores digitados em duas linhas. Isso pode ser obtido com getLine, mas o conteúdo da linha estará como String. Assim, para cada linha podemos criar uma lista de valores Double, sendo, em ordem, o código, a quantidade de unidades e o preço. A função read pode fazer essa conversão de String -> Double, mas precisamos que a função read seja passada como parâmetro para a função map, assim ela aplicará a conversão para todas as palavras da linha (por isso o parâmetro deve ser words product1 para a primeira linha e words product2 para a segunda), resultado em uma lista de Double, ou seja, um [Double].

Feito isto, basta calcular o valor total a ser pago, o que é feito obtendo o valor total da primeira linha (quantidade x preço do primeiro produto) e somando este valor ao total da segunda linha (também quantidade x preço, mas do segundo produto).

O resultado deve ser exibido no formato solicitado pelo exercício. Por estarmos trabalhando com valores monetários, o exercício exige a formatação do resultado em duas casas decimais. Para fazer essa formatação basta utilizar o printf e formatar o valor total com %.2f, isso delimita o resultado a duas casas decimais. Não esqueça de importar a função printf!

import Text.Printf (printf)

main :: IO ()
main = do   
   product1 <- getLine
   product2 <- getLine
   let [cod1, units1, price1] = map read (words product1) :: [Double]
   let [cod2, units2, price2] = map read (words product2) :: [Double]
   let total = units1 * price1 + units2 * price2
   printf "VALOR A PAGAR: R$ %.2f\n" (total)

Veja também aqui no blog a solução para o problema 1010 em outras linguagens!

Ah, só mais uma coisa: ajude mais uma vez o blog para que eu continue postando respostas em diversas linguagens! Segue novamente o PIX para doações é 6d8bc7a8-5d74-493a-ab7a-3515baf35956. Sua ajuda será muito útil. 

Um abraço e até a próxima!

URI - 1010 - Cálculo Simples - Iniciante - C++

Plataforma: URI
Problema: 1010

Enunciado:
Neste problema, deve-se ler o código de uma peça 1, o número de peças 1, o valor unitário de cada peça 1, o código de uma peça 2, o número de peças 2 e o valor unitário de cada peça 2. Após, calcule e mostre o valor a ser pago.

Linguagem: C++

Solução:

#include <iostream>
#include <iomanip>

using namespace std;

int main() {
    
    int cod, quant;
    double val, total;
    
    cin >> cod >> quant >> val;
    total = quant * val;
    cin >> cod >> quant >> val;
    cout << "VALOR A PAGAR: R$ " << fixed << setprecision(2) << total + quant * val << endl;
    
    return 0;
}

URI - 1010 - Cálculo Simples - Iniciante - C

Plataforma: URI
Problema: 1010

Enunciado:
Neste problema, deve-se ler o código de uma peça 1, o número de peças 1, o valor unitário de cada peça 1, o código de uma peça 2, o número de peças 2 e o valor unitário de cada peça 2. Após, calcule e mostre o valor a ser pago.

Linguagem: C

Solução:

#include <stdio.h>

int main() {
    int codigo, quantidade;
    double valor, total;
    
    scanf("%i %i %lf", &codigo, &quantidade, &valor);
    total = quantidade * valor;
    
    scanf("%i %i %lf", &codigo, &quantidade, &valor);
    printf("VALOR A PAGAR: R$ %.2lf\n", total + quantidade * valor);
}