|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - Pascal. Запись из массива в файлы. |
|
|
Разное - Pascal. Запись из массива в файлы.
|
Новый участник Сообщения: 26 |
Здравствуйте!
Решаю следующую задачу: Даны символьные файлы F и G. Определить, совпадают ли компоненты файла F с компонентами файла G. Если нет, то получить номер первого не совпадающего компонента. В общем, до написания проверки основного условия задачи я еще не дошла. На данном этапе реализовала заполнение массива случайными символами. Теперь хочу чтобы этот массив записался в файлы F и G. Но подключить правильно процедуру у меня не получается. Интересно то, что если записывать код по заполнению массива без процедуры, сразу в теле основной программы, то тогда массив символов успешно записывается в оба файла. Значит я что-то не правильно процедуру подключаю. Подскажите, пожалуйста, что нужно поменять. Думаю, что к реализации основной идеи задачи я смогу приступить только после того, как получиться записать символьный массив в файлы  А иначе не с чем работать Преподаватель сказала, что нужно, чтобы присутствовала хотя бы одна процедура или функция. А лучше всего, что бы было и то и другое. Думаю, что это было бы и удобно, использовать процедуру Вот код программы, который я написала на данном этапе. Код:
 program f_2a;
{Даны символьные файлы F и G. Определить, совпадают ли компоненты
файла F с компонентами файла G. Если нет, то получить номер первого
не совпадающего компонента.}
uses crt;
const m=10;
simvolij : array [0..38] of char = ('a','b','c','d','e','f','g','h','i','j',
'k','l','m','n','o','p','q','r','s','t',
'u','v','w','x','y','z','0','1','2','3',
'4','5','6','7','8','9','+','-','*');
type file1 = file of char;
file2 = file of char;
var f1 : file1;
f2 : file2;
procedure input_massiv;
var i : byte;
SimMas : array [1..m] of char;
begin
randomize;
for i:=1 to m do
begin
SimMas[i]:=simvolij[random(38)];
end;
end;
BEGIN
clrscr;
assign(f1,'F.txt');
rewrite(f1);
write(f1,input_massiv);
assign(f2,'G.txt');
rewrite(f2);
write(f2,input_massiv);
close(f1);
close(f2);
END.
|
|
|
Отправлено: 13:05, 23-01-2012 |
|
Старожил Сообщения: 280
|
Профиль | Отправить PM | Цитировать буду передавать масивы
мне так удобно. а как передавать пусть компилятор заморачивается. если нормальный -- передаст как надо. По моей теории, строки, массивы и объекты передаются указателями, а не копируются. |
|
------- Отправлено: 16:07, 26-01-2012 | #11 |
|
Старожил Сообщения: 198
|
Профиль | Отправить PM | Цитировать Вообще-то, в паскале для того, чтоб передать массив по ссылке, необходимо использовать либо var (если массив будет изменяться) или const (если не будет).
Компилятор не будет передавать ссылку, если вы это не указали явно. Оптимизация подразумевает генерацию более эффективного кода без нарушения его семантики. А способ передачи потому и бывает разный, что разные способы передачи имеют разную семантику. |
|
Отправлено: 18:32, 26-01-2012 | #12 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) | Loading | Программирование и базы данных | 41 | 20-05-2015 15:28 | |
| 2008 R2 - Распределение массива | twinzzz75 | Windows Server 2008/2008 R2 | 10 | 19-01-2012 17:00 | |
| [решено] Отключенная учетная запись и запись с истекшим сроком действия. В чем разница? | CaminoDeFlores | Microsoft Windows NT/2000/2003 | 4 | 01-06-2009 09:30 | |
| Создание динамического массива на Pascal-е | Skynet | Программирование и базы данных | 3 | 09-10-2004 18:05 | |
| PHP. Запись массива в файл. | Hemp | Вебмастеру | 3 | 08-10-2004 20:50 | |
|
|
Время: 10:36. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
