Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Записи (процедурас параметрами) 
:(
    Опции темы
digitech
Дата 16.2.2008, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 271
Регистрация: 1.4.2007

Репутация: нет
Всего: 1



Сделал задачу с записями. Там надо заполнить данные имя студента, оценки, средний балл. Это всё сделал.
Код

type
Stud = record
name : array[1..n] of string[13];  { имена студентов }
item : array[1..n,1..i] of byte;  {оценки их}
mp   : array[1..i] of real;  { средний балл }
end;

 И это всё для группы v1
Код

VAR
v1 : stud;


А как сделать процедуру с параметрами, если две группы - v1, и v2 ?
Код

VAR
v1,  v2 : stud;


Какого типа будут переменные у процедуры? 
Может если мы имя в процедуру передаём v1.name[x] -> то процедура типа будет так? -> procedure free(name:string; и т.д.); , хотя там массив строк...
PM MAIL   Вверх
volvo877
Дата 16.2.2008, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



Да какая разница, как называется переменная? Ты в процедуре должен заполнять запись? Переменные - одного типа? Вот и делаем:

Код
Procedure FillRec(var R: Stud);
begin
  { ... Заполняешь свою запись R ... }
end;

{ вызов: }
FillRec(v1);
FillRec(v2);

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0437 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.