Перевод из Python в Pascal

@kham · Регистрация: 14.05.2016

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

Здравстуйте!
Закрыт. Этот вопрос не по теме. Ответы на него в данный момент не принимаются.
Учебные задания допустимы в качестве вопросов только при условии, что вы пытались решить их самостоятельно перед тем, как задать вопрос. Пожалуйста, отредактируйте вопрос и укажите, что именно вызвало у вас трудности при решении задачи. Например, приведите код, который вы написали, пытаясь решить задачу

Закрыт 9 часов назад.

(Личный отзыв для вас)

Решаю задачку по электростатике и необходимо реализовать программу на паскале. Паскаль со школы уже к сожалению не помню, тк изучаем питон. Собственно написал программу на питоне, не могли бы пожалуйста помочь перевести ее в Pascal

1 программа:

Python
1
2
3
4
U=50
d=2*10**(-2)
V=U/d
print(V,'x')

2 программа

Python
1
2
3
4
5
6
7
8
9
10
11
e=1.6*10**(-19)
m=9.11*10**(-31)
eps= 8,85418781762039*10**(-12)
v=1.8*10**(11)
S=1
ro=e/S
j=ro*v
def V(j,eps,e,m):
    VX=(9*j/(4*eps*(2*(e/m))**(1/2)))**(2/3)
    print(VX,'x^4/3')
V(j,eps,e,m)

Заранее спасибо за помощь!

@ValentinNemo · 30.03.2021, 13:16

Pascal
1
2
3
4
5
6
7
8
9
10
program Project1;
var
  U,d,v: real;
begin
  U:= 50;
  d:= 2/sqr(10);
  V:= U/d;
  writeln(V:0:2,'x');
  readln;
end.

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
program Project1;
 
procedure fv(j,eps,e,m: real);
var
  VX: real;
begin
  VX:= exp((2/3)*ln(9*j/sqrt(4*eps*2*e/m)));
  writeln('x^4/3: ',VX);
end;
 
 
var
  pe,pm,peps,pj,v,s,ro: real;
begin
  pe:= 1.6E-19;
  pm:= 9.11E-31;
  peps:= 8.85418781762039E-12;
  v:= 1.8E11;
  S:= 1;
  ro:= pe/S;
  pj:= ro*v;
  fv(pj,peps,pe,pm);
 
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .