комбинированные типы данных, не работает ,как ожидается..... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
комбинированные типы данных, не работает ,как ожидается..... |
-Dimanez- |
Сообщение
#1
|
Гость |
не в тему: почему не могу создавать новые темы будучи пользователем, а гостем без проблем...? дескриминация)
есть программа....где описывается массив записей,которые содержит информацию о нескольких деталях(наименование, масса, габаитные размеры: длина, ширина,высота: материал). опеределиьт массу всех деталей. вот сам текст программы: program zapisi; const nmax=10; type plant=record name:string[10]; massa:integer; gr:record dl:integer; sh:integer; vis:integer; end; mtl:string[10] end; var summary; array [1..nmax] of plant; i,k,n,s:integer; begin writeln('введите количество деталей'); readln(n); {ввод записей} for i;=1 to n do with summary[i] do begin writeln('введите данные о',i,'-ой детале:'); writeln('наименование'); readln(name); with gr do writeln('длина'); read(dl); writeln('ширина'); read(sh); writeln('высота'); read(vis) end; writeln('материал'); readln(mtl); end; {вывод заголовка таблицы} ... ... {формирование и вывод итоговой строки} s:=0; for I:=1 to n do with summary[i] do begin s:=s+massa; end; with summary[n+1] do begin name:='сумма масс'; massa:=s; begin for k:=1 to 80 do write('_'); writeln; end; writeln('|',name,'':12-length(name),'|':2,s:8,'|':2); end; for k:=1 to 80 do write('_'); writeln; end. затрудения: - при вводи строк, игнорирует строку-материал.... - не хочет считать сумму масс..оставляет поле пустым....возможно вывод итоговой строки неправильно оформил... наедеюсь на помощб))) |
Dimanez |
Сообщение
#2
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
черт..правда))..спасибо...сейчас испробуем)
насчет begin - не первый его пропуск в прогрмме(( Сообщение отредактировано: Dimanez - |
Текстовая версия | 29.04.2024 4:23 |