Меню сайта

Категории раздела
Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) [36]
Решение олимпиадных задач по программированию
Готовимся к олимпиаде по математике [3]
Решение олимпиадных задач по математике

Мини-чат

Наш опрос
Уважаемый посетитель сайта, к какой категории вы себя относите?
Всего ответов: 5512

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Главная

Регистрация

Вход
Вы вошли как Гость | Группа "Гости" | RSS


Личный сайт учителя математики и информатики

Фоновой Натальи Леонидовны



Пятница, 14.08.2020, 09:10
Главная » Файлы » Внеурочная деятельность » Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru)

Товарные операции
14.02.2012, 08:17

Условие:
Предприниматель приобретает товар по оптовой цене партиями по 100 единиц. Затем он этот товар продаёт по розничной цене. Составить программу для определения размера прибыли, которую получит предприниматель в рублях, если продаст весь товар.

Технические условия:
Программа должна читать исходные данные из файла input.txt, имеющего такую структуру:
- Первая строка содержит число N (N<231) - колличество видов приобретённого товара.
- Каждая последующая строка содержит четыре числа, разделённых одним или несколькими пробелами - информацию о товаре: количество единиц приобретённого товара, оптовая цена товара (за 100 единиц товара), розничная цена единицы товара, курс доллара (цена одного доллара в рублях) на момент приобретения товара.
Программа должна заносить результат работы в файл output.txt, содержащий единственное вещественное число с двумя знаками дробной части - размер прибыли предпринимателя в рублях.

Примеры входных и выходных файлов:
Input.txt
3
1000 5 1 2.5
500 3 0.6 5
2500 65 3.62 5.68
Output.txt
1420.00

Решение:
{$N+}
var
f:text;
n,i:longint;
S:extended;
T:Longint;
Opt,Rozn,Buks:Real;
begin
assign(input,'input.txt');
reset(input);
readln(n);S:=0;
for i:=1 to n do
begin
read(F,T,Opt,Rozn,Buks);
S:=S+T*Rozn-T/100*Opt*Buks;
end;
assign(output,'Output.txt');
rewrite(output);
Writeln(F,S:2:2);
end.
Категория: Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) | Добавил: admin
Просмотров: 598 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Кнопка сайта

Одна кнопка

время жизни сайта

Сайт участвует
конкурс сайтов 

Новости образовани

Фраза дня

Web-мастеру

OperaFirefoxGoogle ChromeDownload Master
QIPSkypeµTorrentTeamViewer
Dr.Web CureITAvira AntiVirTotal CommanderCDBurnerXP
PicasaIrfanViewCheMaxDAEMON Tools
AIMPKMPlayerBSplayerK-Lite Codec Pack

Установить себе такой Блок
Скрипты и HTML для uCOz

Раскрутка сайта
Graffiti Decorations(R) Studio (TM) Site Promoter

Copyright MyCorp © 2020
/td>