Pascal — различия между версиями
WikiSysop (обсуждение | вклад) |
WikiSysop (обсуждение | вклад) |
||
| Строка 6: | Строка 6: | ||
</pre> | </pre> | ||
| − | + | Работа с текстовыми файлами. Чтение и запись: | |
| − | + | <pre class='brush:pascal'> | |
| − | + | var | |
| − | + | f1,f2:text; | |
| − | + | sum,a,b:integer; | |
| − | + | begin | |
| − | + | Assign(f1,'input.dat'); | |
| − | + | Assign(f2,'output.sol'); | |
| − | + | Rewrite(f2); | |
| − | + | Reset(f1); | |
| − | + | Read(f1, a); | |
| − | + | Read(f1, b); | |
| − | + | close(f1); | |
| − | + | sum:=a+b; | |
| − | + | Write(f2, sum); | |
| + | close(f2); | ||
end. | end. | ||
| + | </pre> | ||
Версия 12:48, 16 февраля 2010
Pascal
begin end.
Работа с текстовыми файлами. Чтение и запись:
var f1,f2:text; sum,a,b:integer; begin Assign(f1,'input.dat'); Assign(f2,'output.sol'); Rewrite(f2); Reset(f1); Read(f1, a); Read(f1, b); close(f1); sum:=a+b; Write(f2, sum); close(f2); end.
