Составить программу для расчета суммы расходов из файла

@Rim230115 · Регистрация: 26.04.2012

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

Расчитать сумму расходов из файла за каждый день и за всю неделю. помогите плиз нужно завтра уже сдавать((((

@Rim230115 · 17.05.2012, 00:20 **[ТС]**

И НИКТО не может помочь(эх(((((((

@Alex77755 · 17.05.2012, 07:58

Не по теме:

завтра уже сдавать

Вот изверги преподы!! Завтра сдавать, а задание(пустяковое) дали только сегодня.

@Remmor · 17.05.2012, 08:15

Не по теме:

Сообщение от Rim230115

И НИКТО не может помочь(эх(((((((

В институте помню писал курсовые и решал задачи другим, но за это тогда платили, сейчас чужую работу делают бесплатно?:)

@Alex77755 · 17.05.2012, 08:17

Не по теме:

Сообщение от Remmor

Не по теме:

В институте помню писал курсовые и решал задачи другим, но за это тогда платили, сейчас чужую работу делают бесплатно?:)

И это справедливо! Не хочешь работать головой - работай руками!! Или иди в армию

SoftIce · 17.05.2012, 09:44

Набросал в качестве примера.
Это не готовое решение!

Visual Basic
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
45
Private Enum День_Недели
    Понедельник
    Вторник
    Среда
    Четверг
    Пятница
    Суббота
End Enum
 
Private Type Расход
    Питание(Понедельник To Суббота)   As Integer
    Оплата_услуг(Понедельник To Суббота) As Integer
    Подарки(Понедельник To Суббота)  As Integer
    Развлечения(Понедельник To Суббота) As Integer
End Type
 
Dim День  As День_Недели
Dim Расходы_на As Расход
Dim Расходы_на_питание_за_неделю As Integer
Dim Расходы_на_оплату_услуг_за_неделю As Integer
Dim Расходы_на_подарки_за_неделю As Integer
Dim Расходы_на_развлечения_за_неделю As Integer
Dim Всего_расходов_за(Понедельник To Суббота) As Integer
Private Sub Command1_Click()
   Расходы_на.Питание(Понедельник) = 40: Расходы_на.Питание(Вторник) = 50: Расходы_на.Питание(Среда) = 45: Расходы_на.Питание(Четверг) = 42: Расходы_на.Питание(Пятница) = 43: Расходы_на.Питание(Суббота) = 60:
   Расходы_на.Оплата_услуг(Понедельник) = 45: Расходы_на.Оплата_услуг(Вторник) = 56: Расходы_на.Оплата_услуг(Среда) = 45: Расходы_на.Оплата_услуг(Четверг) = 56: Расходы_на.Оплата_услуг(Пятница) = 45: Расходы_на.Оплата_услуг(Суббота) = 56:
   Расходы_на.Подарки(Понедельник) = 20: Расходы_на.Подарки(Вторник) = 22: Расходы_на.Подарки(Среда) = 23: Расходы_на.Подарки(Четверг) = 24: Расходы_на.Подарки(Пятница) = 29: Расходы_на.Подарки(Суббота) = 26:
   Расходы_на.Развлечения(Понедельник) = 32: Расходы_на.Развлечения(Вторник) = 32: Расходы_на.Развлечения(Среда) = 31: Расходы_на.Развлечения(Четверг) = 54: Расходы_на.Развлечения(Пятница) = 54: Расходы_на.Развлечения(Суббота) = 45:
 
For День = Понедельник To Суббота
   Расходы_на_питание_за_неделю = Расходы_на_питание_за_неделю + Расходы_на.Питание(День)
   Расходы_на_оплату_услуг_за_неделю = Расходы_на_оплату_услуг_за_неделю + Расходы_на.Оплата_услуг(День)
   Расходы_на_подарки_за_неделю = Расходы_на_подарки_за_неделю + Расходы_на.Подарки(День)
   Расходы_на_развлечения_за_неделю = Расходы_на_развлечения_за_неделю + Расходы_на.Развлечения(День)
Next День
 
Print "Расходы_на_питание_за_неделю = "; Расходы_на_питание_за_неделю
Print "Расходы_на_оплату_услуг_за_неделю ="; Расходы_на_оплату_услуг_за_неделю
Print "Расходы_на_подарки_за_неделю = "; Расходы_на_подарки_за_неделю
Print "Расходы_на_развлечения_за_неделю ="; Расходы_на_развлечения_за_неделю
      
      День = Понедельник
      Всего_расходов_за(День) = Расходы_на.Питание(День) + Расходы_на.Оплата_услуг(День) + Расходы_на.Подарки(День) + Расходы_на.Развлечения(День)
Print "Всего_расходов_за "; " Понедельник"; Всего_расходов_за(День)
End Sub

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Rim230115 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 22
	17.05.2012, 00:20 [ТС]
	И НИКТО не может помочь(эх((((((( 0