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

@lyyb · Регистрация: 26.10.2016

Author24 — интернет-сервис помощи студентам

Составить программу, которая определяет выручку фирмы за каждый месяц. Результатом работы программы являются 3 значения: сумма выручки за январь, сумма выручки за февраль , сумма выручки за март.
Саму программу я написал, но нужно сделать, чтобы вывод результатов производился в файл
Вот как должно это выглядеть(Вложения)

@lyyb · 17.11.2016, 09:24 **[ТС]**

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

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.

Новые блоги и статьи Все статьи Все блоги /
Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Сложность Колмогорова: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

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

	Определить выручку фирмы за каждый месяц 13.11.2016, 15:01. Показов 1889. Ответов 1 Метки нет (Все метки) Составить программу, которая определяет выручку фирмы за каждый месяц. Результатом работы программы являются 3 значения: сумма выручки за январь, сумма выручки за февраль , сумма выручки за март. Саму программу я написал, но нужно сделать, чтобы вывод результатов производился в файл Вот как должно это выглядеть(Вложения) Миниатюры 0

Опции темы

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

Решение