 плохо читает с файла, подскажите как чтобы со всей строки читала |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| maksimla |
 17.02.2008 11:39
Сообщение
#1
|
 Знаток  Группа: Пользователи Сообщений: 324 Пол: Мужской Реальное имя: maksim Репутация:  1   |
задачу решите пожалуйста .
сделаете программу если выстрелить 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.
Сообщение отредактировано: maksimla - 17.02.2008 12:27 -------------------- Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
|
   |
 
|
| andriano |
17.02.2008 14:57
Сообщение
#2
|
|
Гуру Группа: Пользователи Сообщений: 1 168 Пол: Мужской Реальное имя: Сергей Андрианов Репутация: 28 |
Варианта 2:
1. Читаешь символьную строку целиком, после чего ее разбираешь (оптимально по скорости выполнения). 2. После чтения числа из файла проверяешь его и при необходимости дочитываешь из этой же строки следующие числа (короче текст программы). |
|
|
|
| maksimla |
17.02.2008 16:05
Сообщение
#3
|
|
Знаток Группа: Пользователи Сообщений: 324 Пол: Мужской Реальное имя: maksim Репутация: 1 |
а как это сделать и где можна о этом почитать
Сообщение отредактировано: maksimla - 17.02.2008 17:13 -------------------- Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
|
|
|
|
| Ozzя |
18.02.2008 7:49
Сообщение
#4
|
 Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
var
f: text;
s: string;
...
while not eof(f) do
begin
...
ReadLn(f,s);
...
end;
|
|
|
|
| maksimla |
18.02.2008 9:40
Сообщение
#5
|
|
Знаток Группа: Пользователи Сообщений: 324 Пол: Мужской Реальное имя: maksim Репутация: 1 |
Цитата(Ozzя @ 18.02.2008 6:49) 
var
f: text;
s: string;
...
while not eof(f) do
begin
...
ReadLn(f,s);
...
end;
ты хоть читал что написал я вот что нильзя в программе нельзя применять eoln и eof функций вместо их пишите циклы. -------------------- Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
|
|
|
|
| volvo |
18.02.2008 11:31
Сообщение
#6
|
|
Гость |
Цитата а как это сделать и где можна о этом почитать Чего "как сделать"? Прочесть первое число в файле, и потом в цикле ровно столько же раз прочесть из файла строку, и посчитать, сколько раз в этих строках встречается символ '1'? В чем проблема вообще?Сообщение отредактировано: volvo - 18.02.2008 11:31 |
|
|
|
| maksimla |
19.02.2008 9:42
Сообщение
#7
|
|
Знаток Группа: Пользователи Сообщений: 324 Пол: Мужской Реальное имя: maksim Репутация: 1 |
но я и в цикл зделал все но толко первую цифру читает в цикле и все
-------------------- Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
|
|
|
|
| volvo |
19.02.2008 9:56
Сообщение
#8
|
|
Гость |
Цитата толко первую цифру читает в цикле и все Ты читаешь в цикле числа, а надо читать строки. "Чувствуешь разницу?" (С) |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 17.07.2025 8:02 |