С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ValO
0 / 0 / 0
Регистрация: 12.06.2017
Сообщений: 2
1

Найти количество максимальных элементов в каждой строке файла и записать эти значения в другой файл

12.06.2017, 12:54. Просмотров 727. Ответов 2
Метки нет (Все метки)

Дан текстовый файл, в который записаны натуральные числа. Найти количество максимальных элементов в каждой строке и записать эти значения в другой файл.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2017, 12:54
Ответы с готовыми решениями:

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

Найти количество положительных элементов в каждой строки матрицы и записать их значения в одномерный массив В
const n=5;m=7; var A:array of integer; B: array of real; ...

Найти количество положительных элементов в каждой строки матрицы и записать их значения в одномерный массив В
Сформировать двумерный массив А размером 5*7 с помощью генератора случайных...

Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей
Помогите, пожалуйста. 1) Как вернуть значения n к 0 после подсчета количества...

Записать в конец каждой строки текстового файла количество слов в этой строке
Начинаю писать программы в Паскале, можете помочь с этой задачей? "Записать в...

2
Zwelenewskiy
119 / 119 / 105
Регистрация: 09.01.2017
Сообщений: 1,256
Завершенные тесты: 1
12.06.2017, 13:03 2
Лучший ответ Сообщение было отмечено ValO как решение

Решение

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
var
  f, g: text;
 
begin
  
  if FileExists('input.txt')
    then assign(f, 'input.txt')
  else begin
    writeln('Входной файл не существует');
    exit;
  end;
  reset(f);
  assign(g, 'output.txt');
  rewrite(g);
  
  var st := '';
  var a := 0.0;
  var max := -999999999.0;
  while not eof(f) do
  begin
    readln(f, st);
    for var i := 1 to length(st) do
      if st[i] <> ' '
        then a := strtofloat(st[i]);
    if a > max 
    then begin
      max := a;
      write(g, max, ' ');
    end;
  end;
  
  close(g);
  
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26525 / 17814 / 7048
Регистрация: 22.10.2011
Сообщений: 31,357
Записей в блоге: 6
12.06.2017, 13:19 3
Pascal
1
2
3
4
5
6
begin 
  WriteAllLines('g.txt', 
    ReadAllLines('f.txt').Select(s -> s = '' ? '' : s.ToIntegers.GroupBy(v -> v).
      OrderByDescending(v -> v.Key).First.Count.ToString).ToArray
  );
end.
Входной файл:
Код
1 3 4 4 2
3 5 4 5 4 5
6 7 8

9 23 10 22 10 23
, выходной:
Код
2
3
1

2
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2017, 13:19

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

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

Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный
Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок...


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

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

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