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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2010, 16:04   #1
kyop
Пользователь
 
Регистрация: 04.08.2010
Сообщений: 20
По умолчанию паскаль модульное программирование: где мой модуль

добрый день подскажите ктонибудь, я создал модуль в паскале (mas1) он нормально откомпилировался, но при компиляции ПРОГРАММЫ с использованием этого модуля выдается ошибка "Unit name mismatch (mas1)"

Код:
program proverka14;

uses crt,MAS1;

var m1:tmr1;
    kol,raz:integer

begin
...
если ктонибудь может подсказать, буду очень благодарен...
kyop вне форума Ответить с цитированием
Старый 10.12.2010, 16:31   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Покажи код самого модуля. Вернее его первые 10 строк.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 10.12.2010, 16:39   #3
kyop
Пользователь
 
Регистрация: 04.08.2010
Сообщений: 20
По умолчанию

собственно для проверки работоспособности и правильности работы модуля я эту программу и сделал... после того как проверю буду дополнять.
Код:
unit mas;

interface
type tmr1=array [1..20,1..20] of real;
procedure vvodkolmas(var kolmas:integer);{эта процедура определяет СКОЛЬКО будет массивов}
procedure vvodrazmmas(var razmmas:integer);{эта процедура определяет РАЗМЕР массива}
procedure vvodmat(var mat:tmr1;kolmas,razmmas:integer);{процедура заполняет матрицукаждая строчка которой один массив}


implementation

procedure vvodkolmas; {эта процедура определяет СКОЛЬКО будет массивов}
begin
     write('введите количество массивов = ');
     read(kolmas);
end;

procedure vvodrazmmas; {эта процедура определяет РАЗМЕР массива}
begin
     write('введите размер массива = ');
     read(razmmas);
end;

procedure vvodmat;{процедура заполняет матрицу
                  каждая строчка которой один массив}
var i,j:integer;

begin
         writeln('начат процесс ввода массивов');
         for i:= 1 to kolmas do
         begin
              for j:= 1 to razmmas do
              begin
                   write('введите ',j,' элемент масссива ',i);
                   read(mat[i][j]);
                   j:=j+1;
              end;
              i:=j+1;
         end;
end;
end.
эмм
Код:
unit mas;

interface
type tmr1=array [1..20,1..20] of real;
уже заменил на
Код:
unit mas1;

interface
type tmr1=array [1..20,1..20] of real;
с именем тоже совпадает, не помогло...

Последний раз редактировалось kyop; 10.12.2010 в 19:15.
kyop вне форума Ответить с цитированием
Старый 10.12.2010, 17:09   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
unit mas;
А ты заказываешь
Код:
uses crt,MAS1;
Разницу видишь
Как ты написал имя модуля в unit так и файл должен называться.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
модульное программирование в C++ Galdenysh Помощь студентам 0 31.05.2010 18:21
Модульное программирование. BARNEY Общие вопросы Delphi 5 28.07.2009 09:12
Модульное программирование Natashaaaa БД в Delphi 1 15.04.2009 11:05
Модульное программирование Rifler Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 26.12.2008 15:02
модульное программирование, С++ Stiker Помощь студентам 1 09.12.2007 21:38