Записать в конец файла среднее арифметическое его чисел - Turbo Pascal

  1. Дан текстовый файл, с последовательностью вещественных чисел. Записать в конец фала среднее арифметическоеДобавлено через 1 час 9 минут помогите решить


textual

Код:

uses crt;
var f:text;
    nf:string;
    a,s:real;
    k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);{вводим без расширения, например input}
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
s:=0;
k:=0;
while not eof(f) do
 begin
  read(f,a);
  k:=k+1;
  s:=s+a
 end;
close(f);
s:=s/k;
append(f);
writeln(f);
write(f,'Sr.arifm.=',s:0:2);
close(f);
write('Результат дописан в файл ',nf);
readln
end.


Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Составить программу для вычисления значения функции: y=sh(x) с помощью разложения функции в степенной ряд Помогите пожалуйста решить, пожалуйста!!

  1. Подскажите, наведите на путь, я реально не могу сообразить как она должна работать!! Танк в компьютерной игре может двигаться в одном из четырех направлений, обозначим их числами: 1 — север, 2 — восток, 3 — юг, 4 — запад. Направление движения изменяется тремя командами: 1 — поворот направо, 2 — поворот налево, 3 — поворот кругом. Пользователь вводит начальное направление движения, а затем ряд команд. Программа должна определять и печатать всякий раз новое направление. Выход из цикла — команда 0.

  1. Помогите пожалуйста!!! Срочно, умоляю молю Составить программу для вычисления значения функции :y=sin(x) с помощью разложения функции в степенной ряд

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.