При работе с файлом мне нужно указать путь к файлу с клавиатуры. В моём варианте assign работает только, если в программе не участвует readln(read). Поиском не пользовался, дабы нет времени. Просто очень срочно. Ребят, прошу помощи.
uses crt;
const N=10; M=15;
type massiv=array[1..N,1..M] of integer;
var a: massiv;
i,v,h,o,b,p,N2,M2,j,t,g,k,l: integer;
s: real;
f,f2: text;
str:string;
ch: char;
begin {1}
clrscr;
writeln ('Введите размер матрицы вида (M*N; gde N-столбцы (максимальный размер 10*15)');
writeln ('Введите количество столбцов');
repeat
read (N2);
until (N2>=3) and (N2<=10); {часть ввода данных}
writeln ('Введите количество строк');
repeat
read (M2);
until (M2>=1) and (M2<=15);
writeln;
begin
writeln ('Куда вывести используемые данные? 1-записать в файл 2-вывести на окно ');
ch:=readkey;
if ch='1' then {сама работа с файлом (запись текста в него, с указанием полного пути, вводимого с клавы}
writeln ('Введите путь к файлу');
read (str);
assign (f2,str);
rewrite (f2);
write (f2,'isxodnaya matriza');
close (f2);
end;
readln;
readln;
end. {1}
Что происходит У ТЕБЯ при запуске той программы, которую ты привел? Не запускается? Ошибка? Перезагрузка?
когда встречается read то прога не даёт ввести путь к файлу, а выводит результат прям в окно. На то место где должен быть путь.
без ввода пути файла с клавы всё отлично пашет
if ch='1' then BEGIN { <--- Ты вот это слово не забыл вообще-то? }
Не знаю... У меня все работает... Какой у тебя компилятор?
Где его глянуть)))) Pascal 7.0
P.S. Никогда не пользуйся Read БЕЗ LN !!! ВЕЗДЕ замени Read на ReadLn - все должно сработать...
volvo, ты спас меня. Лови +. Хотя пробовал раньше, менял. Глюки какие-то...
Упс... поспешил. Я не могу репутацию менять... Ну тогда спасибо большое...