Файлы(Пасккаль)

[ТРОЯН=)]

Всем привет,подскажите плиз как находить среднее арихметическое в файле-всех чисел кроме 1 и последнего!!


И ещё вопрос почему прогрмма выдаёт ошибу:file not open for output на writeln????Я уж и так и сяк(((((

program sss;
uses crt;
var x:integer;
    str:string;
procedure center(s:string);
begin
clrscr;
     if length(s) mod 2=0 then
     x:=40-length(s) div 2
     else x:=(40-length(s) div 2)-1;
     gotoxy(x,1);
     write(s);{ Вот тут он выдаёт ошибку  }
end;
begin
clrscr;
write('Введите текст:');readln(str);
center(str);
readln;
end.

[Sazary]

И ещё вопрос почему прогрмма выдаёт ошибу:file not open for output на writeln????Я уж и так и сяк(((((

У меня никакой ошибки. Да и файлов у вас тут нет.

Всем привет,подскажите плиз как находить среднее арихметическое в файле-всех чисел кроме 1 и последнего!!

Файл типизированный или нет?
Читаете первое число.
Потом в цикле читаете остальные до конца. Если файл занончился, отнимаем последнее число. Ну а дальше делим на количество.

[ТРОЯН=)]

Сори код перепутал,плин и найти его теперь немогу вообщем надо выровнять текст в файле по центру и по правому боку,делак как там но с файлом выводило ошибку- хз чё делать((

[Sazary]

Ну раз компилятор пишет, что файл не открыт, значит он действительно не открыт. Там и надо искать.

[ТРОЯН=)]

Читаете первое число.
Потом в цикле читаете остальные до конца. Если файл занончился, отнимаем последнее число. Ну а дальше делим на количество.

1.Как отнять последний?
2.Сред.арих. каждого с предыдущим и последующим элементом.
Извеняюсь что сразу не написал

[Sazary]

1.Как отнять последний?

Оператором "-".
Вы из файла куда число считываете? В переменную. А потом уже прибавляете его к сумме. Переменная-то никуда не девается.

2.Сред.арих. каждого с предыдущим и последующим элементом.

Вообще не понял.

[ТРОЯН=)]

Вообще не понял.

)))))))В задаче где надо найти среднее фрихметическое надо не сред.арих. всех элементов, а каждого элемента с последующим и предыдущим кроме 1 и последнего))))))

[Gen*]

думаю он хотел написать СРЕДНЕЕ АРИФМИТИЧЕСКОЕ)

[Sazary]

В задаче где надо найти среднее фрихметическое надо не сред.арих. всех элементов, а каждого элемента с последующим и предыдущим кроме 1 и последнего))))))

Аааа! Вот оно что.. Ну так бы сразу и написали )
Вот так это можно:

uses crt;
var
f : text;
a,b,c : integer;
s : real;

begin
clrscr;
assign(f,'test.txt');
reset(f);
s := 0;
read(f,b,c);
while not eof(f) do
 begin
 a := b;
 b := c;
 read(f,c);
 s := (a+b+c)/3;
 writeln(a:4,b:4,c:4,' s = ',s:5:2);
 end;

close(f);
readln;
end.

Сообщение от Gen*

думаю он хотел написать СРЕДНЕЕ АРИФМИТИЧЕСКОЕ)

Как раз это я понял

[ТРОЯН=)]

ОООО,вообще спасибо огромное , думал эту задачу я никогда не сделаю и не где не найду))))))