COBOL To Vala Converter

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 User-Input PIC 9(5).
01 Factorial-Result PIC 9(20) VALUE 1.
01 Counter PIC 9(5) VALUE 1.
01 Continue PIC X VALUE ‘Y’.

PROCEDURE DIVISION.
Main-Procedure.
DISPLAY “Enter a positive integer: “.
ACCEPT User-Input.

IF User-Input < 0 THEN DISPLAY "Error: Please enter a positive integer." STOP RUN. PERFORM Calculate-Factorial. DISPLAY "The factorial of " User-Input " is " Factorial-Result. STOP RUN. Calculate-Factorial. PERFORM VARYING Counter FROM 1 BY 1 UNTIL Counter > User-Input
MULTIPLY Factorial-Result BY Counter GIVING Factorial-Result
END-PERFORM.

END PROGRAM FactorialCalculator.

public static void main(string[] args) {
int userInput;
long factorialResult = 1;
int counter = 1;
string continuePrompt = “Y”;

stdout.printf(“Enter a positive integer: “);
userInput = stdin.read_uint();

if (userInput < 0) { stdout.printf("Error: Please enter a positive integer.n"); return; } // Calculate Factorial while (counter <= userInput) { factorialResult *= counter; counter++; } stdout.printf("The factorial of %d is %ldn", userInput, factorialResult); } }

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Employee-Record.
05 Employee-Name PIC A(30).
05 Employee-Salary PIC 9(5)V99.
01 Employees PIC 99 VALUE 0.
01 Total-Salary PIC 9(7)V99 VALUE 0.
01 Average-Salary PIC 9(5)V99.
01 Index PIC 99 VALUE 1.
01 Num-Above-Average PIC 99 VALUE 0.

FILE SECTION.
FD Employee-File.
01 Employee-Record-File.
05 Employee-Name-File PIC A(30).
05 Employee-Salary-File PIC 9(5)V99.

PROCEDURE DIVISION.
MAIN-PROGRAM.
OPEN INPUT Employee-File
PERFORM READ-EMPLOYEES
CLOSE Employee-File
DIVIDE Total-Salary BY Employees GIVING Average-Salary
DISPLAY “Average Salary: ” Average-Salary
PERFORM DISPLAY-ABOVE-AVERAGE
DISPLAY “Total Employees Above Average: ” Num-Above-Average
STOP RUN.

READ-EMPLOYEES.
PERFORM WITH TEST AFTER
READ Employee-File INTO Employee-Record-File
AT END
EXIT PERFORM
END-READ
ADD 1 TO Employees
ADD Employee-Salary-File TO Total-Salary
END-PERFORM.

DISPLAY-ABOVE-AVERAGE.
PERFORM VARYING Index FROM 1 BY 1 UNTIL Index > Employees
READ Employee-File INTO Employee-Record-File
AT END
EXIT PERFORM
END-READ
IF Employee-Salary-File > Average-Salary THEN
DISPLAY Employee-Name-File ” earns above average.”
ADD 1 TO Num-Above-Average
END-IF
END-PERFORM.

var employees = 0;
var totalSalary = 0.0;
double averageSalary;
var numAboveAverage = 0;

employees = ReadEmployees(employeeFile, ref totalSalary);

employeeFile.Close();

averageSalary = totalSalary / employees;

Stdout.WriteLine(“Average Salary: ” + averageSalary);
numAboveAverage = DisplayAboveAverage(employeeFile, averageSalary);

Stdout.WriteLine(“Total Employees Above Average: ” + numAboveAverage);
}

private static int ReadEmployees(EmployeeFile employeeFile, ref double totalSalary) {
int employees = 0;

while (employeeFile.Read(out var employeeRecordFile)) {
employees++;
totalSalary += employeeRecordFile.EmployeeSalaryFile;
}

return employees;
}

private static int DisplayAboveAverage(EmployeeFile employeeFile, double averageSalary) {
int numAboveAverage = 0;
int index = 1;
var employeeRecordFile = new EmployeeRecordFile();

while (employeeFile.Read(out employeeRecordFile)) {
if (employeeRecordFile.EmployeeSalaryFile > averageSalary) {
Stdout.WriteLine(employeeRecordFile.EmployeeNameFile + ” earns above average.”);
numAboveAverage++;
}
index++;
}

return numAboveAverage;
}
}

public class EmployeeFile {
private List records;

public EmployeeFile() {
records = new List(); // Populate this with data.
}

public void Open() {
// Logic to open file.
}

public void Close() {
// Logic to close file.
}

public bool Read(out EmployeeRecordFile employeeRecord) {
// Logic to read next record.
// If end of file reached, return false
return false; // Placeholder
}
}

public class EmployeeRecordFile {
public string EmployeeNameFile { get; set; }
public double EmployeeSalaryFile { get; set; }
}
}