Из Pascal в Python

@Yarickfa · Регистрация: 02.12.2021

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

Доброго времени суток!
Пытаюсь перевести одну задачку из Паскаля в Python, но ответы не сходятся. Можете подсказать где ошибка?

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
program pr1;
uses crt;
var
p,h,a:real;
N:integer;
V,S,M:real;
begin
clrscr;
write('Введите число N=');
readln(N);
write('Введите сторону A=');
readln(A);
write('Введите плотность P=');
readln(p);
write('Введите толщину H=');
readln(h);
S:=0;
V:=0;
M:=0;
for i:=1 to n do
begin
S:=S+sqr(A/i);
V:=V+h*sqr(A/i);
M:=M+p*h*sqr(A/i);
end;
writeln('Площадь поверхности S=',S:5:2);
writeln('Объем V=',V:5:2);
writeln('Масса M=',M:5:2);
readkey;

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
import math
S=0
V=0
M=0
print ('Введите целое число N')
N = int(input())
print ('Введите сторону A')
A = float(input())
print ('Введите плотность P')
P = float(input())
print ('Введите толщину H')
H = float(input())
for i in range(1, N):
    S=S+(A/i)**2
    V=V+H*(A/i)**2
    M=M+P*H*(A/i)**2
print ('Площадь =', S)
print ('Объем =', V)
print ('Масса =', M)

@milssky · 02.12.2021, 10:15

Посчитайте, сколько итераций делает цикл в паскале, а сколько в пайтоне.

@Yarickfa · 02.12.2021, 10:24 **[ТС]**

Pascal
1
2
3
writeln('Площадь поверхности S=',S:5:2);
writeln('Объем V=',V:5:2);
writeln('Масса M=',M:5:2);

Речь идёт не о, например, S:5:2?

@milssky · 02.12.2021, 10:42

Нет. Речь о конструкциях for.

@Yarickfa · 02.12.2021, 11:42 **[ТС]**

Задачу решил!
Спасибо большое!

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
import math
S=0
V=0
M=0
i=1
print ('Введите целое число N')
N = int(input())
print ('Введите сторону A')
A = float(input())
print ('Введите плотность P')
P = float(input())
print ('Введите толщину H')
H = float(input())
for i in range(1,N+1):
    S=S+pow(A/i,2)
    V=V+H*pow(A/i,2)
    M=M+P*H*pow(A/i,2)
print ('Площадь =', S)
print ('Объем =', V)
print ('Масса =', M)

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@milssky 28 / 21 / 8 Регистрация: 05.08.2012 Сообщений: 108
	02.12.2021, 10:15
	Посчитайте, сколько итераций делает цикл в паскале, а сколько в пайтоне. 0

@milssky 28 / 21 / 8 Регистрация: 05.08.2012 Сообщений: 108
	02.12.2021, 10:42
	Нет. Речь о конструкциях for. 0