Подсчитать общую сумму десяти видов товара

@D1valT · Регистрация: 05.04.2020

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

Нужно чтобы в первом массиве было кол-во купленного товара T[1;10 ], а во втором стоимость данного вида товара С[1;10 ].
Я составил программку , но не могу понять почему не работает

, помогите поправить

Вот сама программка:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program vvv;
var T:array [1..10 ] of integer;
    C:array [1..10 ] of real;
    Dt:array[1..10 ] of real;
    I:integer;sum:real;
    begin
    for I:=1 to 10 do
    begin
    readln(T[I],C[I])
     end;
     for I:=1 to 10 do
     begin
     Dt[I]:=T[I]*C[I];
     writeln('Dt[',I:2']=',Dt[I]:6:2)
     end;
     sum:=0
     for I:=1 to 10 begin
     sum:= sum+Dt[I];
     end;
     end.

@ZX Spectrum-128 · 05.04.2020, 18:43

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
program vvv;
 
var
  T: array [1..10] of integer;
  C: array [1..10] of real;
  Dt: array[1..10] of real;
  I: integer;
  sum: real;
 
begin
  for I := 1 to 10 do
  begin
    readln(T[I], C[I])
  end;
  for I := 1 to 10 do
  begin
    Dt[I] := T[I] * C[I];
    writeln('Dt[', I:2, ']=', Dt[I]:6:2)
  end;
  sum := 0;
  for I := 1 to 10 do 
  begin
    sum := sum + Dt[I];
  end;
  writeln('Sum: ', sum);
end.

@D1valT · 05.04.2020, 19:03 **[ТС]**

Не работает в нескольких вещах - стоимость не получается ввести значение стоимости в десятичных , к примеру 1.5 или 25.5
Также подсчёт общей стоимости неверный ,что делать ？

@ValentinNemo · 05.04.2020, 19:15

А почему вы не воспользуетесь типом данных record? (лучше конечно использовать class, но я думаю что вам будет сложновато)

@D1valT · 05.04.2020, 19:25 **[ТС]**

По заданию стоят ограничения
Пользоваться можно только простейшими командами и массивами

Добавлено через 7 минут
Прошу , нужна помощь

@ZX Spectrum-128 · 06.04.2020, 08:17

Замените

Pascal
1
 T: array [1..10] of integer;

на

Pascal
1
 T: array [1..10] of real;

@D1valT · 06.04.2020, 10:19 **[ТС]**

Так с этим разобрались , но теперь появилась , вот такая ошибка - за место того чтобы перемножать позиции из 2 массивов, программка просто перемножает их по порядку, как это можно исправить ？

Добавлено через 46 минут
Help please,это моя последняя просьба.

@ZX Spectrum-128 · 06.04.2020, 14:27

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

за место того чтобы перемножать позиции из 2 массивов, программка просто перемножает их по порядку

Так и нужно же.
Стоимость_товара=Количество_товара*Цена_ товара

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@D1valT 0 / 0 / 0 Регистрация: 05.04.2020 Сообщений: 6
	05.04.2020, 19:03 [ТС]
	Не работает в нескольких вещах - стоимость не получается ввести значение стоимости в десятичных , к примеру 1.5 или 25.5 Также подсчёт общей стоимости неверный ,что делать ？ 0

@ValentinNemo 2374 / 776 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	05.04.2020, 19:15
	А почему вы не воспользуетесь типом данных record? (лучше конечно использовать class, но я думаю что вам будет сложновато) 1

@D1valT 0 / 0 / 0 Регистрация: 05.04.2020 Сообщений: 6
	05.04.2020, 19:25 [ТС]
	По заданию стоят ограничения Пользоваться можно только простейшими командами и массивами Добавлено через 7 минут Прошу , нужна помощь 0

@D1valT 0 / 0 / 0 Регистрация: 05.04.2020 Сообщений: 6
	06.04.2020, 10:19 [ТС]
	Так с этим разобрались , но теперь появилась , вот такая ошибка - за место того чтобы перемножать позиции из 2 массивов, программка просто перемножает их по порядку, как это можно исправить ？ Добавлено через 46 минут Help please,это моя последняя просьба. 0