|
|
|
|
|
|
|
Вернуться
| 1 Качесов Владимир Александрович, 05 декабря 2008 г. 19:01:58 | |
|
a,f:text; - тоже не обязательно..
|
|
|
| 2 Ладик Артём, 05 декабря 2008 г. 18:54:20 | |
|
теперь понятно это вопрос...!!!!!
|
|
|
| 3 Ладик Артём, 05 декабря 2008 г. 18:53:53 | |
теперь понятно, и вообще посмотрите
Методичка-новичкам-{Реализация задачи №1 "A+B" на Pascal}
|
|
|
| 4 Ладик Артём, 05 декабря 2008 г. 18:52:29 | |
если сами фаилы названы input м output а у вас тут названы a и f
если вы хотите read(n),write(s),не хотите писать close то надо писать так
{----}
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
read(n);
{-----}
write(s);
end.
{----}
|
|
|
| 5 Галиуллин Тимур Шамилевич, 05 декабря 2008 г. 17:57:15 | |
|
ваша программа тупо перепечатывает символ
|
|
|
| 6 Галиуллин Тимур Шамилевич, 05 декабря 2008 г. 17:29:38 | |
Ладик Артём
читал, что для файлов инпут и оутпут.тхт можно не
----------------------
надо писать read(a,n); и write(f,s)
----------------------
|
|
|
| 7 Ладик Артём, 05 декабря 2008 г. 17:23:08 | |
вот верный ваиант
var a,f:text;
n,s,i:longint;
begin
assign(a,'input.txt'); reset(a);
read(a,n);
close(a);
s:=0;
for i:=1 to n do
s:=s+1;
assign(f,'output.txt'); rewrite(f);
write(f,s);
close(f);
end.
|
|
|
| 8 Ладик Артём, 05 декабря 2008 г. 17:20:58 | |
Да и не знаю как вам помоч....))))
1) строку program можно не писать
2) зачем строка i:=1; если после этого вы используете ее счечиком цикла
3) по поводу фаилов. у вас не возникал вопрос почему он ничего не считывает из фаила.
надо писать read(a,n); и write(f,s); и в конче надо написать close(a);close(f);
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
