Как перевести в денежный формат?

@Elenochka · Регистрация: 26.04.2011

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

Помогите перевести в денежный формат...
Заранее спасибо..)

Вычислить сумму оборотных средств
S=VP/360*(D1-D2)
где
VP - валовый национальный продукт;
D1- прогнозированная длительность оборота;
D2- фактическая длительность в днях.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program primer;
uses crt;
var s, vp,d1,d2,: real;
begin
write('Введите валовый националный продукт vp=');
read(vp);
write('Введите прогнозированныу длительность оборота d1=');
read(d1);
write('Введите фактическую длительность в днях d2=');
read(d2);
s:=vp/360*(d1-d2);
writeln('rezultat=', s:5:3);
end.

@Puporev · 12.06.2011, 11:16

Сообщение от Elenochka

Помогите перевести в денежный формат...

А что Вы понимаете под этим?
Как в Экселе 1024,10р?

@Elenochka · 12.06.2011, 11:44 **[ТС]**

Как это выглядит я незнаю....(
Мне просто сказали перевести, а как это сделать я незнаю...

@Puporev · 12.06.2011, 12:51

Сообщение от Elenochka

Как это выглядит я незнаю....(
Мне просто сказали перевести, а как это сделать я незнаю...

Так спросить нужно было...

@Elenochka · 12.06.2011, 12:53 **[ТС]**

Она сказала, что это нужно сделать с помощью мантиссы.

@Puporev · 12.06.2011, 13:09

Вычислить сумму оборотных средств
S=VP/360*(D1-D2)

А она что, и отрицательной может быть? А если d1=d2?

Добавлено через 1 минуту
Кстати форму именно такая s:=vp/360*(d1-d2);
а не s:=vp/(360*(d1-d2));

Добавлено через 5 минут
Можно сделать например так. Но значение положительное.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program primer;
uses crt;
var s, vp,d1,d2: real;
    st:string;
begin
write('Введите валовый националный продукт vp=');
read(vp);
write('Введите прогнозированныу длительность оборота d1=');
read(d1);
write('Введите фактическую длительность в днях d2<d1 d2=');
read(d2);
s:=vp/360*(d1-d2);
str(frac(s):0:2,st);
writeln('Сумма оборотных средсв=',trunc(s),' руб. ',copy(st,3,2),' коп.');
end.

Добавлено через 3 минуты
Вообще лучше так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program primer;
uses crt;
var s, vp,d1,d2: real;
    st:string;
begin
write('Введите валовый националный продукт vp=');
read(vp);
write('Введите прогнозированныу длительность оборота d1=');
read(d1);
write('Введите фактическую длительность в днях d2=');
read(d2);
s:=vp/360*(d1-d2);
str(s:0:2,st);
writeln('Сумма оборотных средсв=',copy(st,1,pos('.',st)-1),' руб. ',copy(st,pos('.',st)+1,2),' коп.');
end.

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Elenochka 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 42
	12.06.2011, 11:44 [ТС]
	Как это выглядит я незнаю....( Мне просто сказали перевести, а как это сделать я незнаю... 0

@Elenochka 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 42
	12.06.2011, 12:53 [ТС]
	Она сказала, что это нужно сделать с помощью мантиссы. 0