Зачётное задание Часовой завод изготовил в январе часы трёх видов: соответственно 150, 220, 170 шт. В феврале производство продукции выросло: I вида – на 5%, II вида – 3% и III вида – 2%. В марте рост составил соответственно 1,5, 1,6 и 2%. Затраты на изготовление каждого вида часов составляют: I вида – 350р., II вида – 300р., III вида – 250р. Продажная стоимость каждого вида соответственно 1000, 900 и 850р. С электронной таблицы рассчитайте в натуральных единицах рублях и долларах (курс доллара Банка России оформите в ячейке с абсолютным адресом): какое количество часов изготовлено в каждый месяц; прибыль от реализации каждого вида изделия в рублях и долларах; ежемесячные затраты на производство каждого вида изделий. Постройте диаграмму по прибыли каждого вида изделий.
Var
День,Месяц:byte;
Begin
Write('№ дня = ');ReadLn(День);
Var C:=365-День;
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End
Объяснение:
1
Заполнить файл f целыми числами, полученным генератором случайных чисел
16.05.2016, 14:56. Просмотров 1699. ответов 3
Метки нет (Все метки)
Заполнить файл f целыми числами, полученными с генератора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на п.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2016, 14:56
ответы с готовыми решениями:
Заполнить файл f целыми числами, полученными с генератора случайных чисел
Доброго всем времени суток кто чем может)) 1.Заполнить файл f целыми числами,...
Заполнить файл f целыми числами, полученными с генератора случайных чисел
Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вывести на экран...
Заполнить файл f целыми числами, полученными с генератора случайных чисел
Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вычислить...
Заполнить файл f натуральными числами, полученными с генератора случайных чисел
Заполнить файл f натуральными числами, полученными с генератора случайных чисел. Найти...
3