Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Перестановка строк в двухмерном массиве Дан двухмерный массив из n строк и m столбцов. Переставить строки так, чтобы они располагались следующим образом: первая, двенадцатая, вторая, одиннадцатая, ..., пятая, восьмая, шестая, седьмая.... https://www.cyberforum.ru/ pascal/ thread2249640.html Блок-схему программы Pascal
пожалуйста составьте блок схему программы или подскажите в какой программе это можно сделать program igra; uses crt; var A,B,C,D,E,T,EX,UR:integer; begin EX:=1; while(EX=1) do begin clrscr;
Pascal Как вывести на экран русский текст? https://www.cyberforum.ru/ pascal/ thread2248885.html
program Hello; uses crt; begin clrscr; writeln('привет'); { writeln('hello world'); } readln; end.
Pascal Дерево, обход в ширину Добрый вечер, знатоки. Решил сделать дерево, но вот не могу разобраться с обходом в ширину. Из идей, добавлять элементы в очередь и из нее уже потом выводить, удаляя этот элемент. Но почему-то не... https://www.cyberforum.ru/ pascal/ thread2248704.html
Pascal Ошибка времени выполнения: Входная строка имела неверный формат
Здравствуйте, столкнулся с такой проблемой Задача:Заполнить квадратный массив А (NхN) элементов (N не более 8) числами из входного файла, распечатать, построить новую матрицу В (NхN), в которой...
Pascal Двумерный массив! Может кто помочь с одной задачей? Массив 120 ... 24 12 ... ... ... ... 110 .. 14 2 109 .. 13 1 https://www.cyberforum.ru/ pascal/ thread2248476.html
Pascal Как написать блок-схему в Pascal, которая будет считывать координаты (X,Y,Z) модели, созданная в Компас 3D-V16 Добрый день. Помогите с написанием блок-схемы в Pascale. У меня имеется 3D модель, которая имеет точки. Нужно создать программу, которая мне выдаст координаты этого объекта. Подскажите пожалуйста.... https://www.cyberforum.ru/ pascal/ thread2248462.html Двумерный массив объясните! Pascal
Срочно нужно сдать задание преподу(( Данн массив 111 112 113 114 115 116 117 118 119 120 101 102 91 92 81 82 ... ... 1 2
Pascal Создать программу для перевода из десятичной системы исчисления в восьмеричную https://www.cyberforum.ru/ pascal/ thread2248251.html
Помогите пожалуйста создать программу для перевода из десятичной системы исчисления в восьмеричную (программа для 8 класса)
Pascal Поразрядно-обменная сортировка (линейный и бинарный поиск) https://www.cyberforum.ru/ pascal/ thread2248105.html
Добрейшего времени суток! В данном коде рассматривается поразрядно-обменная сортировка и работать он не хочет. Помогите разобраться в чем проблема. Program Kurs; uses crt; const q=12; {количество...
Pascal Объяснить код
Объясните код, пожалуйста)const fName = 'tree.dat'; procedure createFile; begin randomize; var f : Text; Rewrite(f, fName); for var i := 1 to 1000 do WriteLn(f, Random(-5000,...
Pascal Удалить все слова, состоящие только из букв последнего слова Помогите пожалуйста решить задачку: Дана строка символов. Разделителями слов в строке являются: Пробелы, Запятые, Точки, Двоеточия, заданные в виде множества. Удалить все слова, состоящие только... https://www.cyberforum.ru/ pascal/ thread2247880.html
Эксперт Pascal/Delphi
6805 / 4564 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
20.05.2018, 18:42 0

Сформировать типизированный файл, содержащие действительные числа. Вычислить среднее арифметическое этих чисел - Pascal - Ответ 12406856

20.05.2018, 18:42. Показов 710. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const
  n = 10;
 
var
  f: file of real;
  i: integer;
  x, sr: real;
 
begin
  assign(f, 'numbers.dat');
  rewrite(f);
  for i := 1 to n do
    write(f, -n div 2 + random * n);
  close(f);
  reset(f);
  sr := 0;
  while not eof(f) do
  begin
    read(f, x);
    sr := sr + x;
  end;
  close(f);
  writeln('Среднее арифметическое = ', sr / n:0:4)
end.


Вернуться к обсуждению:
Сформировать типизированный файл, содержащие действительные числа. Вычислить среднее арифметическое этих чисел Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2018, 18:42
Готовые ответы и решения:

Найти среднее арифметическое этих чисел и среднее геометрическое их модулей
Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их...

Дано три целых числа, вычислить среднее арифметическое чисел используя функцию
Добрый день. Помогите пожалуйста написать программу! Дано три целых числа, вычислить среднее...

Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом
Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым...

Сформировать файл из модулей целых чисел, найти среднее арифметическое значение компонентов с четными номерами
Сформировать файл из модулей целых чисел, найти среднее арифметическое значение компонентов...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2018, 18:42
Помогаю со студенческими работами здесь

Вычислить среднее арифметическое чисел из файла и запись всех чисел меньших него в файл B.txt
Напишите программу, в которой происходит чтение целых чисел из файла A.txt (произведите проверку на...

Запрашивая у пользователя произвольные числа,пока не будет введен 0, вычислить сумму этих чисел и их среднее арифметическое
Запрашивая у пользователя произвольные числа,пока не будет введен 0, вычислив сумму этих чисел и их...

Дан типизированный файл целых чисел. Найти среднее арифметическое
14.Дан типизированный файл целых чисел chisla.dat. Найти среднее арифметическое данных чисел и...

Файл целых чисел. Найти среднее арифметическое и сумму этих чисел
В файл целых чисел записаны 10 случайных целых чисел. Просмотреть содержимое файла на экране. Найти...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru