|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2007, 14:30 | #1 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
Вопрос по паскалю
Скажите пожалуйста как можно подщитать суму всех чисел записаных в файле через пропуск а потом найти среднее арифметичное етих чисел
|
30.10.2007, 14:40 | #2 |
форвард
Форумчанин
Регистрация: 03.08.2007
Сообщений: 130
|
в файле дано сколько чисел будет или произвольно и вообще то вопрос не по паскалю а задача на нем, разве нет ?
dela ne v dengax a v yego kolichestve
|
30.10.2007, 14:54 | #3 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
30.10.2007, 15:14 | #4 |
Форумчанин
Регистрация: 24.10.2007
Сообщений: 254
|
var i,sum,kol:integer;S,S1,tek:string;s red:real;data:textfile;
begin AssignFile(data,'C:\....txt'); reset(data); i:=1; while not SeekEof(data) do begin Readln(data,S1); S:=S+' '+S1; end; Readln(data,S1); S:=S+' '+S1; closefile(data); tek:=''; sum:=0; kol:=0; for i:=1 to length(S) do begin if S[i]=' ' then begin if tek<>'' then begin sum:=sum+strtoint(tek); kol:=kol+1; tek:=''; end; end else tek:=tek+S[i]; end; sred:=sum/kol; kod na delphi |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
по паскалю | евгения, | Помощь студентам | 22 | 18.02.2011 13:44 |
Вопрос по Паскалю | Mister Been | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 31.05.2008 18:48 |
Задачка по Паскалю | Vanet | Помощь студентам | 2 | 03.10.2007 12:08 |
По Паскалю! | nur | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 10.05.2007 06:22 |
Задачка по Паскалю... | oleeg | Помощь студентам | 13 | 11.02.2007 00:05 |