Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
LewiK
0 / 0 / 0
Регистрация: 01.04.2018
Сообщений: 9
1

Ввести с клавиатуры файл F

14.04.2018, 04:15. Просмотров 697. Ответов 2
Метки нет (Все метки)

Ввести с клавиатуры файл F. Определить среднее арифметическое модулей отрицательных компонент файла и все компоненты, меньшие среднего арифметического, уменьшить в два раза. Поиск среднего оформить в виде подпрограммы-процедуры. Файл распечатать (как до, так и после преобразования).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2018, 04:15
Ответы с готовыми решениями:

Ввести с клавиатуры квадратную матрицу X(M,M) (M<=10).Определить в ней максимальные элементы каждой строке и записать вычесленные значения в файл F1.
Ввести с клавиатуры квадратную матрицу X(M,M) (M&lt;=10).Определить в ней максимальные элементы каждой...

с клавиатуры ввести число
const a:array of longint=(3,5,7,9,11,13,17,19,23,29,31); var st: set of byte; l,j,i,n,m,p:...

Ввести границы массива с клавиатуры
Добрый вечер! Как сделать , что бы пользователь мог ввести максимальное количество элементов,...

Вычислить 2n. Значение n ввести с клавиатуры
Вычислить 2n . Значение n ввести с клавиатуры.

с клавиатуры ввести натуральное число K>1
с клавиатуры ввести натуральное число K&gt;1 и вещественные компоненты трёх симметричных матриц A k*k...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4042 / 2962 / 3701
Регистрация: 05.06.2014
Сообщений: 14,675
14.04.2018, 18:52 2
Лучший ответ Сообщение было отмечено LewiK как решение

Решение

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
var
  f: file of real;
  k, i, n: integer;
  a, s: real;
 
begin
  assign(f, 'f.dat');
  rewrite(f);
  n := 10;
  for i := 1 to n do
  begin
    readln(a);
    write(f, a);
  end;  
  s := 0;
  k := 0;
  reset(f);
  while not eof(f) do
  begin
    read(f, a);
    write(a:8:3);
    if a < 0 then
    begin
      s := s + abs(a);
      k := k + 1;
    end;
  end;  
  close(f);
  writeln;
  if k <> 0 then
  begin
    s := s / k;
    writeln('Среднеe: ', s);
  end;
  i := 0;
  reset(f);
  while not eof(f) do
  begin
    seek(f, i);
    read(f, a);
    if a < s then
    begin
      seek(f, i);
      a := a / 2;
      write(f, a);
    end;
    inc(i);
    write(a:8:3);
  end;    
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4072 / 2683 / 2142
Регистрация: 22.11.2013
Сообщений: 7,513
14.04.2018, 20:52 3
Поиск среднего оформить в виде подпрограммы-процедуры.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
  TFile = file of Real;
procedure GetAvg(var f: TFile; var avg: Real; var cnt: Integer);
var t: Real;
begin
  avg:=0; cnt:=0;
  while not EoF(f) do begin
    Read(f,t);
    if t<0 then begin
      Inc(cnt); avg:=avg-t;
    end;
  end;
  if cnt>0 then avg:=avg/cnt;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2018, 20:52

Ввести с клавиатуры информацию о классе учеников
Задача: Ввести с клавиатуры информацию щ классе учеников. Исходными данными являются: порядковый...

Ввести с клавиатуры размер одномерного массива
Ввести с клавиатуры размер одномерного массива и его элементы. Распечатать массив в строчку. Можно...

С клавиатуры ввести вектор действительных чисел
Здравствуйте. я программирования не очень понимаю, поэтому кто чем сможет помогите с вот этими...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru