1 / 1 / 3
Регистрация: 30.09.2015
Сообщений: 221
1

Определить стоимость товара (используя цикл repeat – until)

08.10.2015, 08:44. Показов 1319. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста.Цикл повтора repeat- until.Для этого необходимо организовать диалог с пользователем (например, Продолжить: 1, Остановить:0) в цикле repeat – until.
С клавиатуры вводится цена и вес товара (вещественные значения). Определить стоимость товара. Если стоимость превысила 1000 руб, то сделать скидку в размере 10%. Вывести все промежуточные результаты.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2015, 08:44
Ответы с готовыми решениями:

Массив: Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.
В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют...

Цикл repeat. Стоимость акций известной фирмы стабильно растёт на протяжении 6 месяцев. Найти стоимость акций
Пожалуйста решите с циклом repeat. Стоимость акций известной фирмы стабильно растёт на...

Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.
В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют...

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

1
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
08.10.2015, 10:00 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  i:char;
  p,c,w:real;
begin
  repeat
    Writeln('определение стоимости товара');
    write('Введите цену:');
    readln(p);
    write('Введите вес:');
    readln(w);
    c:=p*w;
    writeln('-----------------------------------------------------');
    writeln('Цена без скидки:',c:0:2);
    writeln('-----------------------------------------------------');
    if c>1000.0 then c:=c-c*0.1;
    writeln('Цена со скидкой:',c:0:2);
    writeln('-----------------------------------------------------');
    write('Желаете продолжить (0-нет):');
    readln(i);
  until i='0';
end.
0
08.10.2015, 10:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2015, 10:00
Помогаю со студенческими работами здесь

Планирование закупки товара в магазине на сумму, не превышающую заданную величину (цикл repeat)
Составьте программу планирования закупки товара в магазине на сумму, не превышающую заданную...

Используя цикл for, while или repeat(какой быстрее и удобнее) написать программу
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму...

Массив записей. Определить суммарную стоимость товара, находящегося на складе
Помогите пожалуйста решить задачи!!! 1). В среде TurboPascal составить и отладить программу ...

Определить, сколько видов товара имеют стоимость, меньшую средней стоимости
В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют...


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

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

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