Паскаль, массив
Вложений: 1
Константой задан комплект деталей заготовительного цеха (K). Задан массив (размерность - 10) записей следующей структуры
- Наименование детали - Номер детали |
Не, ну это уже полный бред! Это флеш-моб такой?
http://www.tehnari.ru/f43/t250870/ |
Попытался написать программу, но ответ в виде матрицы не выходит.
В чем проблема? Program Var11; Var No,Sr,OB,O,B,P, K, Count: array [1..10] of integer; i, n: byte; Begin Begin; Write ('введите размерность массивов:'); Readln(n); For i:=1 to n do Readln (P[i]); For i:=1 to n do Readln (K[i]); For i:=1 to n do Count[i]:=P[i]*K[i]; For i:=1 to n do Write (Count[i],' '); end; begin; Write ('введите размерность массивов:'); Readln(n); For i:=1 to n do Readln (O[i]); For i:=1 to n do Readln (B[i]); For i:=1 to n do OB[i]:=O[i]*B[i]; For i:=1 to n do Write (OB[i],' '); end; begin; Write ('введите размерность массивов:'); Readln(n); For i:=1 to n do Readln (P[i]); For i:=1 to n do Readln (No[i]); For i:=1 to n do Sr[i]:= P[i]*No[i]; For i:=1 to n do Write (Sr[i],' '); end; end. |
Цитата:
Прежде всего в том, что поздновато Вы решили начать осваивать азы программирования. С сожалением вынужден констатировать, что Ваша попытка написать программу привела к появления набора каких-то невразумительных непоняток. Что-то откуда-то явно бездумно перекатано... 1. В условии сказано "массив записей". Где у Вас вообще записи? Похоже, Вы о таких структурах и не слыхали. 2. Вот это: "begin;" есть полная бессмыслица. Такого не бывает. 3. В чем вообще смысл трёхкратного повторения по сути одного блока? 4. Зачем нужно вводить каждый параметр отдельным циклом, да еще "вслепую", т.е. без текстового пояснения, что именно мы вводим? И т.д., и т.п. В общем, пока могу порекомендовать изучить вот эту тему, где только что была разобрана аналогичная задача, и попробовать создать что-то "по образу и подобию". |
Часовой пояс GMT +4, время: 16:10. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.