Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2012, 00:23   #11
Лариск
Пользователь
 
Регистрация: 23.09.2012
Сообщений: 13
По умолчанию

Сама! Попробую, спасибо большое за помощь!
Лариск вне форума Ответить с цитированием
Старый 25.09.2012, 20:30   #12
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

извиняюсь)) вот код
Код:
program pro231;
uses crt;                               //подключение модуля
type                            
zapis=record
data:string[4];
kod_cex:string[6];                      // объявление пользовательских типов 
kod_mat:string[20];
potreb:real;
end;
var
mass:array[1..1000] of zapis;           //объявление переменных и массивов
i,n:integer;
procedure formirov;
begin                                    //начало процедуры  
write('BBEDITE KOLLICHESTBO ZAPISEI...');
readln(n);                                // определение колличества записей
for i:=1 to n do                          
begin                 
with mass[i] do
begin
write('BBEDITE DATY....');
readln(data);
write('BBEDITE KOD CEXA....');
readln(kod_cex);                           // ввод записей N раз
write('BBEDITE KOD MATERIALA...');
readln(kod_mat);
write('BBEDITE POTREbNOST...(primer-123456.23)...');
readln(potreb);
end;                           // конец цикла                                  
end;                          
end;                                          //конец процедуры
procedure outrec;
begin
clrscr;
for i:=1 to n do
begin
writeln(i,') DATA: ',mass[i].data,';');
writeln('   KOD CEXA: ',mass[i].kod_cex,';');
writeln('   kod materiala: ',mass[i].kod_mat,';');
writeln('   potrebnost=',mass[i].potreb:2:2,'.');
writeln;
end;
end;
begin
clrscr;                      //читска экрана
formirov;
outrec;
writeln('HA}|{MITE ENTER...');
readln;
end.
если что не так работает, или неправильно понял цель написания программы, пиши) постараюсь исправить
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 29.09.2012, 00:53   #13
Лариск
Пользователь
 
Регистрация: 23.09.2012
Сообщений: 13
По умолчанию

Спасибо большое, ты всё правильно сделал, только, как сказал учитель, процедура должна выполнять требуемые действия. Заголовок процедуры должен включать все параметры.(5 параметров)
1
2 размерность
3 код цеха
4 какой-то массив
5 вроде бы - размерность выходного массива
Я его почерк понять не могу((((
Лариск вне форума Ответить с цитированием
Старый 01.10.2012, 20:35   #14
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

блин, нужно уточнение, нужна одна процедура, или 5 процедур с разными заголовками? или сами эти все параметры объявляются в процедуре? можно итак, но мы так не пишем
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 02.10.2012, 04:31   #15
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Цитата:
Сообщение от Алексей_2012 Посмотреть сообщение
блин, нужно уточнение, нужна одна процедура, или 5 процедур с разными заголовками? или сами эти все параметры объявляются в процедуре? можно итак, но мы так не пишем
Алексей, что значит "параметры объявляются в процелуре"? Параметры - они параметры и есть, пишутся в скобочках за названием процедуры при ее объявлении. На самом деле (технически то есть) они представляют собой ЛИБО локальные для этой процедуры переменные (если без модификатора var), в которые передаются некоторые значения при вызове, ЛИБО переименование внешних переменных (если c var), фактические воплощения которых также указываются при вызове.

Требования проподавателя вполне разумные. Подозреваю, кстати, что в п.4 должен фигурировать _открытый_ массив. Лариск, ну ты хоть раберись в том, что тебе делают.. Неужели не стыдно вот так принести с форума и сказать "я сделала"? В таком случае помощь превращается во вред (.
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 05.10.2012, 18:18   #16
Лариск
Пользователь
 
Регистрация: 23.09.2012
Сообщений: 13
По умолчанию

TinMan, да нет, не стыдно, я же не программист, а экономист, ребятам, поступившим в этом году, этот предмет убрали даже, а мне всё же надо закрыть хвост с первого курса.
Лариск вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
решение задачи в PASCAL ABC kill_01 Помощь студентам 14 19.05.2011 05:51
Решение задачи в Pascal VLADA Помощь студентам 1 10.05.2009 16:48
Решение задачи на Pascal Progs Помощь студентам 4 03.11.2007 15:23
Решение задачи на Pascal Progs Помощь студентам 2 22.10.2007 13:22