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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2012, 01:19   #1
akaNoit
Новичок
Джуниор
 
Регистрация: 04.05.2012
Сообщений: 1
Печаль паскаль подключение модуля

Есть главный файл
uses modul;
var n:byte;
Begin
writeln('Введите кол-во записей:');
readln(n);

Vvod(n);
sort(n);
write(zap[Temp].ime,' ',zap[Temp].stoim,' ',zap[Temp].tip,' ',zap[Temp].sum);
End.

А вот модуль
unit modul;
interface
type spisok=record
arr=array[1..100] of spisok; {ERRORругаеться, что перед равно нет двоеточия}

ime,tip:string;
stoim,sum:byte;
var zap:arr;
Temp,i,j,n:byte;
max:spisok;
procedure Vvod(n:byte);{ERRORотсутствует опредение процедуры}
procedure sort(n:byte);
implementation

Begin
procedure Vvod(n:byte);
begin
for i:=1 to n do
begin

write('Ime firmu ');readln(zap.ime);
write('Stoimost stroenia ');readln(zap.stoim);
write('tip stroenia');readln(zap.tip);
write('symma vklada');readln(zap.sum);

end;
end;
procedure sort(n);
begin
for i:=1 to n do

if zap.sum = zap.stoim then begin
Temp:=i;
writeln;
write(zap[Temp].ime,' ',zap[Temp].stoim,' ',zap[Temp].tip,' ',zap[Temp].sum);
writeln;
end;
End.
akaNoit вне форума Ответить с цитированием
Старый 05.05.2012, 02:29   #2
Delphi_ProGer
Форумчанин
 
Регистрация: 30.10.2010
Сообщений: 524
По умолчанию

Код:
arr:array[1..100] of spisok;
Delphi_ProGer вне форума Ответить с цитированием
Старый 05.05.2012, 02:31   #3
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Delphi_ProGer, конечно так можно исправить, но лучше спросить ТС:
Что же вы пытаетесь сделать? Запись с массивом? 2 записи?
Код:
type spisok=record
ime,stoim,tip,sum:string[80];
end;
arr=array[1..100] of spisok;
Код:
implementation

procedure Vvod(n: byte);
begin
  for i := 1 to n do
  begin 
    write('Ime firmu ');readln(zap.ime);
    write('Stoimost stroenia ');readln(zap.stoim);
    write('tip stroenia');readln(zap.tip);
    write('symma vklada');readln(zap.sum); 
  end;
end;

procedure sort(n: byte);
begin
  for i := 1 to n do  
    if zap.sum = zap.stoim then begin
      Temp := i;
      writeln;
      write(zap[Temp].ime, ' ', zap[Temp].stoim, ' ', zap[Temp].tip, ' ', zap[Temp].sum);
      writeln;
    end;
end;

end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 05.05.2012 в 02:37.
BDA на форуме Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оформление и подключение модуля Seferus Паскаль, Turbo Pascal, PascalABC.NET 2 29.02.2012 00:55
fortran, подключение модуля capta1n Помощь студентам 2 13.02.2011 17:18
подключение модуля Takada_sony Помощь студентам 1 31.03.2010 16:02
Подключение модуля Thunder Общие вопросы Delphi 6 26.06.2009 13:22