дан файл вещественных чисел. найти среднее арифметическое его элементов.
uses crt;
var f:file of real;
n,i:integer;
a,sr:real;
begin
randomize;
assign(f,'chisla');
rewrite(f);
write('Сколько чисел записать в файл n=');
read(n);
for i:=1 to n do
begin
a:=10*random;
write(f,a);
end;
writeln('Содержание исходного файла: ');
reset(f);
sr:=0;
n:=0;
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
n:=n+1;
sr:=sr+a;
end;
writeln;
close(f);
write('Среднее арифметическое=',sr/n:0:2);
end.
Другие языки программирования и технологии
помогите переделать программу на язык C#.
using System;
using System.IO;
namespace q85030524 {
class Program {
static void Main(string[] args) {
Console.Write("сколько чисел записать в файл n? ");
var n = int.Parse(Console.ReadLine());
var bw = new BinaryWriter(new FileStream("chisla", FileMode.Create));
var rnd = new Random();
for (var c = 0; c < n; ++c) bw.Write(rnd.NextDouble() * 10);
bw.Close();
var br = new BinaryReader(new FileStream("chisla", FileMode.Open));
var s = 0.0;
n = 0;
Console.WriteLine("содержимое файла: ");
do {
++n;
var v = br.ReadDouble();
Console.WriteLine(v);
s += v;
} while (br.BaseStream.Position != br.BaseStream.Length);
Console.WriteLine("среднее арифметическое: " + s / n);
Console.ReadKey();
}
}
}
using System.IO;
namespace q85030524 {
class Program {
static void Main(string[] args) {
Console.Write("сколько чисел записать в файл n? ");
var n = int.Parse(Console.ReadLine());
var bw = new BinaryWriter(new FileStream("chisla", FileMode.Create));
var rnd = new Random();
for (var c = 0; c < n; ++c) bw.Write(rnd.NextDouble() * 10);
bw.Close();
var br = new BinaryReader(new FileStream("chisla", FileMode.Open));
var s = 0.0;
n = 0;
Console.WriteLine("содержимое файла: ");
do {
++n;
var v = br.ReadDouble();
Console.WriteLine(v);
s += v;
} while (br.BaseStream.Position != br.BaseStream.Length);
Console.WriteLine("среднее арифметическое: " + s / n);
Console.ReadKey();
}
}
}
Не надо переделывать программу. Напиши новую. Несложно ведь.
using System;
class program
{
public static int Main()
{
Random rnd = new Random;
FileStream file = new FileStream("имя и расположение файла", FileMode.Create);
StreamWriter strw = new StreamWriter(file);
Console.WriteLine("Сколько чисел записать в файл n=");
int n = Convert.ToInt32(Console.ReadLine());
double a;
for(int i = 0; i < n; i++)
{
a = 10 * rnd.NextDouble;
strw.WriteLine(a);
}
strw.Close();
file.Close();
Console.WiteLine("Содержание исходного файла: ");
FileStream file = new FileStream("имя и расположение файла", FileMode.Open);
StreamReader strr = new StreamReader(file);
double sr = 0;
num = strr.ReadLine();
while(num != null)
{
sr += Convert.ToDouble(num);
num = strr.ReadLine();
}
strr.Close();
file.Close();
Console.WriteLine("Среднее арифметическое= {0}", sr / n);
Console.ReadKey();
return 0;
}
}
class program
{
public static int Main()
{
Random rnd = new Random;
FileStream file = new FileStream("имя и расположение файла", FileMode.Create);
StreamWriter strw = new StreamWriter(file);
Console.WriteLine("Сколько чисел записать в файл n=");
int n = Convert.ToInt32(Console.ReadLine());
double a;
for(int i = 0; i < n; i++)
{
a = 10 * rnd.NextDouble;
strw.WriteLine(a);
}
strw.Close();
file.Close();
Console.WiteLine("Содержание исходного файла: ");
FileStream file = new FileStream("имя и расположение файла", FileMode.Open);
StreamReader strr = new StreamReader(file);
double sr = 0;
num = strr.ReadLine();
while(num != null)
{
sr += Convert.ToDouble(num);
num = strr.ReadLine();
}
strr.Close();
file.Close();
Console.WriteLine("Среднее арифметическое= {0}", sr / n);
Console.ReadKey();
return 0;
}
}
Похожие вопросы
- Как создать программу на языке c++
- Как можно написать программу на языке C, которая будет выводить числа от 1 до 1000 без if, switch, do, while, for, goto?
- Как создать неконсольную программу на языке c++
- Помогите переделать программу в Delphi через "Процедуры, функции, модули".
- Нужно очень срочно создать программу. На языке c ++
- Помогите пожалуйста решить на языке C++
- Программа на языке C++, помогите описать :|
- Написать программу на языке C, чтобы в нее вводили число, а она говорила простое оно или нет
- Программа на языке C++
- Помогите написать программу на языке програмирования КУМИР