мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
pascal:files [26/11/2009 17:15] – dnaumov | pascal:files [06/02/2018 10:56] (текущий) – [Замена стандартного ввода / вывода] oca | ||
---|---|---|---|
Строка 99: | Строка 99: | ||
writeln(s); | writeln(s); | ||
writeln(a: | writeln(a: | ||
- | writeln(a:8:5, b:8:4, c:8:1); {записываем три дробные числа в файл output.txt} | + | writeln(f:8:5, h:8:4, p:8:1); {записываем три дробные числа в файл output.txt} |
close(output) {обязательно закрываем файл после завершения работы с ним} | close(output) {обязательно закрываем файл после завершения работы с ним} | ||
Строка 112: | Строка 112: | ||
| | ||
| | ||
+ | </ | ||
+ | |||
+ | Важно помнить, | ||
+ | |||
+ | ==== Разбор строки ==== | ||
+ | Пусть дан входной файл вида | ||
+ | < | ||
+ | 2 | ||
+ | fam name 5 | ||
+ | fam2 name2 4 | ||
+ | </ | ||
+ | |||
+ | Прочитаем из него данные, | ||
+ | |||
+ | <code pascal> | ||
+ | var | ||
+ | s:string; | ||
+ | c:char; | ||
+ | i:integer; | ||
+ | n : integer; | ||
+ | fname, name: | ||
+ | mark: | ||
+ | position : integer; | ||
+ | begin | ||
+ | assign(input,' | ||
+ | reset(input); | ||
+ | readln(n); | ||
+ | |||
+ | for i := 1 to n do | ||
+ | begin | ||
+ | readln(s); | ||
+ | //fname | ||
+ | position := pos(' ', s); | ||
+ | fname := copy(s, 1, position); | ||
+ | delete(s, | ||
+ | //name | ||
+ | position := pos(' ', s); | ||
+ | name := copy(s, 1, position); | ||
+ | delete(s, | ||
+ | //mark | ||
+ | val(s, mark); | ||
+ | writeln(' | ||
+ | end; | ||
+ | |||
+ | close(input); | ||
+ | |||
+ | end. | ||
+ | </ | ||
+ | |||
+ | В результате получим: | ||
+ | |||
+ | < | ||
+ | fname: fam name: name mark: 5 | ||
+ | fname: fam2 name: name2 mark: 4 | ||
</ | </ | ||
==== Процедуры и функции ==== | ==== Процедуры и функции ==== | ||
^ Имя ^ Описание ^ | ^ Имя ^ Описание ^ | ||
- | |<code pascal>й</ | + | |<code pascal>-</ |
- | |<code pascal> | + | |
- | |<code pascal> | + | |
- | |<code pascal> | + | |
- | |<code pascal> | + | |
- | |<code pascal> | + | |