|
|
|
|
|
|
|
Вернуться
| 1 Васерин Никита, 04 октября 2009 г. 16:39:52 | |
>Program Srednee;
>Var
>max,Element:integer;
>f,f1:file of integer;
>Begin
походу файл у тебя типизированный - типа integer, и то бишь неважно что .txt к нему в виде расширения даешь; а отсылать надо текстовый по формату, со своим расширением - аля .pas ,
|
|
|
| 2 Верещака Артём Олександрович, 04 октября 2009 г. 15:46:41 | |
вот например задача А+Б
Var a,b:longint;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
write(a+b);
close(input);close(output);
end.
|
|
|
| 3 Присяжнюк Анатолий Васильевич, 04 октября 2009 г. 13:58:53 | |
|
То Орлечук: Ваш код не верный. Подумайте сами, что выведет Ваша программа, если все входные данные будут отрицательными... :)
|
|
|
| 4 Канзитдинов Батыр Никматуллаевич, 04 октября 2009 г. 12:26:35 | |
reset(input,'input.txt');
rewrite(output,'output.txt');
readln(a, b);
writeln(a+b);
|
|
|
| 5 Орлечук Р.Р., 04 октября 2009 г. 12:26:15 | |
Анатолий Васильевич смотрите вот мой код я проверял все робит:
Program Srednee;
Var
max,Element:integer;
f,f1:file of integer;
Begin
max:=0;
assign(f,'input.txt');
reset(f);
while not eof(f) do
begin
read(f,Element);
if element>max then max:=element;
end;
close(f);
assign(f1,'output.txt');
rewrite(f1);
write(f1,max);
close(f1);
end.
проверка непрошла успешно так как это реализовать как вы сказали на делфийском компеляторе??
|
|
|
| 6 Дон Жуан, 04 октября 2009 г. 12:24:33 | |
да нет!!!
эти две строчки
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
перенаправляю все стандртные вводы выводы в файл!!!
|
|
|
| 7 Присяжнюк Анатолий Васильевич, 04 октября 2009 г. 12:23:56 | |
А затем, что таким образом переопределяется файловый поток и пользователь читает уже не с клавы, а с объявленного файла. И вывод происходит, естественно, тоже уже в файл. Но это под дельфи (здесь в системе компилятор именно такой), а вот под другие версии, например под Турбо или Фри, нужно еще указывать идентификатор файловой переменной...
|
|
|
| 8 Орлечук Р.Р., 04 октября 2009 г. 12:20:08 | |
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b); тут пользователь вводит а и б с клавы а не считывает с файла!!!Нафига нужны тогда файлы зачем их открывать объасните плиз(((((
|
|
|
| 9 Заплатинський Иван, 04 октября 2009 г. 12:12:16 | |
вот смотри
var a, b : longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(a + b);
end.
|
|
|
| 10 Дон Жуан, 04 октября 2009 г. 12:11:55 | |
{Реализация задачи №1 "A+B" на Pascal}
var a, b : longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(a + b);
end.
Я не паскалист чтоб объянять тебе почему и как это работает но я знаю точно что это работает просто добавь 2 строчки!!!!!!!
|
|
|
| 11 Орлечук Р.Р., 04 октября 2009 г. 11:47:13 | |
|
погоди чтото я невижу где с файла считываются данные они просто открыли их и все....можешь написать пример проги ??плиз я просто гляну как надо блин оформить им
|
|
|
| 12 Мехрдоди Одил (ТРГИ), 04 октября 2009 г. 11:41:47 | |
вот это и есть работа с файлами
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
как при обычном режиме тока добавь 2 строчки
|
|
|
| 13 Орлечук Р.Р., 04 октября 2009 г. 11:36:28 | |
|
ты посмотри как они там решили задачу через паскаль там ваще неиспользуются файлы
|
|
|
| 14 Андрей Шмиг, 04 октября 2009 г. 11:34:22 | |
С правой стороны смотри раздел "Новичкам"
в самом низу есть примеры задач
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
