Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Тип данных String в Pascal.

Со строковыми переменными можно производить различные операции. Операция сцепления строк позволяет соеденить 2 строки между собой.

Циклы и массивы

Табулирование функций.

Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец ...

Вложенные итерационные циклы.

Под вложенным итерационным циклом понимают такую алгоритмическую структуру, при которой в тело одного итерационного цикла включен другой итерационный цикл. Другими словами, любая составная ...

Считывание информации из файла в целочисленную или вещественную переменную аналогично описанному в предыдущем уроке способу. Например, если в файле записаны числа: 10 25 63 42 58, то в целочисленную переменную будет записано только число 10. Для того чтобы все числа были считаны из файла и выведены на экран также используют цикл с признаком конца файла.

Напишем программу, которая подсчитывает количество положительных чисел, хранящихся в текстовом файле. Для этого в директории, где хранятся наши программы необходимо создать текстовый файл. Я создал текстовый файл «chislo.dat» и поместил туда несколько чисел.

schitihvanie informacii iz fayjla v celochislennuyu ili vethestvennuyu peremennuyuОбратите внимание, что данному файлу я присвоил расширение «.dat». Дело в том, что текстовые файлы не обязательно должны иметь расширение «.txt». В файле формата «.dat» также могут храниться текстовые данные и такие файлы можно открыть любым текстовым.

Считывание информации из файла в целочисленную или вещественную переменную.



program file4;
uses crt;
var f:text;
a:integer;
k:integer;
begin
clrscr;
assign(f,'programs/chislo.dat');
reset(f);
k:=0;
while not eof(f) do
begin
read(f,a);
if a>0 then inc(k);
end;
close(f);
writeln('k=',k);
readln
end.


Строка №3. Создаем файловую переменную «f», для доступа к файлу.

Строка №4. Целочисленную переменную «a» будем использовать в качестве буферной переменной. В нее мы будем считывать числа из файла для определения, являются ли эти числа положительными или отрицательными.

Строка №5. Переменную «k» будем использовать для хранения количества положительных чисел.

Строка №8. Связываем файловую переменную «f» с файлом «chislo.dat», хранящемся на жестком диске «С» в директории «FPC\2.2.2\bin\i386-win32\Programs».

Строка №9. Открываем этот текстовый файл для чтения.

Строка №10. Обнуляем переменную для подсчета количества положительных чисел.

Строка №11. Указываем условие. Пока нет конца файла, должны выполняться действия в строках №13–№14.

Строка №13. Читаем из файла число и записываем его в буферную переменную «a».

Строка №14. Проверяем условие. Если значение переменной «a» (т.е. число, считанное из файла) больше 0, тогда увеличиваем переменную «k» на единицу.

Строка №17. Выводим на экран количество положительных чисел.

schitihvanie informacii iz fayjla v celochislennuyu ili vethestvennuyu peremennuyu.

schitihvanie informacii iz fayjla v celochislennuyu ili vethestvennuyu peremennuyu..


Предыдущая статья : Файлы в Паскаль (часть 2).

Оглавление : Уроки Паскаль. Файлы.

Следующая статья : Текстовые файлы.


Комментарии  

 
0 # Куша 23.10.2012 22:23
я маю файл *.txt

2 2,2
4 -4,47843
6 23,75751
8 26,16057
10 53,19498
12 169,1425
14 237,6297
16 420,2621
18 587,8
20 841

как мне их считать, что било

a=2 b=2,2
a=4 b=-4,47843
a=6 b=23,75751
a=8 b=26,16057
a=10 b=53,19498
a=12 b=169,1425
a=14 b=237,6297
a=16 b=420,2621
a=18 b=587,8
a=20 b=841

ну как то так!...что кождому "а" отводился "b"

???
Ответить
 
 
+1 # Ростик 29.01.2013 14:53
не работает пишет неверный числовой формат при вводе
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальФайлы в Паскаль