Практикум по программированию. Основы. Ввод и вывод. Покупки

From AsIsWiki
Revision as of 13:08, 29 February 2016 by Alex (Talk | contribs)

Jump to: navigation, search

Назад · Задачи · Дальше


Contents

Java

import java.util.Scanner;

public class Task07 {

    public static void main(String[] args) {
        
        Scanner in = new Scanner(System.in);
        
        System.out.println();
        System.out.println(" Расчет количества единиц товара и сдачи");
        System.out.println("-----------------------------------------");

        System.out.print(" Введите сумму денег у покупателя: "); 
        double sum = in.nextDouble();

        System.out.print(" Введите стоимость одной единицы товара: "); 
        double st = in.nextDouble();

        System.out.println("-----------------------------------------");
                            
        int n = (int) (sum / st);
        double sd = sum - n * st;

        System.out.printf(" Покупатель может купить %d единиц товара\n", n);
        System.out.printf(" Сдача: %.2f руб.\n", sd);
    }
}


C++

// g++ 4.2

#include <iostream>

using namespace std;

int main() {
    
    double sum, st;
    
    cout << "\n Расчет количества единиц товара и сдачи\n";
    cout << "-----------------------------------------\n";
    
    cout << " Введите сумму денег у покупателя: ";
    cin >> sum;
    
    cout << " Введите стоимость одной единицы товара: ";
    cin >> st;
    
    cout << "-----------------------------------------\n";
    
    int n = sum / st;
    double sd = sum - n * st;
    
    printf(" Покупатель может купить %d единиц товара\n", n);
    printf(" Сдача: %.2f руб.\n\n", sd);
    
    return 0;
}


Pascal

program Task07;
    var
        n: integer;
        sum, st, sd: real;
begin
    writeln;
    writeln(' Расчет количества единиц товара и сдачи');
    writeln('-----------------------------------------');

    write(' Введите сумму денег у покупателя: ');
    readln(sum);

    write(' Введите стоимость одной единицы товара: ');
    readln(st);

    writeln('-----------------------------------------');

    n := trunc(sum / st);
    sd := sum - n * st;

    writeln(' Покупатель может купить ', n, ' единиц товара');
    writeln(' Сдача: ', sd:0:2, ' руб.');

    readln;
end.



Назад · Задачи · Дальше

Personal tools
Namespaces

Variants
Actions
Navigation
Tools