Составить таблицу, которая позволяет вычислить стоимость закупленного оборудования трех видов для различных фирм. Несколько фирм (12-14), входящих в объединение, закупают оборудование трех видов. Фирмы могут быть двух типов - совместные и российские. Каждая фирма закупает оборудование одного вида. При закупке оборудования на определенную сумму фирма получает скидку.
Стоимость единицы закупленного оборудования 1-го типа - 1000 у.е., 2-го — 500 у.е., 3-го — 250 у.е..
При покупке оборудования на сумму свыше 10000 у.е для российских фирм действует скидка в размере 10% от общей стоимости, а для совместных —5%.
Требования к решению:
Каждая строка таблицы содержит следующую информацию:
название фирмы,
тип фирмы,
вид закупленного оборудования,
количество единиц оборудования,
стоимость,
скидка,
стоимость с учетом скидки.
Подсчеты вести в рублях.
Изменение стоимости единицы оборудования, курса доллара и типа фирмы автоматически влечет за собой изменение всех вычисляемых величин.
Обеспечить подсчет суммарной стоимости закупленного оборудования с учетом скидки для всех фирм и отдельно для совместных и российских фирм.
Построить круговую диаграмму, отражающую долю от общей стоимости совместных и российских фирм.
Рекомендации:
хранить курс у.е. в отдельной ячейке;
в отдельных ячейках хранить размер скидки для каждого типа фирмы,
для расчета стоимости закупленного оборудования завести справочник, в котором вход - вид оборудования, выход - стоимость за единицу.
2. Не корректный вопрос: индекс - это обращения к определенному элементу массива, а у самого массива индекса нет. В вариантах ответа ничего похожего на это нет.
3. 4 Массивы заполняются теми же операторами, что и обычные переменные
4. 1 Есть такой ввода в бейсике - конструкция READ DATA
5. 1 Выведется четвертый элемент массива, т.к. нумерация идет с нуля, и первый имеет номер 0, второй - 1, третий - 2, а четвертый - номер 3, который и запрашивается в выражении А(3)
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}