С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 16
1

Книжного магазина - Расчет за книгу

23.09.2013, 15:42. Показов 1149. Ответов 2
Метки нет (Все метки)

Здравствуйте. помогите, пожалуйста составить программу для книжного магазина:
1.Просит ввести цену книги
2.Просит ввести сумму, которую заплатил покупатель
3.Высчитывает выдаваемую сумму, если такая есть.
4. Если сумма правильная, то выдает "Спасибо".
5.Если сумму меньше, тогда выдаёт сообщение о запросе недостающих денег.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.09.2013, 15:42
Ответы с готовыми решениями:

Вывести круговую диаграмму, отражающую товарооборот (в процентах) книжного магазина
Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах)...

Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах) книжного магазина
8. Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах)...

Консольное приложение(Для книжного магазина)
Как написать программу для книжного магазина? Вводится стоимость книги и сумма, внесённая...

проверьте мою схему БД книжного магазина
Привет всем)делаю диплом база данных книжного магазина)проверьте пожалуйста схему данных))Заранее...

2
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,260
Записей в блоге: 1
24.09.2013, 13:14 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var z,s,r:real;
Begin
    write('Цена книги: ');readln(z);
    write('Сумма,которую заплатил покупатель: ');readln(s);
    While z-s<>0 do
    Begin
      writeln('Недостоющее кол-во денег = ',z-s);
      write('Введите недостающее кол-во денег: ');readln(r);
      s:=s+r;
    End;
    writeln('Спасибо');
    readln;
End.
Т.к. не написано,что делать если пользователь заплатит больше денег,то такое случай я опустил и считается,что всё он вводит верно
1
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 16
24.09.2013, 21:47  [ТС] 3
Spasibooooo
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.09.2013, 21:47

Исправить ошибки в коде программы книжного магазина
Public Class Form1 Public sum, k As Double Private Sub Form1_Load(ByVal sender As...

Вывод круговой диаграммы, отражающей товарооборот в процентах книжного магазина
написать программу которая выводит круговую диаграмму отражающую товарооборот в процентах книжного...

Написать программу, которая выводит круговую диафамму, отражающую товарооборот (в процентах) книжного магазина
Написать программу, которая выводит круговую диафамму, отражающую товарооборот (в процентах)...

Расчет среднемесячного дохода магазина
Фирма имеет 10 магазинов. Информация о доходе каждого магазина за каждый месяц года хранится в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru