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

@Milaya2015 · Регистрация: 30.09.2015

Помогите пожалуйста.Цикл повтора repeat- until.Для этого необходимо организовать диалог с пользователем (например, Продолжить: 1, Остановить:0) в цикле repeat – until.
С клавиатуры вводится цена и вес товара (вещественные значения). Определить стоимость товара. Если стоимость превысила 1000 руб, то сделать скидку в размере 10%. Вывести все промежуточные результаты.

@Joy · 08.10.2015, 10:00

Pascal

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.

@Milaya2015 1 / 1 / 3 Регистрация: 30.09.2015 Сообщений: 221
		1
	Определить стоимость товара (используя цикл repeat – until) 08.10.2015, 08:44. Показов 1284. Ответов 1 Метки нет (Все метки) Помогите пожалуйста.Цикл повтора repeat- until.Для этого необходимо организовать диалог с пользователем (например, Продолжить: 1, Остановить:0) в цикле repeat – until. С клавиатуры вводится цена и вес товара (вещественные значения). Определить стоимость товара. Если стоимость превысила 1000 руб, то сделать скидку в размере 10%. Вывести все промежуточные результаты. 0

Опции темы

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

Решение