Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 26.12.2016, 18:11   #1 (permalink)
Дмитрий Дедов
Новичок
 
Регистрация: 26.12.2016
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль, массив

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

Старый 26.12.2016, 18:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Безусловно можно найти еще много полезного, почитав эти темы

Паскаль. Массив
Массив, Паскаль
Массив, Паскаль

Старый 26.12.2016, 18:54   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 23,858
Сказал(а) спасибо: 138
Поблагодарили 278 раз(а) в 93 сообщениях
Репутация: 61181
По умолчанию

Не, ну это уже полный бред! Это флеш-моб такой?
HELP массив
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 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)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 23,858
Сказал(а) спасибо: 138
Поблагодарили 278 раз(а) в 93 сообщениях
Репутация: 61181
По умолчанию

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

В общем, пока могу порекомендовать изучить вот эту тему, где только что была разобрана аналогичная задача, и попробовать создать что-то "по образу и подобию".
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:49.


Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.