Вопрос Напишите код на паскале

[Sasha3sl]

Создайте двумерный массив percentages размером 3×5 типа real. Объявите функцию addSPercent(percent: real): real, увеличивающую входное число на 5%. Заполните массив percentages случайными вещественными числами от 0.0 до 100.0. Обработайте массив percentages: измените каждый элемент, применив функцию addSPercent. Выведите на экран массив percentages.Напишите код на паскале

 

[toillaltic]

никто не пишет на паскале

 

[серега123]

я тебе че, чат gpt ?

 

[aswsedrfthy]

На program PercentagesArray;

uses
SysUtils;

const
ROWS = 3;
COLS = 5;
PERCENT_INCREASE = 0.05;
MIN_VALUE = 0.0;
MAX_VALUE = 100.0;

type
TMatrix = array[1..ROWS, 1..COLS] of real;

var
percentages: TMatrix;
i, j: integer;

function addSPercent(percent: real): real;
begin
addSPercent := percent * (1 + PERCENT_INCREASE);
end;

function getRandomReal(min, max: real): real;
begin
getRandomReal := min + random * (max - min);
end;

procedure fillArray(var matrix: TMatrix);
begin
randomize;
for i := 1 to ROWS do
for j := 1 to COLS do
matrix[i, j] := getRandomReal(MIN_VALUE, MAX_VALUE);
end;

procedure processArray(var matrix: TMatrix);
begin
for i := 1 to ROWS do
for j := 1 to COLS do
matrix[i, j] := addSPercent(matrix[i, j]);
end;

procedure printArray(const matrix: TMatrix; const title: string);
const
FIELD_WIDTH = 10;
DECIMALS = 2;
begin
writeln(title);
writeln('=' * (COLS * (FIELD_WIDTH + 1)));

for i := 1 to ROWS do
begin
for j := 1 to COLS do
write(matrix[i, j]:FIELD_WIDTHECIMALS, ' '
writeln;
end;
writeln('=' * (COLS * (FIELD_WIDTH + 1)));
end;

begin
fillArray(percentages);
printArray(percentages, 'Initial array:'

processArray(percentages);
writeln;
printArray(percentages, 'Array after adding 5%:'

readln; // Pause to see results
end.

 

[emberrulp]

То что ты учишь программирование это хорошо
Но учить паскаль в 2025 году это идиотизм
Лучше пайтон учи - если хорошо будешь знать то работа тебе обеспечена
А паскаль - да есть помирающие проекты на этом языке, но они помрут и больше нахрен никому паскаль не нужен будет

 

[Жека16-08]

Виктория, задача довольно ёмкая.

 

[Артём777]

program PercentArray;

var
percentages: array[1..3, 1..5] of real;
i, j: integer;

function addSPercent(percent: real): real;
begin
addSPercent := percent * 1.05;
end;

begin
Randomize;
// Заполнение массива случайными числами от 0.0 до 100.0
for i := 1 to 3 do
for j := 1 to 5 do
percentages[j] := Random * 100.0;

// Обработка элементов массива функцией addSPercent
for i := 1 to 3 do
for j := 1 to 5 do
percentages[j] := addSPercent(percentages[j]);

// Вывод массива на экран
Writeln('Массив после увеличения на 5%:'
for i := 1 to 3 do
begin
for j := 1 to 5 do
Write(percentages[j]:0:2, ' '
Writeln;
end;
end.

 

[Валя1112]

program PercentagesArray;

uses crt;

const
Rows = 3;
Cols = 5;

type
TPercentages = array[1..Rows, 1..Cols] of real;

var
percentages: TPercentages;

function addSPercent(percent: real): real;
begin
addSPercent := percent * 1.05; // Увеличиваем на 5%
end;

procedure FillArray(var arr: TPercentages);
var
i, j: integer;
begin
Randomize; // Инициализация генератора случайных чисел
for i := 1 to Rows do
for j := 1 to Cols do
arr[i, j] := Random * 100; // Заполнение случайными числами от 0.0 до 100.0
end;

procedure ProcessArray(var arr: TPercentages);
var
i, j: integer;
begin
for i := 1 to Rows do
for j := 1 to Cols do
arr[i, j] := addSPercent(arr[i, j]); // Обработка массива
end;

procedure PrintArray(const arr: TPercentages);
var
i, j: integer;
begin
for i := 1 to Rows do
begin
for j := 1 to Cols do
Write(arr[i, j]:8:2); // Вывод элементов массива с двумя знаками после запятой
Writeln; // Переход на новую строку
end;
end;

begin
FillArray(percentages); // Заполнение массива случайными числами
ProcessArray(percentages); // Обработка массива
Writeln('Измененный массив percentages:'
PrintArray(percentages); // Вывод измененного массива
end.