![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Desktop |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: ![]() ![]() ![]() |
Есть задача:
Сложить список с N найменований товаров. Установить цену и количество каждого товара. Для составления входных данных написать программу ввода входной информаций используя массивы. Посчитать стоимость товара и суммарную стоимость всех товаров. Результат вывести в виде такблицы. *********************************************** * # * Название * цена * Кол-ство* Cуммарная* *п/п* товаров * руб.* * стоимость * В этой задачи не получаеться найти суммарное количество товаров. Код program tab(input,output); const n=5; var mastov:array[1 ..12] of packed array [1..15] of char; cena: array[1..n] of real; kol: array[1..n] of integer; x: array[1..n] of integer; sum: real; i,j,k: integer; begin writeln ('Vvedite nazv tovarov'); For i:=1 to n do For j:=1 to 15 do Read (mastov [i,j]); readln; writeln ('Vvedite cinu'); for i:=1 to n do read (cina [i]); writeln('Vvedite kolich tovarov'); for i:=1 to n do read (kil [i]); begin sum:=0; for k:=1 to 12 do begin sum:=sum+cena[i]*kol[i]; end; x[i]:=sum; end; for i:=1 to 26 do write('*'); writeln; writeln ('* n * Nazv * Cena * Kol-stvo* Suma* '); writeln ('*n/n* Tovarov* Rub * * * '); for i:=1 to 26 do write('*'); writeln; for i:=1 to n do writeln ('*',I:2,' * ',mastov[i],' *',cena[i]:6:2,' *',kol[i],' *',x[i],' *'); for i:=1 to 26 do write('*'); end. Где ошибка ? Сообщение отредактировано: Desktop - 20.03.2006 18:04 |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 8:51 |