Как найти стоимость в паскале

Как найти стоимость в паскале

‌

Высший разум

(1263700)


7 лет назад

var
s: string;
a,b,c:real;
begin
WriteLn(‘Вычисление стоимости покупки. ‘);
WriteLn(‘Введите исходные данные: ‘);
WriteLn(‘Какой товар вы покупаете? ‘);
ReadLn(s);
WriteLn(‘По какой цене? ‘);
ReadLn(a);
WriteLn(‘Сколько штук? ‘);
ReadLn(b);
WriteLn(‘Ваш товар – ‘, s, ‘. Стоимость покупки: ‘, a * b : 2);
WriteLn(‘Сколько денег даете? ‘);
ReadLn(c);
WriteLn(‘Ваша сдача: ‘, c – a * b);
end.

kaiu

Высший разум

(111831)


7 лет назад

Ну так пиши, в чем проблема? Здесь ответы на вопросы которые ты не задал.
Лучше делай сам, задавай вопрос если будет сложность.

Dem@n Chichan2009Ученик (147)

7 лет назад

ну если б все было так легко

kaiu
Высший разум
(111831)
Вон в низу ответили, скатай да забудь, если тебе это программирование не надо.

Источник

Формулировка задачи:

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

Код к задаче: «Определить стоимость товара»

textual

 else
   begin
    writeln('Вам не предоставлется скидка');
    writeln('Сумма вашей покупки: ',St:0:2,' руб.');
   end;

Полезно ли:

14   голосов , оценка 4.143 из 5

Источник
uses crt;

var
  numi, pricei, numii, priceii, numiii, priceiii, numiv, priceiv: integer;

begin
  clrscr;
  writeln('Введите количество и стоимость товаров I сорта кол-во и стоимость через Enter');
  readln(numi);
  readln(pricei);
  clrscr;
  writeln('Введите количество и стоимость товаров II сорта кол-во и стоимость через Enter');
  readln(numii);
  readln(priceii);
  clrscr;
  writeln('Введите количество и стоимость товаров III сорта кол-во и стоимость через Enter');
  readln(numiii);
  readln(priceiii);
  clrscr;
  writeln('Введите количество и стоимость товаров IV сорта кол-во и стоимость через Enter');
  readln(numiv);
  readln(priceiv);
  clrscr;
  writeln('сорт      ', 'кол-во      ', 'стоимость ед.      ', 'общ.стоимость');
  writeln('I         ', numi, pricei:12, numi * pricei:24);
  writeln('II        ', numii, priceii:12, numii * priceii:24);
  writeln('III       ', numiii, priceiii:12, numiii * priceiii:24);
  writeln('IV        ', numiv, priceiv:12, numiv * priceiv:24);
  writeln('Стоимость всех товаров ', numi * pricei + numii * priceii + numiii *
    priceiii + numiv * priceiv);

end.
Источник

0 / 0 / 0

Регистрация: 30.11.2015

Сообщений: 13

1

Вычисление стоимости покупок

24.02.2016, 09:00. Показов 3762. Ответов 1

Студворк — интернет-сервис помощи студентам

Произвести подсчёт следующей покупки: 3 тетради в клетку по 10 копеек, 5 тетрадей в линейку по 2 рубля, 2 линейки по рубль 50 копеек. Произвести подсчёт всей покупки.



0

Puporev

Почетный модератор

64286 / 47585 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

24.02.2016, 12:24

2

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal 
1
2
3
4
5

var s:integer;
begin
s:=3*10+5*200+2*150;
write('Стоимость всей покупки  ',s div 100,' рублей ',s mod 100,' копеек');
end.



0
Источник

Кролик456327

помогите составить программу в паскале!Известна стоимость 1 кг конфет, печенья, яблок. Найти стоимость всей покупки, если купили х кг конфет, y кг печенья и z кг яблок.

Ленгит

Светило науки – 722 ответа – 9665 раз оказано помощи

var 
k,p,i,s,x,y,z:real;
begin
write(‘Стоимость килограмма конфет: ‘);
readln(k);
write(‘Стоимость килограмма печенья: ‘);
readln(p);
write(‘Стоимость килограмма яблок: ‘);
readln(i);
write(‘Купили конфет: ‘);
readln(x);
write(‘Купили печенья: ‘);
readln(y);
write(‘Купили яблок: ‘);
readln(z);
s:=x*k+y*p+z*i;
write(‘Потратили всего: ‘,s);
readln;
end.

Источник

Добавить комментарий