Форум программистов, компьютерный форум, киберфорум
Python для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.96/25: Рейтинг темы: голосов - 25, средняя оценка - 4.96
0 / 0 / 0
Регистрация: 27.04.2021
Сообщений: 26

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

27.04.2021, 21:29. Показов 5384. Ответов 7

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program massive1;
const n=10;
var a:array [1..n] of integer;
    i:integer;
    k:integer;
Begin
    write('Введите верхнюю границу диапазона значения:');
    readln(k);
    randomize;
    for i:=1 to n do 
    begin
        a[i]:=random(k);
    end;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.04.2021, 21:29
Ответы с готовыми решениями:

Перевод паскаля на питон
uses crt; const nmax=15; var a:array of integer; m,n,i,j,k,x:integer; begin clrscr; randomize; repeat write('Количество...

Перевод из Паскаля в Питон
var i, n, k, k1, kdel: LongInt; begin write ('n, k (через пробел) = '); readln (n, k); k1:=0; kdel:=-1; for i:=1 to n do ...

Перевод с паскаля на питон
Помогите код сделать на пайтон из паскаля uses crt; type Func=function(x:real):real; {$F+} function f1(x:real):real; begin ...

7
Эксперт Python
1356 / 653 / 207
Регистрация: 23.03.2014
Сообщений: 3,057
27.04.2021, 21:52
Так?
Python
1
2
3
4
5
6
7
8
9
10
11
import random
 
 
def masgen(n):
    mlist = (random.randint(1, 10) for i in range(n))
    print(*mlist)
 
 
if __name__ == '__main__':
    n = int(input())
    masgen(n)
0
5516 / 2869 / 571
Регистрация: 07.11.2019
Сообщений: 4,759
27.04.2021, 22:04
Цитата Сообщение от Dax Посмотреть сообщение
Так?
нет
k где вводится?
0
Эксперт Python
1356 / 653 / 207
Регистрация: 23.03.2014
Сообщений: 3,057
27.04.2021, 22:07
u235, решено так,потому, что, по сути, нужно получить n случайных чисел(если я правильно понял исходный алгоритм), то есть к это и граница диапазона и количество(на pascalбвидимо по привычке , использоваться еще и n чтоб смотреть пример на 10 числах, то есть, значимый параметр 1 и потому, в моем коде он и приведен 1).
0
5516 / 2869 / 571
Регистрация: 07.11.2019
Сообщений: 4,759
27.04.2021, 22:12
Dax, n=10 чисел в диапазоне от нуля до k, а у вас 9 чисел, в диапазоне от 1 до 10. Есть разница?
0
Эксперт Python
1356 / 653 / 207
Регистрация: 23.03.2014
Сообщений: 3,057
27.04.2021, 22:28
u235, Принципиальная, ваша правда.

Добавлено через 2 минуты
Python
1
2
3
4
5
6
7
8
9
10
11
12
import random
 
 
def masgen(n, k):
    mlist = (random.randint(0, k) for i in range(n))
    print(*mlist)
 
 
if __name__ == '__main__':
    k = int(input())
    n = int(input())
    masgen(n, k)
0
5516 / 2869 / 571
Регистрация: 07.11.2019
Сообщений: 4,759
27.04.2021, 22:38
Python
1
2
3
4
5
from random import randint, seed
seed()
n=10
k=int(input('Введите верхнюю границу диапазона значения:'))
a=[randint(0,k-1) for i in range(n)]
Можно было бы еще вывод добавить, но в исходной программе его нет.

Добавлено через 2 минуты
Dax, в паскале random(k) верхняя граница не включается.
1
Эксперт Python
1356 / 653 / 207
Регистрация: 23.03.2014
Сообщений: 3,057
27.04.2021, 22:41
u235, спасибо,учту.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.04.2021, 22:41
Помогаю со студенческими работами здесь

Перевод из паскаля в питон
var x,y:real; begin Write('Введите через пробел координаты точки (x,y): '); Read(x,y); Writeln((y<=x+3) and...

Перевод из паскаля в питон
var n: integer; count: integer; procedure R(n1: integer; start: integer; p: string); var j: integer; s: string; ...

Перевод из паскаля в питон
var arr: array of integer; i, n: integer; bool: boolean; begin bool:=false; readln(n); for i:=1 to n do ...

Перевод с Паскаля на Питон
program gg; var s: string; i, j, n:integer; was: boolean; begin readln(s); n:=0; for i:=1 to length(s) do begin ...

Перевод с паскаля на питон
Помогите с переводом пожалуйста. uses crt; const mf=500; type vector=array of real; var {раздел описания переменных, которые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru