Чтение чисел из файла, операции с ними и запись результата в файл.

Bedrock · 29.11.2013, 13:03

Как это сделать? В чем моя ошибка?
Немного экспериментов:

Код:

program 001;
var
inp, outp: text;
s, t, r: integer;
begin
assign (inp, 'c:\in.txt');
assign (outp, 'c:\out.txt');
reset (inp);
rewrite (outp);
read (inp, s, t);
if t>s then r:=t-s;
if t<s then r:=(t+12)-s;
write (outp, r);
close (inp);
close (outp);
end.

Скажу сразу - поиск не помог..... А тема вроде для начинающих (типа меня

)

Пример содержимого исходного файла

:

Цитата:

10 12

Serega_490101 · 29.11.2013, 14:45

Bedrock, имя программы должно начинаться с буквы, а не цифры
Если t=s, от значение r не задается, так и должно быть?

Bedrock · 29.11.2013, 15:08

Цитата:

Сообщение от Serega_490101

Если t=s, от значение r не задается, так и должно быть?

Да. Задачка "Будильник". Тренируюсь. Первое число в файле - час на 12-часовом циферблате обычных часов, в который человек лег спать. Второе число - час, на который он завел будильник с тем же циферблатом. Выводиться должно число часов, которые человек проспит.
Т.е. если в input числа 10 и 12, то в output - цифра 2 (лег в 10, завел на 12, проспал 2 часа).
Или же, если входные числа 11 и 9, то выходит 10.

Serega_490101 · 29.11.2013, 15:15

название программы должно начинаться с буквы, например так:

Цитата:

program q001;

т.к. человек вряд-ли будет спать 0 часов, то можно немножко изменить код программы, уменьшив число условий до одного:

Цитата:

if t<s then r:=(t+12)-s
else r:=t-s;

---------- Добавлено в 15:15 ---------- Предыдущее сообщение было написано в 15:15 ----------

такой вариант программы должен работать

Bedrock · 29.11.2013, 15:24

Цитата:

Сообщение от Serega_490101

название программы должно начинаться с буквы, например так:

т.к. человек вряд-ли будет спать 0 часов, то можно немножко изменить код программы, уменьшив число условий до одного:

---------- Добавлено в 15:15 ---------- Предыдущее сообщение было написано в 15:15 ----------

такой вариант программы должен работать

А как, собственно, произвести само чтение из файла? Что делать с exitcode 106?

Serega_490101 · 29.11.2013, 15:29

Цитата:

read (inp, s, t);

а это разве не чтение из файла?

у меня этот код работает

Bedrock · 29.11.2013, 15:31

Цитата:

Сообщение от Serega_490101

а это разве не чтение из файла?

у меня этот код работает

У меня free паскаль. Может, дело в нем?

Serega_490101 · 29.11.2013, 15:39

возможно, у меня турбо паскаль 7
сейчас залью

---------- Добавлено в 15:39 ---------- Предыдущее сообщение было написано в 15:36 ----------

вот ссылка
http://rghost.ru/download/50520474/a...o_Pascal_7.rar

Bedrock · 29.11.2013, 15:50

Цитата:

Сообщение от Serega_490101

возможно, у меня турбо паскаль 7
сейчас залью

---------- Добавлено в 15:39 ---------- Предыдущее сообщение было написано в 15:36 ----------

вот ссылка
http://rghost.ru/download/50520474/a...o_Pascal_7.rar

Спасибо, но я что-то не могу разобраться, можно ли в ТР код вставлять копипастом?

Serega_490101 · 29.11.2013, 15:55

Цитата:

можно ли в ТР код вставлять копипастом?

нет, программа будильник там уже есть (1.pas)
а вообще можно открыть файл типа .pas в блокноте и вставить там
у TP7 свой буфер обмена и свои комбинации клавиш (см. пункт меню edit)

---------- Добавлено в 15:55 ---------- Предыдущее сообщение было написано в 15:53 ----------

