Дмитрий Дедов

Константой задан комплект деталей заготовительного цеха (K). Задан массив (размерность - 10) записей следующей структуры
- Наименование детали
- Номер детали

Миниатюры

 

Vladimir_S

Не, ну это уже полный бред! Это флеш-моб такой?
HELP массив

Дмитрий Дедов

Попытался написать программу, но ответ в виде матрицы не выходит.
В чем проблема?

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.

Vladimir_S

Да много в чем...
Прежде всего в том, что поздновато Вы решили начать осваивать азы программирования. С сожалением вынужден констатировать, что Ваша попытка написать программу привела к появления набора каких-то невразумительных непоняток. Что-то откуда-то явно бездумно перекатано...
1. В условии сказано "массив записей". Где у Вас вообще записи? Похоже, Вы о таких структурах и не слыхали.
2. Вот это: "begin;" есть полная бессмыслица. Такого не бывает.
3. В чем вообще смысл трёхкратного повторения по сути одного блока?
4. Зачем нужно вводить каждый параметр отдельным циклом, да еще "вслепую", т.е. без текстового пояснения, что именно мы вводим?
И т.д., и т.п.

В общем, пока могу порекомендовать изучить вот эту тему, где только что была разобрана аналогичная задача, и попробовать создать что-то "по образу и подобию".