|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
09.11.2012, 23:26 | #1 |
Пользователь
Регистрация: 23.09.2012
Сообщений: 13
|
Pascal. есть вопросик!
program pro231;
uses crt; type zapis=record data:string[4]; kod_cex:string[6]; kod_mat:string[20]; potreb:real; end; base=array[1..1000] of zapis; cc=string[6]; procedure form_source(var n:integer;var mass:base); var i:integer; begin write('Введите количество записей:'); readln(n); for i:=1 to n do begin writeln; writeln('Ввод ',i,' записи'); write('Введитедату:'); readln(mass[i].data); write('Введите код цеха:'); readln(mass[i].kod_cex); write('Введите код материала:'); readln(mass[i].kod_mat); write('Введите потребность(пример-123456.23):'); readln(mass[i].potreb); end; end; procedure form_final(var mass:base;n:integer;var code:cc;var outmass:base;var nk:integer); var i:integer; begin nk:=0; writeln; writeln('Введите код необходимого цеха:'); readln(code); for i:=1 to n do begin if mass[i].kod_cex=code then begin outmass[i]:=mass[i]; inc(nk); end; end; end; procedure outrec(var outmass:base;nk:integer;code:cc); var i:integer; begin clrscr; writeln('Записи по цеху №',code); for i:=1 to nk do begin writeln(i,')Дата: ',outmass[i].data,';'); writeln(' Кодцеха: ',outmass[i].kod_cex,';'); writeln(' Кодматериала: ',outmass[i].kod_mat,';'); writeln(' Потребность:',outmass[i].potreb:2:2,'.'); writeln; end; end; var mass,outmass:base; n,nk:integer; code:cc; begin clrscr; form_source(n,mass); form_final(mass,n,code,outmass,nk); outrec(outmass,nk,code); writeln('Нажмителюбуюклавишу'); readkey; end. Подскажите, где обращение к процедуре, выделенной коричневым цветом! Очень срочно! |
09.11.2012, 23:33 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Начал осваивать OpenGL. Есть вопросик. | Vova777 | Мультимедиа в Delphi | 1 | 24.06.2011 23:47 |
Pascal, наработки есть. | Otre4eHHbIu | Помощь студентам | 1 | 24.12.2009 08:43 |
ComboBox есть вопросик | Slimbr | Общие вопросы .NET | 4 | 09.12.2009 17:50 |
ToolBar1>>>ToolButton1 есть вопросик... | aesoem | Компоненты Delphi | 10 | 30.03.2008 23:35 |
есть вопросик. | iamnemo | Microsoft Office Excel | 2 | 09.11.2006 16:21 |