Переведите пожалуйста из Pascal в Python

@kenny4461 · Регистрация: 19.05.2017

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

Переведите пожалуйста перевести в Python:

Задание№1: В матрице А [5 x 3] найти минимальный и максимальный элементы, вычислить и сформировать новую матрицу, в которой к элементам всех строк кроме 4-й прибавлено Р, 4-я строка без изменения.

uses crt;
type
mas=array[1..5,1..3] of Word;
var
A:mas;
i,j,p:word;

procedure minmax(d:mas);
var
min,max:word;
begin
min:=A[1,1];
max:=A[1,1];
for i:=1 to 5 do begin
for j:=1 to 3 do begin
if A[i,j] > max then
max:=A[i,j];
if A[i,j] < min then
min:=A[i,j];
end;
end;
p:=(min+max)*(min+max);
end;
begin
clrscr;
randomize;
for i:=1 to 5 do begin
for j:=1 to 3 do begin
A[i,j]:=random(40)+5;
write(A[i,j],' ');
end;
writeln;
end;
minmax(A);
writeln;writeln('Result');
for i:=1 to 5 do begin
if i<>4 then begin
for j:=1 to 3 do begin
A[i,j]:=A[i,j]+p;
write(A[i,j],' ');
end;
end else begin
for j:=1 to 3 do begin
write(A[i,j],' ');
end;
end;
writeln;
end;
write('Enter for exit');
readln;
end.

Задание№2 Задан массив y1, y2, …, y10.
Если индекс ymin меньше 5, то заменить в исходном массиве отрицательные yi на ymin.

const
n = 10;
var
arr: array[1..n] of integer;
i, min, index: integer;
begin
randomize;
min:=1;
for i:=1 to n do
begin
arr[i]:=random(n)-3;
write(arr[i], ' ');
if arr[i] < arr[min] then min:=i;
if arr[i] < 0 then index:=i;
end;
writeln;
if min < 5 then arr[index]:=arr[min];
for i:=1 to n do
write(arr[i], ' ');
end.

Рыжий Лис · 20.05.2017, 06:15

2

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
# -*- coding: utf-8 -*-
"""
Задание№2 Задан массив y1, y2, …, y10.
Если индекс ymin меньше 5, то заменить в исходном массиве отрицательные yi на ymin.
"""
import random
 
y = [random.randrange(-10, 10) for _ in range(10)]
print(y)
ymin = min(y)
for i in range(0, 5):
    if y[i] < 0:
        y[i] = ymin
print(y)

Добавлено через 6 минут
Правильно:

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# -*- coding: utf-8 -*-
"""
Задание№2 Задан массив y1, y2, …, y10.
Если индекс ymin меньше 5, то заменить в исходном массиве отрицательные yi на ymin.
"""
import random
 
y = [random.randrange(-10, 10) for _ in range(10)]
print(y)
ymin = min(y)
if y.index(ymin) < 5:
    for i in range(len(y)):
        if y[i] < 0:
            y[i] = ymin
print(y)

Добавлено через 12 минут
1

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
# -*- coding: utf-8 -*-
"""
Задание№1: В матрице А [5 x 3] найти минимальный и максимальный элементы, вычислить и сформировать новую матрицу, в которой к элементам всех строк кроме 4-й прибавлено Р, 4-я строка без изменения.
"""
import numpy as np
 
A = np.random.rand(5, 3)
print(A)
a_min = np.min(A)
a_max = np.max(A)
p = (a_min+a_max) * (a_min+a_max)
B = np.full_like(A, p)
B[3] = 0
print(A+B)

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@kenny4461 0 / 0 / 0 Регистрация: 19.05.2017 Сообщений: 5

	Переведите пожалуйста из Pascal в Python 19.05.2017, 19:38. Показов 2282. Ответов 1 Метки нет (Все метки) Переведите пожалуйста перевести в Python: Задание№1: В матрице А [5 x 3] найти минимальный и максимальный элементы, вычислить и сформировать новую матрицу, в которой к элементам всех строк кроме 4-й прибавлено Р, 4-я строка без изменения. uses crt; type mas=array[1..5,1..3] of Word; var A:mas; i,j,p:word; procedure minmax(d:mas); var min,max:word; begin min:=A[1,1]; max:=A[1,1]; for i:=1 to 5 do begin for j:=1 to 3 do begin if A[i,j] > max then max:=A[i,j]; if A[i,j] < min then min:=A[i,j]; end; end; p:=(min+max)*(min+max); end; begin clrscr; randomize; for i:=1 to 5 do begin for j:=1 to 3 do begin A[i,j]:=random(40)+5; write(A[i,j],' '); end; writeln; end; minmax(A); writeln;writeln('Result'); for i:=1 to 5 do begin if i<>4 then begin for j:=1 to 3 do begin A[i,j]:=A[i,j]+p; write(A[i,j],' '); end; end else begin for j:=1 to 3 do begin write(A[i,j],' '); end; end; writeln; end; write('Enter for exit'); readln; end. Задание№2 Задан массив y1, y2, …, y10. Если индекс ymin меньше 5, то заменить в исходном массиве отрицательные yi на ymin. const n = 10; var arr: array[1..n] of integer; i, min, index: integer; begin randomize; min:=1; for i:=1 to n do begin arr[i]:=random(n)-3; write(arr[i], ' '); if arr[i] < arr[min] then min:=i; if arr[i] < 0 then index:=i; end; writeln; if min < 5 then arr[index]:=arr[min]; for i:=1 to n do write(arr[i], ' '); end. 0

Переведите пожалуйста из Pascal в Python

Решение