KMA 
Долгожитель
|
     
bart никому не лень, но твоя фраза, что ты нуль, еще больше расслабляет к помощи, тебе. Эти все задачи решаются в три строчки, при том требуют минимальных знаний по Паскалю, а это значит, что ты просто ленишься, и тебе в лом посмотреть в учебник, или справочник по языку. До тех пор, пока ты не привидешь исходники тебе никто помогать не будет. Я могу решить все эти задачи, поэтому помощь гарантируется, но только помощь, иначе -- плата за лень.
P. S. Тебе даже лень посмотреть все тему, там как минимум есть четыре похожих решения данных задач.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 22 мая 2006 19:32 | IP
|
|
bart
Удален
|
просто реально нету времени
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 23 мая 2006 16:19 | IP
|
|
bart
Удален
|
эх... тебе меня не понять лан бб
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 23 мая 2006 16:20 | IP
|
|
KMA
Долгожитель
|
Блин, а у нас это время есть???? Ты парень прости, но если ты даже свои задачи решить не можешь, то почему тебе кто-то должен их решать безвозмездно???
Этот эгоизм меня больше всего раздражает. Я так же могу плакаться, кричать помогите и т. п. вместо того, чтобы сесть и самому все проработать, тем самым теряя время. Я напишу решения, но только в общем виде, а уж переводить ты будешь сам.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 23 мая 2006 17:17 | IP
|
|
KMA
Долгожитель
|
Короче вот тебе ссылка, там максимум. Все измениться, если привидешь решения, или хотя бы код внешняя ссылка удалена
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 23 мая 2006 17:57 | IP
|
|
Mas
Новичок
|
Нужно найти периметр матрицы.
Посмотрите, пожалуйста, как исправить?
program progt;
var
i,j,sum,n:integer;
s:text;
begin
assign(s,'matriza.txt');
rewrite(s);
for i:=1 to n do
begin
readln(t);
writeln(s,t);
end;
begin
reset(s);
sum:=t[1,1]+t[n,1]+t[1,n]+t[n,n];
for j:=1 to (n-1) do
begin
read(s,t);
sum:=sum+s[1,i]+s[n,i]+s[i,1]+s[i,n];
end;
end;
close(s);
writeln(sum);
end.
|
Всего сообщений: 8 | Присоединился: май 2006 | Отправлено: 23 мая 2006 21:07 | IP
|
|
miss_graffiti
Долгожитель
|
 
Mas, что такое "периметр матрицы"?
я бы посоветовала после rewrite до reset файл все же закрыть...
и бегинов у тебя, имхо, многовато.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 23 мая 2006 22:31 | IP
|
|
KMA
Долгожитель
|
Mas
Так, а для чего ты используешь файл? Что подразумевается под периметром матрицы? Лучше было бы если б ты оставил полное уловие задачи.
assign(s,'matriza.txt');
rewrite(s);
for i:=1 to n do
begin
readln(t);
writeln(s,t);
end;
с этим понятно, ты пишешь в файл все, что пользователь вводит с клавиатуры. Это правильно.
begin
reset(s);
sum:=t[1,1]+t[n,1]+t[1,n]+t[n,n];
for j:=1 to (n-1) do
begin
read(s,t);
sum:=sum+s[1,i]+s[n,i]+s[i,1]+s[i,n];
end;
end;
Долго пытался догнать для чего первый begin, что он раскрывает, так и не понял видимо твоя ошибка. И последний end то же надо убрать, а то мешается. Далее, ты открываешь файл для чтения, это понятно, хочешь поучить данные, но потом, что за чушь. Ты переменной (заметь, не массиву, так как в начале индексы не указывались, значит простой тип, и точно должен быть ниже или integer) t, которая у тебя не описана присваиваешь какие-то индексы, и видимо что-то из них пытаешься получить.... ???????????????? Я, конечно многое видел, но такое!!!!
Ладно, самое интересное впереди. Ты все читаешь из файла s в переменную t, после чего обращаешься к файловой переменной, как к массиву!!!???? и пытаешься что-то из этого извлечь... О ужас. Не обижайся, пожалуйста, но такого словарного паноса я давно не встречал.
Лучше напиши полное условие задачи, а мы уж тебе как-нибудь поможем.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 23 мая 2006 22:39 | IP
|
|
KMA
Долгожитель
|
miss graffiti, если общаешься с файлом, то для того, чтобы прочитать, или перезаписать не обязательно закрывать его, а потом делать другие операции. Хотя можно для подстраховки, но это как правило опусткается.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 23 мая 2006 22:43 | IP
|
|
Mas
Новичок
|
Задание: записать в файл матрицу, без использования массива, затем открыть файл на чтение и посчитать периметр матрицы.
|
Всего сообщений: 8 | Присоединился: май 2006 | Отправлено: 24 мая 2006 9:00 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
