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

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

Использование вложенного оператора If.

Условные операторы в Pascal можно вкладывать друг в друга. Для этого используется вложенный оператор IF. Рассмотрим это на примере программы, которая будет считать количество корней квадратного уравнения.

Процедуры Dec и Inc в Pascal.

При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение, а процедура Inc увеличивает число на определенное значение.

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

Тип данных Boolean.

Тип BOOLEAN (булевский, логический). Логический тип в языке Паскаль задается как перечисляемый тип, содержащий всего два значения, которые имеют идентификаторы FALSE (ложь) и TRUE (истина).

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

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

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

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

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

   ГлавнаяПаскальФайлы в ПаскальСчитывание информации из файла в переменную символьного типа.