Перевод числа из десятичной системы счисления в шестнадцатеричную.

Напишем программу, которая вводит с клавиатуры целое число в диапазоне от 0 до 15 и преобразует его к шестнадцатеричной системе счисления. Напомню, что в шестнадцатеричной системе счисления числа в диапазоне от 0 до 9 соответствуют таким же числам в ...

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

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

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

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

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

Тип данных 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
не работает пишет неверный числовой формат при вводе
Ответить
 
 
0 # О 15.11.2021 15:55
:lol:
Ответить
 
 
+1 # НеРаботает 17.11.2021 11:07
Если в файле после последнего числа есть пробел или пустая строка или несколько пробелов или пустых строк, то выдаст ошибку
Ответить
 
 
0 # Huyimya 15.12.2022 02:30
:lol:
Ответить
 
 
0 # Huyimya 15.12.2022 02:30
:-)
Ответить
 

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

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