Консультация № 110814
24.11.2007, 19:19
0.00 руб.
0 1 1
Здравствуйте товарищи!
Помогите в следующем вопросе:
Как можно из внешнего файла с данными, вычислить средний балл группы, если проставлен по каждому общий балл?

Обсуждение

Неизвестный
29.11.2007, 12:27
общий
это ответ
Здравствуйте, Denis Ivanov!
Самый простой, без изысков, вариант такой, как в приложении. Там же пример моего файла со сведениями. А прикрепленный - все исходники
Идея в том, что удалять все до пробела

Приложение:
<font color=blue>var f: text; mid: Real; s: String; i, cur, count, code: Integer;BEGIN WriteLn; Assign(f, ‘110814.dat‘); Reset(f); mid:=0; count:=0; {Не проверяю на существование} while NOT eof(f) do begin readLn(f, S); {Считаю, что сначала идет информация, а потом, через пробел, оценка} if POS(‘ ‘, S) <> 0 then begin while (POS(‘ ‘,S) <> 0) and (length(S) > 0) do begin delete(S, 1, pos(‘ ‘,S)); val(S, i, code); if code = 0 then begin mid:=mid + i; count:=count + 1; break end end; end; end; if count > 0 then WriteLn(‘Средняя оценка =‘, mid/count:10:4);END.</font>--Файл данных<font color=green>asdgjfhjk 4adsasdhdah 5gggg 3ДляПроверки НетОценки2 НеДолженСчитать_НеверноеРасположение</font>
Форма ответа