0 / 0 / 2
Регистрация: 26.10.2016
Сообщений: 17
1

Определить выручку фирмы за каждый месяц

13.11.2016, 15:01. Показов 1886. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составить программу, которая определяет выручку фирмы за каждый месяц. Результатом работы программы являются 3 значения: сумма выручки за январь, сумма выручки за февраль , сумма выручки за март.
Саму программу я написал, но нужно сделать, чтобы вывод результатов производился в файл
Вот как должно это выглядеть(Вложения)
Миниатюры
Определить выручку фирмы за каждый месяц  
0
Лучшие ответы (1)
13.11.2016, 15:01
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.11.2016, 15:01
Ответы с готовыми решениями:

Составить программу, которая определяет выручку фирмы за каждый месяц
Помогите плиз найти ошибку: Сведения о продажах фирмы представлены в виде таблицы. Составить программу, которая определяет выручку...

Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала.
Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала. Организовать ввод информации по этой таблице и...

Определить выручку фирмы за каждый месяц
Сведения о продажах фирмы представлены в виде таблицы. Составить программу, которая определяет выручку фирмы за каждый месяц....

1
0 / 0 / 2
Регистрация: 26.10.2016
Сообщений: 17
17.11.2016, 09:24  [ТС] 2
Лучший ответ Сообщение было отмечено lyyb как решение

Решение

А вот код программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program pr53;
uses crt;
type tabl=record
     tov:string[15];
     cen,jan,fev,mar:integer;
end;
var ka:array[1..100] of tabl;
    n,i:integer;
begin
writeln('Укажите колличество вводимых данных');
readln(n);
clrscr;
for i:=1 to n do with ka[i] do
begin
writeln('Укажите название товара №',i);
readln(tov);
writeln('Укажите цену товара №',i);
readln(cen);
writeln('Укажите колличество товара №',i,' за январь');
readln(jan);
writeln('Укажите колличество товара №',i,' за февраль');
readln(fev);
writeln('Укажите колличество товара №',i,' за март');
readln(mar);
clrscr;
end;
writeln('----------------------------------------------');
writeln('|Товар      |       Доход            |Цена   |');
writeln('|           |------------------------|за один|');
writeln('|           |Январь |Февраль |Март   |товар  |');
writeln('----------------------------------------------');
for i:=1 to n do with ka[i] do
begin
jan:=jan*cen;
fev:=fev*cen;
mar:=mar*cen;
writeln('|',tov:11,'|',jan:7,'|',fev:8,'|',mar:7,'|',cen:7,'|');
end;
writeln('-----------------------------------------------');
end.
Добавлено через 12 часов 3 минуты
Сам смог сделать, вот код программы:


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program pr53;
uses crt;
type tabl=record
     tov:string[15];
     cen,jan,fev,mar:integer;
end;
var ka:array[1..100] of tabl;
    n,i:integer;
    f:text;
begin
writeln('Укажите колличество вводимых данных');
readln(n);
clrscr;
for i:=1 to n do with ka[i] do
begin
writeln('Укажите название товара №',i);
readln(tov);
writeln('Укажите цену товара №',i);
readln(cen);
writeln('Укажите колличество товара №',i,' за январь');
readln(jan);
writeln('Укажите колличество товара №',i,' за февраль');
readln(fev);
writeln('Укажите колличество товара №',i,' за март');
readln(mar);
clrscr;
end;
assign (f,'out.txt');
rewrite (f);
writeln(f,'----------------------------------------------');
writeln(f,'|Товар      |       Доход            |Цена   |');
writeln(f,'|           |------------------------|за один|');
writeln(f,'|           |Январь |Февраль |Март   |товар  |');
writeln(f,'----------------------------------------------');
for i:=1 to n do with ka[i] do
begin
jan:=jan*cen;
fev:=fev*cen;
mar:=mar*cen;
writeln(f,'|',tov:11,'|',jan:7,'|',fev:8,'|',mar:7,'|',cen:7,'|');
end;
writeln(f,'-----------------------------------------------');
close(f);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.11.2016, 09:24
Помогаю со студенческими работами здесь

Определить выручку фирмы за каждый месяц. Создать блок-схему
Уважаемые программисты, помогите пожалуйста построить блок-схему type printer=record name:string; yan,fev,mar:integer; ...

Определить среднюю зарплату за каждый месяц
В двумерном массиве храниться информация о зарплате 18 сотрудников фирмы за каждый месяц года. Определить среднюю зарплату за каждый месяц.

Определить среднюю зарплату за каждый месяц
1. В двухмерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - первом столбце, за февраль – во втором...

Вычислить кол-во товара проданного за квартал, выручку, общую выручку и долю выручки
Тема довольно интересная, так как я не очень понимаю, как ее реализовать. Вот эта картинка - всё задание. А, ну и то, что всё это нужно в...

В ведомости указанна зарплата ,выплаченная каждому из сотрудников фирмы за некоторый месяц.
№1 В ведомости указанна зарплата ,выплаченная каждому из сотрудников фирмы за некоторый месяц. Определить общую сумму выплаченных по...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru