Использование program, begin…end, write, readln, Uses Crt, Clrscr.

В этом уроке мы напишем самую простую программу, состоящую всего из пяти строк. Эта программа будет выводить сообщение на экран. Для написания программы нам необходимо знать как работают операторы Write, Readln, а также понять для чего нужны ...

Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

GotoXY в Pascal.

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

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

Сортировка двумерного массива.

Пример 36. Задан двумерный массив X из 6 строк и 4 столбцов. Упорядочить массив X по возрастанию элементов дробной части столбца с номером N. Отсортированный массив X вывести на экран монитора.

Программирование данных.

Любые данные, то есть константы, переменные, выражения, значения функций, характеризуются своими типами. Тип определяет множество допустимых значений, которые может иметь программируемый объект, ...

Считывание информации из файла в целочисленную или вещественную переменную аналогично описанному в предыдущем уроке способу. Например, если в файле записаны числа: 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
не работает пишет неверный числовой формат при вводе
 
   ГлавнаяПаскальФайлы в ПаскальСчитывание информации из файла в переменную символьного типа.