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

Question

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

Виктория Коновалова Ученик (143), открыт 4 недели назад

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

Дополнен 4 недели назад

Самостоятельная по информатике

Answer 1

zero Просветленный (24329) 4 недели назад

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

Answer 2

Gitler Знаток (359) 4 недели назад

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

Костя КубаноаПрофи (505) 4 недели назад

да

Answer 3

Каталина коноплецкая Мыслитель (9954) 4 недели назад

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

Answer 4

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.

Answer 5

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

Answer 6

На

 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_WIDTH:DECIMALS, ' '); 
    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.

Answer 7

 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[i][j] := Random * 100.0; 
 
  // Обработка элементов массива функцией addSPercent 
  for i := 1 to 3 do 
    for j := 1 to 5 do 
      percentages[i][j] := addSPercent(percentages[i][j]); 
 
  // Вывод массива на экран 
  Writeln('Массив после увеличения на 5%:'); 
  for i := 1 to 3 do 
  begin 
    for j := 1 to 5 do 
      Write(percentages[i][j]:0:2, ' '); 
    Writeln; 
  end; 
end.

Answer 8

 program Percentages; 
 
type 
  Matrix = array[1..3, 1..5] of Real; 
 
function addSPercent(percent: Real): Real; 
begin 
  addSPercent := percent * 1.05; 
end; 
 
var 
  percentages: Matrix; 
  i, j: Integer; 
 
begin 
  Randomize; 
  for i := 1 to 3 do 
    for j := 1 to 5 do 
      percentages[i, j] := Random * 100; 
 
  for i := 1 to 3 do 
    for j := 1 to 5 do 
      percentages[i, j] := addSPercent(percentages[i, j]); 
 
  for i := 1 to 3 do 
  begin 
    for j := 1 to 5 do 
      Write(percentages[i, j]:0:2, ' '); 
    Writeln; 
  end; 
end.