Перевод с Pascal на Python

@DANTE2s · Регистрация: 08.12.2012

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

есть несколько задачек,прошу вас,помогите перевести с паскаля на питон
1)Переменной k присвоить номер четверти плоскости, в которой находится точка с координатами x и y (xy не равно 0).
Листинг первой версии программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program lab2_v1;
var x,y:integer;
chetvert:string;
    begin
     writeln('vvedi x');
     readln(x);
     writeln('vvedi y');
     readln(y);
     if (x>0) and (y>0) then chetvert:='pervaya';
     if (x<0) and (y>0) then chetvert:='vtoraya';
     if (x<0) and (y<0) then chetvert:='tretiya';
     if (x>0) and (y<0) then chetvert:='chetvertaya';
     if x*y=0 then chetvert:='tochka na oci';
 
     writeln ('chetvert =',chetvert);
     readln;
    end.

Листинг второй версии программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program lab2_v2;
 var x,y,chetvert:integer;
 begin
  writeln('vvedi x');
  readln(x);
  writeln('vvedi y');
  readln(y);
   if x>0 then
    if y>0 then chetvert:=1
    else chetvert:=4
     else
      if y>0 then chetvert:=2
       else chetvert:=3;
       if x*y=0 then writeln('tochka na oci')
       else
 
   writeln('chetvert =',chetvert);
   readln;
 end.

2)Даны натуральные числа x и n.
Вычислить: 1+x+(x^2)+(x^3)+...+(x^n).
Версия 1. Цикл с предусловием.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program lb3_16;
const n:integer=10;
var s, x, an:real;
i, t:integer;
begin
 
an:=1;
s:=1;
i:=1;
 
writeln('vvedite x');
readln(x);
while i<=n do
begin
an:=an*x;
writeln(an);
s:=s+an;
i:=i+1;
end;
writeln('otvet ',s );
end.

Версия 2. Цикл с постусловием.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program lb3_16;
const n:integer=10;
var s, x, an:real;
i, t:integer;
begin
an:=1;
s:=1;
i:=1;
writeln('vvedite x');
readln(x);
repeat
an:=an*x;
writeln(an);
s:=s+an;
i:=i+1;
until i>n;
writeln('otvet ',s );
end.

Версия 3. Цикл с параметром.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program lb3_16;
const n:integer=10;
var s, x, an:real;
i, t:integer;
begin
 
an:=1;
s:=1;
i:=1;
 
writeln('vvedite x');
readln(x);
for i:=1 to n do
begin
an:=an*x;
writeln(an);
s:=s+an;
end;
writeln('otvet ',s );
end.

accept · 19.12.2012, 04:02

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

1)Переменной k присвоить номер четверти плоскости, в которой находится точка с координатами x и y (xy не равно 0).

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
>>> def f():
...     x = int(input('x: '))
...     y = int(input('y: '))
...     
...     if x * y == 0:
...         chet = 'na osi'
...     elif x > 0 and y > 0:
...         chet = 'pervaya'
...     elif x < 0 and y > 0:
...         chet = 'vtoraya'
...     elif x < 0 and y < 0:
...         chet = 'tretya'
...     elif x > 0 and y < 0:
...         chet = 'chetvertaya'
...     
...     print(chet)
... 
>>> f()
x: 1
y: 1
pervaya
>>> f()
x: -1
y: 1
vtoraya
>>> f()
x: -1
y: -1
tretya
>>> f()
x: 1
y: -1
chetvertaya
>>> f()
x: 0
y: 1
na osi
>>>

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

2)Даны натуральные числа x и n.
Вычислить: 1+x+(x^2)+(x^3)+...+(x^n).

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
>>> def f(x, n):
...     assert x > 0 and n > 0
...     s = 1
...     sl = x
...     i = 1
...     while i <= n:
...         # в s - сумма i слагаемых,
...         # в sl - новое слагаемое
...         s += sl
...         sl *= x
...         i += 1
...     assert i == n + 1 # и в s - сумма i слагаемых
...     return s
... 
>>> f(3, 1)
4
>>> f(3, 2)
13
>>> f(3, 3)
40
>>> f(3, 0)
Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
  File "<stdin>", line 2, in f
AssertionError
>>> f(3, -1)
Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
  File "<stdin>", line 2, in f
AssertionError
>>>

@Пестика · 11.02.2018, 23:36

accept, помоги пожалуйста и мне , нужно перевести код с паскаля в питон....
program p18;
uses crt;
var
a,v :real;
n,i :integer;
Begin
writeln('Введите вещественное число А и целое число N');
readln(a,n);
v:=1;
for i := 1 to n do
begin
v:=v+power(-a,n);
end;
writeln(v);
readln
end.

Добавлено через 55 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program p18; 
uses crt; 
var 
a,v :real; 
n,i :integer; 
Begin 
writeln('Введите вещественное число А и целое число N'); 
readln(a,n); 
v:=1; 
for i := 1 to n do 
begin 
v:=v+power(-a,n); 
end; 
writeln(v); 
readln 
end.

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

Опции темы

Перевод с Pascal на Python

Решение