Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 15.02.2011
Сообщений: 68

Рассчитать стоимость оборудования

02.03.2011, 16:22. Показов 1846. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Фирма ежегодно на протяжении n лет закупала оборудование стоимостью соответственно s1, s2, …sn р. в год (эти числа вводятся и обраба-тываются последовательно). Ежегодно в результате износа и морального старения (аморти-зации) все имеющееся оборудование уценяется на p%. Какова общая стоимость накопленного оборудования за n лет?
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
02.03.2011, 16:22
Ответы с готовыми решениями:

Стоимость оборудования мастерской
На практику дали задание а я в Pascal плохо

Какова общая стоимость накопленного оборудования за n лет?
фирма ежегодно на протяжении n лет закупала оборудование стоимостью соответственно s1,s2...,sn руб. в год (эти числа вводятся и...

Разветвляющиеся структуры. Рассчитать стоимость квартиры
Текстовые задания набирайте вручную. Таковы правила форума

2
Sniper
 Аватар для dimafe6
96 / 64 / 4
Регистрация: 28.01.2010
Сообщений: 326
02.03.2011, 18:31
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Не знаю, правильно ли я понял суть задачи, но может быть так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n,i:integer;
    cena,stoimost,stoimosta: real;
const p = 10;
begin
Writeln('Vvedite kolichestvo let = ');Readln(n);
for I := 1 to n do
  begin
    Writeln('Vvedite stoimost'' oborudovania za ',i,' god');
    Readln(cena);
    stoimosta:= stoimosta+cena;
    stoimost:=stoimost+(cena-(cena*p/100));
  end;
writeln('Stoimost oborudovaniya za ',n,' let: ',stoimost:2:1);
writeln('Oborudovanie ucenilos'' na ',(stoimosta-stoimost):2:1);
readln;
end.
2
1 / 1 / 0
Регистрация: 15.02.2011
Сообщений: 68
02.03.2011, 21:07  [ТС]
ну скорее всего так, я тож не разобрался... спасибо во всяком случае за помощь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
02.03.2011, 21:07
Помогаю со студенческими работами здесь

Рассчитать стоимость подачи транспортных средств под погрузку
Помогите пожалуйста написать программу на паскале. Я вообще не знаю как ее составить( Задан массив (размерность 14) записей следующей...

Рассчитать стоимость продукции, выработанного хозяйством
В хозяйстве выработка продукции за одну неделю месяца составляла n едениц. Еженедельно она увеличивалась на P%. Каждый месяц цена продукции...

В цехе установлено 15 единиц оборудования, каждое из которых отработало срок (от 5 до 15 лет), известна стоимость каждой единицы оборудования
Помогите пожалуйста с задачкой В цехе установлено 15 единиц оборудования, каждое из которых отработало срок (от 5 до 15 лет), известна...

Зная стоимость каждой единицы оборудования, определить суммарную стоимость и кол-во единиц оборуд-я, проработавших > 10 лет
Здрастуйте) помогите задачку по С++ на цикл с постусловием В цехе установлено 15 единиц оборудования, каждое из каких отработало срок...

Стоимость оборудования
Доброго времени суток! Не могу найти стоимость вот этого ПАК: IBM Proventia Network Enterprise Scanner Модель ES1500. Кто знает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru