Помощь - Поиск - Пользователи - Календарь
Полная версия: плохо читает с файла
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
maksimla
задачу решите пожалуйста .
сделаете программу
если выстрелить N раз. если попадет премия 2 дополнительных патрона. в файле tiras.txt в первой строчке написана число N. В других N строчках вписан ноль (0) если непонял, а если попал (1). если выстрел был удачный в этой же строчке о дополнительных точности выстрела.
пример семь выстрелов удачных
5
0
1 0 0
1 1 0 0 0
0
1 0 1 1 1 0 0 0 0
напишите программу которая в фаил taikyk.txt написала скока выстрелов удачных.
в программе нельзя применять eoln и eof функций вместо их пишите циклы.

program tiras;
var n,
b,a, i,c,d,m,e,o: integer;
pradDuom,
rezult: text;
begin
assign (pradDuom, 'tiras.TXT');
assign (rezult, 'taikyk.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n);
for i := 1 to n do
begin
read (pradDuom, a);
writeln(a);
readln;
b := b + a;
end;
writeln (rezult, b);
close (pradDuom);
close (rezult)
end.
andriano
Варианта 2:
1. Читаешь символьную строку целиком, после чего ее разбираешь (оптимально по скорости выполнения).
2. После чтения числа из файла проверяешь его и при необходимости дочитываешь из этой же строки следующие числа (короче текст программы).
maksimla
а как это сделать и где можна о этом почитать
Ozzя

var
f: text;
s: string;
...
while not eof(f) do
begin
...
ReadLn(f,s);
...
end;
maksimla
Цитата(Ozzя @ 18.02.2008 6:49) *


var
f: text;
s: string;
...
while not eof(f) do
begin
...
ReadLn(f,s);
...
end;


ты хоть читал что написал я вот что нильзя в программе нельзя применять eoln и eof функций вместо их пишите циклы.
volvo
Цитата
а как это сделать и где можна о этом почитать
Чего "как сделать"? Прочесть первое число в файле, и потом в цикле ровно столько же раз прочесть из файла строку, и посчитать, сколько раз в этих строках встречается символ '1'? В чем проблема вообще?
maksimla
но я и в цикл зделал все но толко первую цифру читает в цикле и все
volvo
Цитата
толко первую цифру читает в цикле и все
Ты читаешь в цикле числа, а надо читать строки. "Чувствуешь разницу?" (С)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.