Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program L2_4_D;
- Uses
- System.SysUtils;
- Type
- TArray = Array of Integer;
- Function SizeFromConsole() : Integer;
- Var
- IsCorrect : Boolean;
- Size : Integer;
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите количество элементов в массиве');
- Try
- Readln(Size);
- Except
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- If (Size < 1) Then
- Begin
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- Until IsCorrect;
- SizeFromConsole := Size;
- End;
- Function ExceptionRead(I : Integer) : Integer;
- Var
- Number : Integer;
- IsCorrect : Boolean;
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите ', (I+1), ' элемент массива: ');
- Try
- Readln(Number);
- Except
- IsCorrect := False;
- Writeln('Неверный тип данных!');
- End;
- Until IsCorrect;
- ExceptionRead := Number;
- End;
- Procedure OutputTaskEssence();
- Begin
- Writeln('Данная программа находит максиимальное количество единиц, идущих подряд в массиве.');
- End;
- Function PathChoice() : String;
- Var
- TextF : TextFile;
- Path : String;
- IsCorrect : Boolean;
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите путь файла: ');
- Try
- Readln(Path);
- AssignFile(TextF, Path);
- Reset(TextF);
- Except
- IsCorrect := False;
- Writeln('Неверный путь файла!');
- End;
- Until IsCorrect;
- Writeln('Файл успешно открыт!');
- PathChoice := Path;
- CloseFile(TextF);
- End;
- Function SizeFromFile(Path : String; var TextF : TextFile) : Integer;
- Var
- Size : Integer;
- IsCorrect : Boolean;
- Begin
- AssignFile(TextF, Path);
- Reset(TextF);
- IsCorrect := True;
- Writeln('Запись количества строк...');
- Try
- Readln(TextF, Size);
- Except
- IsCorrect := False;
- End;
- If ((Size < 1) Or (IsCorrect = False)) Then
- Begin
- Writeln('Ошибка! Неверный ввод размера! Впишите данные с клавиатуры.');
- Size := SizeFromConsole();
- End;
- Writeln('Количество элементов массива: ', Size);
- CloseFile(TextF);
- SizeFromFile := Size;
- End;
- Function ArrayReadFile(Path : String; Size : Integer; var TextF : TextFile; Arr : TArray) : TArray;
- Var
- I : Integer;
- Line : String;
- IsCorrect : Boolean;
- Begin
- AssignFile(TextF, Path);
- Reset(TextF);
- Dec(Size);
- IsCorrect := True;
- Readln(TextF, Line);
- Writeln('Запись матрицы...');
- For I := 0 To Size Do
- Begin
- Try
- Read(TextF, Arr[I])
- Except
- Writeln(' Неверный ввод данных! Введите данные с клавиатуры.');
- Arr[I] := ExceptionRead(I);
- End;
- End;
- CloseFile(TextF);
- ArrayReadFile := Arr;
- End;
- Function ArrayCout(const Arr : TArray) : Integer;
- Begin
- //рассчеты
- ArrayCout := 0;
- End;
- Procedure Output(Result : Integer);
- Var
- TextF : TextFile;
- Path : String;
- IsCorrect : Boolean;
- Begin
- Writeln;
- Writeln('Максимальное количество единиц, идущих подряд: ', Result);
- Repeat
- IsCorrect := True;
- Writeln('Введите путь файла для вывода: ');
- Try
- Readln(Path);
- AssignFile(TextF, Path);
- Reset(TextF);
- Except
- IsCorrect := False;
- Writeln('Неверный путь файла!');
- End;
- Until IsCorrect;
- Append(TextF);
- Writeln(TextF);
- Writeln(TextF, 'Максимальное количество единиц, идущих подряд: ', Result);
- CloseFile(TextF);
- Writeln('Данные записаны в файл.');
- Readln;
- End;
- Function InputFromFile() : TArray;
- Var
- Path : String;
- Size, MaxRes : Integer;
- TextF : TextFile;
- Arr : TArray;
- Begin
- Writeln('При записи данных из файла, учтите, что на первой строке написано количество строк матрицы, а далее через пробел элементы массива');
- Path := PathChoice();
- Size := SizeFromFile(Path, TextF);
- SetLength(Arr, Size);
- Arr := ArrayReadFile(Path, Size, TextF, Arr);
- InputFromFile := Arr;
- End;
- Function ArrayReadConsole(Size : Integer; Arr : TArray) : TArray;
- Var
- IsCorrect : Boolean;
- I, J : Integer;
- Begin
- Dec(Size);
- For I := 0 To Size Do
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите элемент с индексом ', I+1);
- Try
- Readln(Arr[I]);
- Except
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- Until IsCorrect;
- End;
- ArrayReadConsole := Arr;
- End;
- Function InputFromConsole() : TArray ;
- Var
- Size, MaxSum : Integer;
- Arr : TArray;
- Begin
- Size := SizeFromConsole();
- SetLength(Arr, Size);
- Arr := ArrayReadConsole(Size, Arr);
- InputFromConsole := Arr;
- End;
- Function SourceChoice() : TArray;
- Var
- ChoiceNumber : Integer;
- Arr : TArray;
- IsCorrect : Boolean;
- Begin
- Writeln('Выберите, откуда будут вводиться данные:');
- Repeat
- IsCorrect := True;
- Writeln('Введите 0, если с консоли; введите 1, если с файла.');
- Try
- Readln(ChoiceNumber);
- Except
- IsCorrect := False;
- End;
- If ((IsCorrect = False) Or ((ChoiceNumber <> 1) And (ChoiceNumber <> 0))) Then
- Begin
- Writeln('Неверный ввод данных!');
- IsCorrect := False;
- End;
- Until IsCorrect;
- If (ChoiceNumber = 0) Then
- Arr := InputFromConsole()
- Else
- Arr := InputFromFile();
- SourceChoice := Arr;
- End;
- Var
- Arr : TArray;
- MaxRes : Integer;
- Begin
- OutputTaskEssence();
- Arr := SourceChoice();
- MaxRes := ArrayCout(Arr);
- Output(MaxRes);
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement