Построить в ответе матрицу. Паскаль
program qqsam2;
uses Crt; const nmax = 9; type pribor = record name : string; number : integer; w_gold : real; w_silv : real; cost : real; count : integer; end; var p : array [1..nmax] of pribor; i, n : byte; CostAll, w_name : real; enter_name : string; begin ClrScr; Repeat Writeln('Количество приборов (не более ', nmax, '): '); Readln(n); until n in [1..nmax]; Writeln('Введите данные о приборах: '); for i := 1 to n do begin Write('Наименование прибора № ', i, ': '); Readln(p[i].name); Write('Вес золота в приборе № ', i, ': '); Readln(p[i].w_gold); Write('Вес серебра в приборе № ', i, ': '); Readln(p[i].w_silv); Write('Стоимость прибора № ', i, ': '); Readln(p[i].cost); Write('Количество приборов № ', i, ': '); Readln(p[i].count); Writeln('========================================= =========='); end; ClrScr; Write('Введите наименование прибора: '); Readln(enter_name); CostAll := 0; w_name := 0; for i := 1 to n do begin if p[i].name = enter_name then w_name := w_name + p[i].count * (p[i].w_gold + p[i].w_silv); CostAll := CostAll + p[i].count * p[i].cost; end; Writeln('Общий вес драгоценных металлов в приборе ', enter_name, ' = ', w_name); Writeln('Общая стоимость приборов: ', CostAll); end. Вот задача, но ответ нужен матрицей, не могу понять как его так вывести:sigh: |
Цитата:
|
Задан массив (размерность 9) записей следующей структуры:
- Наименование прибора - Номер прибора - Вес золота в приборе (ВЗ) - Вес серебра в приборе (ВС) - Стоимость прибора (С) - Колличество приборов данного вида (КП) Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП). Определить общую стоимость приборов в лаборатории. И вас с праздниками! |
в той теме никто не отвечал, пришлось новую завести
|
М-да... Какая-такая "матрица" видится Вашему преподавателю - ума не приложу... Может быть, имеется в виду представить введённые данные в виде таблицы? Нет? Или, может быть, нужно сделать вариант программы, где вместо записей использовать двумерный массив? Или... в общем, плоховато у меня с телепатией.
|
Ответ в виде таблицы
|
Вложений: 1
Ну, например, так:
Код:
program qqsam2; |
Часовой пояс GMT +4, время: 13:31. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.