Записать в файл g наибольшее значение первых пяти компонент файла f (перевести с Паскаля)

@Illadrion · Регистрация: 05.12.2011

Студворк — интернет-сервис помощи студентам

Переведите пожалуйста следующий код в C#

Условие программы:
Дан файл f, компоненты которого являются целыми числами. Записать в файл g наибольшее значение первых пяти компонент файла f, затем - следующих пяти компонент и т.д. Если в последней группе окажется менее пяти компонент, то последняя компонента файла g должна быть равна наибольшей из компонент файла f, образующих последнюю (неполную) группу

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
var f,g:file of integer;
    a,i,j,n,mx:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
for i:=1 to 430 do
 begin
  a:=random(1000);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
close(f);
writeln;
write('Нажмите Enter');
readln;
clrscr;
reset(f);
n:=filesize(f) div 100;{количество полных сотен}
for i:=0 to n-1 do
 begin
  j:=100*i;
  seek(f,j);
  read(f,mx);
  while(j<100*i+99)and(j<filesize(f)-1)do{выбираем макс. из каждой сотни}
   begin
    j:=j+1;
    seek(f,j);
    read(f,a);
    if a>mx then mx:=a;
   end;
  write(g,mx);
 end;
if filesize(f)>100*n then{последние}
 begin
  seek(f,100*n);
  read(f,mx);
  for i:=100*n to filesize(f)-1 do
   begin
    seek(f,i);
    read(f,a);
    if a>mx then mx:=a;
   end;
  write(g,mx);
 end;
reset(g);
writeln('Содержание файла максимумов:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a:4);
 end;
close(g);
readln
end.

@freeba · 18.05.2012, 13:27

C#
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
51
52
using System;
using System.IO;
using System.Text;
 
namespace ShaitanF
{
    using c = Console;
    class Program
    {
        const int COUNT_FILTER_ELEMENT = 5;
        public static void Main(string[] args)
        {
            StreamWriter FileF = new StreamWriter("FileF");
            StreamWriter FileG = new StreamWriter("FileG");
            Random rnd = new Random(); StringBuilder OutputBuilder = new StringBuilder();
            
            for (int i = 0; i < 10000; i++) {
                OutputBuilder.Append(rnd.Next(-1000, 1000));
                OutputBuilder.Append(' ');
            }
            
            FileF.Write(OutputBuilder.ToString());
            c.WriteLine(OutputBuilder.ToString() + "\n");
            FileF.Close();
            OutputBuilder.Clear();
            
            if (!File.Exists("FileF")) {c.WriteLine("Ошибка..."); return;}
            
            StreamReader FileFReader = new StreamReader("FileF");
            string[] SplitFileF = FileFReader.ReadToEnd().Split(new char[1]{' '});
            
            for (int i = 0; i < SplitFileF.Length-1; i+=COUNT_FILTER_ELEMENT) {
                int max = int.MinValue;
                for (int t = i; t < i+COUNT_FILTER_ELEMENT; t++) {
                    if (t>i)break;
                    int tmp = int.Parse(SplitFileF[t]);
                    if (max < tmp) max = tmp;
                }
                OutputBuilder.Append(max);
                OutputBuilder.Append(' ');
            }
            FileG.Write(OutputBuilder.ToString());
            c.WriteLine(OutputBuilder.ToString());
            
            FileFReader.Close();
            FileG.Close();
            
            Console.Write("Press any key to continue . . . ");
            Console.ReadKey(true);
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

Записать в файл g наибольшее значение первых пяти компонент файла f (перевести с Паскаля)

Решение