кстати в большинстве колледжей, техникумов, универов и т.п. программирование начинают проходить именно на TP7

Bedrock · 29.11.2013, 16:01

Цитата:

Сообщение от Serega_490101

нет, программа будильник там уже есть (1.pas)
а вообще можно открыть файл типа .pas в блокноте и вставить там
у TP7 свой буфер обмена и свои комбинации клавиш (см. пункт меню edit)

---------- Добавлено в 15:55 ---------- Предыдущее сообщение было написано в 15:53 ----------

кстати в большинстве колледжей, техникумов, универов и т.п. программирование начинают проходить именно на TP7

Спасибо, знаю не понаслышке

Немного сглупил...
Но ошибка все равно та же

---------- Добавлено в 16:01 ---------- Предыдущее сообщение было написано в 15:59 ----------

Invalid numeric format, и всё тут..... Не хочет подчиняться((

Serega_490101 · 29.11.2013, 16:10

Цитата:

Но ошибка все равно та же

странно у меня все работает без ошибок
код программы такой?

Цитата:

program q001;
var
inp, outp: text;
s, t, r: integer;
begin
assign (inp, 'c:\in.txt');
assign (outp, 'c:\out.txt');
reset (inp);
rewrite (outp);
read (inp, s, t);
if t<s then r:=(t+12)-s
else r:=t-s;
write (outp, r);
close (inp);
close (outp);
end.

файл in.txt точно есть и в нем написано

Цитата:

10 12

(пробел есть?)
какая кодировка файла in.txt

Bedrock · 29.11.2013, 16:15

Цитата:

Сообщение от Serega_490101

странно у меня все работает без ошибок
код программы такой?

файл in.txt точно есть и в нем написано (пробел есть?)
какая кодировка файла in.txt

Код такой, файл есть, кодировка utf-8. С кодировками я тоже эксперементировал - 0 эмоций....
Уже не знаю, на что думать. Может, ОС?

WinXP, если что...

Serega_490101 · 29.11.2013, 16:16

кодировка должна быть ANSI

Bedrock · 29.11.2013, 16:20

Цитата:

Сообщение от Serega_490101

кодировка должна быть ANSI

Ёпрст.... ANSI у меня была по умолчанию. Видимо, сбилась. А я даже и не задумался

Спасибо

Два часа убил

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ученные из Гарварда произвели запись и чтение цифровой информации, на молекулу ДНК.	nenavistnyi	Компьютерные новости	9	24.08.2012 22:01
Shift справа иногда не дает результата при совместном нажатии с буквами и цифрами???	find3000	Железо	2	06.01.2012 18:24
Много проблем (запись на dvd диск, флешку, чтение съёмного жд)	Alex7	Неисправности, настройка	15	06.10.2011 13:29
Подскажите,как можно снять зашифровку с файла(до этого файл был на др ОС)	Антон89	Windows XP	4	13.11.2010 00:19
Ошибка копирования файла: Исходный файл поврежден.	Assassin4eg	Windows XP	2	16.04.2009 20:42

29.11.2013, 14:45	#2 (ссылка)
Serega_490101 Стажёр Регистрация: 04.01.2013 Сообщений: 490 Репутация: 57	Bedrock, имя программы должно начинаться с буквы, а не цифры Если t=s, от значение r не задается, так и должно быть?

29.11.2013, 15:39	#8 (ссылка)
Serega_490101 Стажёр Регистрация: 04.01.2013 Сообщений: 490 Репутация: 57	возможно, у меня турбо паскаль 7 сейчас залью ---------- Добавлено в 15:39 ---------- Предыдущее сообщение было написано в 15:36 ---------- вот ссылка http://rghost.ru/download/50520474/a...o_Pascal_7.rar

29.11.2013, 16:16	#14 (ссылка)
Serega_490101 Стажёр Регистрация: 04.01.2013 Сообщений: 490 Репутация: 57	кодировка должна быть ANSI

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Ads