Pascal, работа с функциями. - Страница 3

Dram · 10.01.2010, 20:30

Цитата:

Сообщение от Vladimir_S

Вот черт, вечно я отстаю от жизни. В каких-то реализациях Паскаля, с которыми я имел дело, задавать в явном виде массив в качестве аргумента функции было нельзя, вот я с тех пор и не задаю. Надо будет попробовать - может быть на современных пакетах и можно.
В принципе это не "превращение двумерного массива в одномерный", а просто чуть иное описание двумерного массива. Вот представьте себе, например, матрицу (двумерный массив), имеющую 3 строки и 4 столбца. Ее можно описать, как
A:ARRAY[1..3,1..4] of REAL;
Но если в той же матрице каждую строку рассматривать как одномерный массив, то можно записать и так:
A:ARRAY[1..3] of ARRAY[1..4] of REAL;
И, наконец, если в начале программы массив-строка был объявлен типом, т.е.
TYPE
AR=ARRAY[1..4] of REAL;
то массив может быть задан, как
A:ARRAY[1..4] of AR;
А теперь - внимание! ВСЕ ТРИ ЗАПИСИ МАССИВА А АБСОЛЮТНО ЭКВИВАЛЕНТНЫ! Просто, поскольку аргументом функции в программе выступали строки, то мне показалось, что так нагляднее. Если запутал, извините.
Между прочим, при обращении к элементу двумерного массива выражения A[2,3] и A[2][3] тоже абсолютно эквивалентны.

Хм... будем знать!!!

Vladimir_S · 10.01.2010, 21:26

Цитата:

Сообщение от Dram

Vladimir_S а почему недопустима? FUN(A:ARRAY[1..10] of Integer):Real
Мне учитель сказал так именно и задавать...

Так, ну потестировал я свой Паскаль. Такая запись у меня не проходит, можно только типа FUN(A:ARRAY of Integer):Real, т.е. БЕЗ ДИАПАЗОНА. Да ну его! Буду, как привык.

Dram · 19.01.2010, 18:08

Не стал создавать новую тему решил тут спросить.. подскажите что не так.
прога должна была находить в первом файле строки с введенным с клавиатуры словом. и эти строки сохранять во второй файл..
вот что у меня вышло

Код:

uses crt;
var
f,z:text;
str:string;
s:string;
begin
 clrscr;
 assign(f,'C:\in.txt');
 reset(f);
 assign(z,'C:\out.txt');
 append(z);
 while not EOF(f) do
 begin
  readln(f,str);
  writeln(str);
  close(f);
  readln;
 end;
end.

но паскаль сразу матерится на "reset(f);" мол путь не найден..
Хотя все .txt на месте? P.S это уже на "лаба" так для себя практикуюсь

Long Cat · 19.01.2010, 18:15

Цитата:

Сообщение от Vladimir_S

Вот черт, вечно я отстаю от жизни. В каких-то реализациях Паскаля, с которыми я имел дело, задавать в явном виде массив в качестве аргумента функции было нельзя, вот я с тех пор и не задаю. Надо будет попробовать - может быть на современных пакетах и можно.
В принципе это не "превращение двумерного массива в одномерный", а просто чуть иное описание двумерного массива. Вот представьте себе, например, матрицу (двумерный массив), имеющую 3 строки и 4 столбца. Ее можно описать, как
A:ARRAY[1..3,1..4] of REAL;
Но если в той же матрице каждую строку рассматривать как одномерный массив, то можно записать и так:
A:ARRAY[1..3] of ARRAY[1..4] of REAL;
И, наконец, если в начале программы массив-строка был объявлен типом, т.е.
TYPE
AR=ARRAY[1..4] of REAL;
то массив может быть задан, как
A:ARRAY[1..4] of AR;
А теперь - внимание! ВСЕ ТРИ ЗАПИСИ МАССИВА А АБСОЛЮТНО ЭКВИВАЛЕНТНЫ! Просто, поскольку аргументом функции в программе выступали строки, то мне показалось, что так нагляднее. Если запутал, извините.
Между прочим, при обращении к элементу двумерного массива выражения A[2,3] и A[2][3] тоже абсолютно эквивалентны.

К такой интерпретации нужно относиться с большой осторожностью: дело в том, что компилятор может в целях оптимизации добавить к строкам массива пару - тройку байт, в результате чего возникнут неуловимые ошибки.

AlexZir · 19.01.2010, 19:00

Dram, к сожалению, вы закрыли файл сразу после чтения из него первой строки, соответственно, при повторном обращении к файлу внутри цикла возникает ошибка о том, что файл не найден.
Вынесите команду close(f) за циклическую структуру, но перед последним end.

Dram · 19.01.2010, 19:52

Упс.. я выложил немного не тот код.... щас поправлю. походу я не сохранился в нужный момент и доробатывал не тот код

Извините вперь буду внимательней

19.01.2010, 18:08	#23 (permalink)
Dram Экономичный вид памяти Регистрация: 19.02.2008 Сообщений: 2,632 Записей в дневнике: 1 Сказал(а) спасибо: 6 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 2794	Не стал создавать новую тему решил тут спросить.. подскажите что не так. прога должна была находить в первом файле строки с введенным с клавиатуры словом. и эти строки сохранять во второй файл.. вот что у меня вышло Код: uses crt; var f,z:text; str:string; s:string; begin clrscr; assign(f,'C:\in.txt'); reset(f); assign(z,'C:\out.txt'); append(z); while not EOF(f) do begin readln(f,str); writeln(str); close(f); readln; end; end. но паскаль сразу матерится на "reset(f);" мол путь не найден.. Хотя все .txt на месте? P.S это уже на "лаба" так для себя практикуюсь Последний раз редактировалось Long Cat; 19.01.2010 в 19:02

19.01.2010, 19:00	#25 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,774 Записей в дневнике: 71 Сказал(а) спасибо: 163 Поблагодарили 201 раз(а) в 85 сообщениях Репутация: 74893	Dram, к сожалению, вы закрыли файл сразу после чтения из него первой строки, соответственно, при повторном обращении к файлу внутри цикла возникает ошибка о том, что файл не найден. Вынесите команду close(f) за циклическую структуру, но перед последним end. __________________ Убить всех человеков!

19.01.2010, 19:52	#26 (permalink)
Dram Экономичный вид памяти Регистрация: 19.02.2008 Сообщений: 2,632 Записей в дневнике: 1 Сказал(а) спасибо: 6 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 2794	Упс.. я выложил немного не тот код.... щас поправлю. походу я не сохранился в нужный момент и доробатывал не тот код Извините вперь буду внимательней Последний раз редактировалось Dram; 19.01.2010 в 20:05

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070