С Паскаля на Питон перевести

@Ako · Регистрация: 25.12.2011

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

Нужно перевести с паскаля на Питон)

вот текст задачи.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program bing;
uses CRT;
type
    matrix = array [1..100, 1..100] of integer;
var
   A: matrix;
   m, n, i, j, f: integer;
   procedure vvod(var MM : matrix);
   begin
        for i:= 1 to m do
            for j:= 1 to n do
            begin
                 write('A', i, ', ', j, ']- ');
                 readln(MM[i, j]);
            end;
   end;
   procedure obrabotka(var MM : matrix);
   begin
        for i:= 1 to m do
            for j:= 1 to n do
                if MM[i, j] <> f then
                   MM[i, j]:= 0;
   end;
   procedure outM(MM : matrix);
   begin
        for i:= 1 to m do
        begin
             for j:= 1 to n do
                 write(MM[i, j]:5);
             writeln;
        end;
   end;
begin
    clrscr;
    write('m- ');
    readln(m);
    write('n- ');
    readln(n);
    write('f- ');
    readln(f);
    obrabotka(A);
    outM(A);
    readkey;
end.

accept · 26.12.2011, 03:28

задание тоже пиши
в питоне она может занимать одну строку

@Ako · 26.12.2011, 04:15 **[ТС]**

Все элементы матрицы, которые отличаются от заданного f, заменить нулями.

accept · 26.12.2011, 04:43

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/env python3
 
import random
 
m = int(input('Enter m: '))
n = int(input('Enter n: '))
f = int(input('Enter f: '))
 
rows, cols = m, n
matr = [[random.randint(-10, 10) for j in range(cols)]
        for i in range(rows)]
 
print(matr)
 
i = 0
while i < m:
    j = 0
    while j < n:
        if matr[i][j] != f:
            matr[i][j] = 0
        j += 1
    i += 1
 
print(matr)

без процедур, так как их можно по-разному делать

@Ako · 26.12.2011, 12:09 **[ТС]**

а с процедурами пример можешь написать?

accept · 27.12.2011, 02:13

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/env python3
 
import random
 
def input_values():
    m = int(input('Enter m: '))
    n = int(input('Enter n: '))
    f = int(input('Enter f: '))
    return m, n, f
 
def create_matrix(rows, cols):
    matr = [[random.randint(-10, 10) for j in range(cols)]
            for i in range(rows)]
    return matr
 
def print_matrix(pref, matr):
    print(pref, end='')
    rows, cols = len(matr), len(matr[0])
    for i in range(rows):
        for j in range(cols):
            print('{0:5}'.format(matr[i][j]), end='')
        print()
 
def process_matrix(matr, num, to):
    rows, cols = len(matr), len(matr[0])
    i = 0
    while i < rows:
        j = 0
        while j < cols:
            if matr[i][j] != num:
                matr[i][j] = to
            j += 1
        i += 1
    return matr
 
def main():
    m, n, f = input_values()
    matr = create_matrix(m, n)
    print_matrix('was:\n', matr)
    process_matrix(matr, f, 0)   
    print_matrix('new:\n', matr)
 
if __name__ == '__main__':
    main()

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
[guest@localhost tests]$ ./t.py
Enter m: 3
Enter n: 4
Enter f: 8
was:
    9   -7   -2   -1
    8   10    8   -5
    4   -7    7    8
new:
    0    0    0    0
    8    0    8    0
    0    0    0    8
[guest@localhost tests]$

@Ako · 04.01.2012, 18:18 **[ТС]**

А вот еще, помогите пожалуйста, здесь попроще)

Задание:
Описать двуместную функцию от целочисленных аргументов. Если аргументы меньше нуля, функция возвращает минус один. При первом четном аргументе и втором нечетном аргументе функция возвращает минус два. При первом нечетном аргументе и втором четном аргументе функция возвращает минус три. Если оба аргумента нечетные и первый больше второго функция возвращает первый аргумент, умноженный на два. Если оба аргумента четные и первый больше второго функция возвращает второй аргумент, умноженный на три.

Листинг программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program lab2_v1;
var
   a,b,F:integer;
begin
     writeln('Введите A: ');readln(a);
     writeln('Введите B: ');readln(b);
     if (b<0) then F:=-1
              else if odd(a)=true then if odd(b)=true then F:=2*a
                                                      else F:=-3
                                  else if odd(b)=true then F:=-2
                                                      else F:=3*b;
     writeln('Ответ: ',F);
     readln;
end.

Добавлено через 5 часов 3 минуты
Откликнитесь кто-нибудь))

@Nameless One · 04.01.2012, 18:25

Ako, не видно что-то твоих наработок. Задание элементарное, Python как язык — элементарен. Что сложного-то?

@Ako · 04.01.2012, 19:34 **[ТС]**

Nameless One, я вообще не очень понимаю в языках, и натренирован только на паскаль.
Если не сложно помоги)

@bodrich · 04.01.2012, 19:50

Не по теме:

Кстати, это задание есть на codingbat.com

@Hrobak · 05.01.2012, 20:30

Судя по заданию, если первый аргумент отрицательный, то тоже надо вывести "-1". Но если просто переписать с паскаля то вот код:

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
a=int(raw_input("Enter A: "))
b=int(raw_input("Enter B: "))
if b<0 or a<0:
    f=-1
elif a%2==1:
    if b%2==1:
        f=2*a
    else:
        f=-3
elif b%2==1:
    f=-2
else:
    f=3*b
print "Answer: ",f

@bodrich · 05.01.2012, 21:47

Сообщение от Hrobak

Судя по заданию, если первый аргумент отрицательный, то тоже надо вывести "-1". Но если просто переписать с паскаля то вот код:

Нет, вывести -1 только в том случае, когда оба аргумента отрицательны.

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

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
def func(a, b):
    if a < 0 and b < 0:
        return -1
    if a % 2 == 0:
        if b % 2 != 0:
            return -2
        elif a > b:
            return b * 3
    if a % 2 != 0:
        if b % 2 == 0:
            return -3
        elif a > b:
            return a * 2
    return None     
a=int(input("Enter A: "))
b=int(input("Enter B: "))
print(func(a, b))

@Жолбарыс · 01.11.2019, 06:58

Комментарий модератора

Жолбарыс, не нужно распихивать свои вопросы в чужие темы.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

accept 4866 / 3287 / 468 Регистрация: 10.12.2008 Сообщений: 10,570
	26.12.2011, 03:28
	задание тоже пиши в питоне она может занимать одну строку 0

@Ako 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 6
	26.12.2011, 04:15 [ТС]
	Все элементы матрицы, которые отличаются от заданного f, заменить нулями. 0

@Ako 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 6
	26.12.2011, 12:09 [ТС]
	а с процедурами пример можешь написать? 0

@Nameless One 5828 / 3479 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	04.01.2012, 18:25
	Ako, не видно что-то твоих наработок. Задание элементарное, Python как язык — элементарен. Что сложного-то? 0

@Ako 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 6
	04.01.2012, 19:34 [ТС]
	Nameless One, я вообще не очень понимаю в языках, и натренирован только на паскаль. Если не сложно помоги) 0

@bodrich
	04.01.2012, 19:50
	Не по теме: Кстати, это задание есть на codingbat.com 0