Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 09.01.2021
Сообщений: 2
1

Перевести код с Python на Pascal

09.01.2021, 16:34. Просмотров 710. Ответов 1
Метки нет (Все метки)

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
lst = []
sred = 0
print('Введите какое количество элементов вам нужно:', end=' ')
for i in range(1, int(input()) + 1):
    print(f'Введите {i} элемент:', end=' ')
    chislo = int(input())
    lst.append(chislo)
for chislo in lst:
    sred += chislo
sred = sred / len(lst)
print('Числа, который меньше среднего, введённых вами элементов:')
for chislo in lst:
    if chislo < sred:
        print(chislo)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2021, 16:34
Ответы с готовыми решениями:

Перевести код из Pascal в Python
Всем привет. Не могли бы помочь перевести код Pascal в Python. var x, count, numDel, i, j:...

Перевести код из Pascal в Python
var n, p, i: integer; begin readln(n); i:=1; p:=3; while true do if i&lt;=n then begin ...

Перевести код с Python на Pascal
a=float(input(&quot;Введите сумму: &quot;)) c1=a*50 c2=150*(a+a*0.2) c=c1+c2 print(c)

Перевести код из Pascal в Python
program z1; uses crt; var i, n: integer; begin read (n); i:=1; while sqr(i)&lt;n do i:=i+1; ...

1
410 / 344 / 126
Регистрация: 09.09.2011
Сообщений: 1,235
12.01.2021, 11:39 2
не понятно chislo у нас какие числа хранит. ну вернее в питоне это не важно

вот так будет и целые и дробные считать:

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
program array_processing;
{программа по заданию с  https://www.cyberforum.ru/pascal/thread2766750.html
 перевод с python на паскаль}
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysutils, math;
var
  sred, chislo: Double; //Integer;
  lst: array of Double; //Integer;
  i, num: integer;
 
begin
  write('Enter number of elements: ');
  readln(num);
  if num < 1 then Exit;
  SetLength(lst, num);
  for i:= 0 to High(lst) do begin
      write('Enter ' + inttostr(succ(i)) + ' element:');
      readln(lst[i]);
  end;
  sred:= mean(lst);
 
  write('The Numbers that are lower than mean: ');
  for chislo in lst do
      if chislo < sred then
         write(chislo:3:2, ' ');
  writeln;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2021, 11:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Просьба перевести код из Pascal в Python
Здравствуйте! Нашел код на паскале: var inp, outp: text; n, m, x, y, i, j: integer; ...

Перевести код с Pascal на Python
Дан файл целых чисел, содержащий менее 50 элементов. Увеличить его размер до 50 элементов, записав...

Перевести код из Pascal в Python
program Model; uses crt; var mx,lam,muo,lp,m,kd,gam,n,kv,i: longint; ...

Перевести код из Pascal в Python
Помогите перевести код из Pascal в Python. Буду очень благодарен. uses crt; type complex=record ...

Перевести код из Python в Pascal
def f(x, y): if a == '.': a = 1 return 1 + f(x-1, y) + f(x+1, y) + f(x, y-1) + f(x, y+1) return...

Перевести код из Python в Pascal
m=int(input()) c='' for i in range(m): c=c+str(input()) p=(c.count('+')-c.count('-'))/2...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.