Создать Windows-приложение Учет оплаты заказов - вопрос №210149191 от круичаррип 03.03.2020 04:30

Question

Информатика: Создать Windows-приложение Учет оплаты заказов . Предусмотреть: 1 Создание входных файлов: Справочник услуг (Код услуги, Наименование услуги, Стоимость услуги); Клиенты (Код клиента, Наименование клиента, Адрес, Телефон). 2 На основе данных входных файлов и заданного в форме Кода клиента, Кода услуги и Стоимости услуги получение выходного файла: Заказы (Номер заказа, Дата заказа, Код клиента, Код услуги, Стоимость услуги, Форма оплаты). 3 Вывод суммы оплаты заказов по заданной Форме оплаты. 4 Создание

круичаррип · Answer

PascalABC.NET beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы:

решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл