26.12.2016, 18:11 | #1 (permalink) |
Новичок
Регистрация: 26.12.2016
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, массив
- Наименование детали - Номер детали |
26.12.2016, 18:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Безусловно можно найти еще много полезного, почитав эти темы Паскаль. Массив Массив, Паскаль Массив, Паскаль |
26.12.2016, 18:54 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Не, ну это уже полный бред! Это флеш-моб такой?
http://www.tehnari.ru/f43/t250870/ |
09.01.2017, 20:45 | #3 (permalink) |
Новичок
Регистрация: 26.12.2016
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Попытался написать программу, но ответ в виде матрицы не выходит.
В чем проблема? 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. |
10.01.2017, 09:43 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да много в чем...
Прежде всего в том, что поздновато Вы решили начать осваивать азы программирования. С сожалением вынужден констатировать, что Ваша попытка написать программу привела к появления набора каких-то невразумительных непоняток. Что-то откуда-то явно бездумно перекатано... 1. В условии сказано "массив записей". Где у Вас вообще записи? Похоже, Вы о таких структурах и не слыхали. 2. Вот это: "begin;" есть полная бессмыслица. Такого не бывает. 3. В чем вообще смысл трёхкратного повторения по сути одного блока? 4. Зачем нужно вводить каждый параметр отдельным циклом, да еще "вслепую", т.е. без текстового пояснения, что именно мы вводим? И т.д., и т.п. В общем, пока могу порекомендовать изучить вот эту тему, где только что была разобрана аналогичная задача, и попробовать создать что-то "по образу и подобию". |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|