6 / 4 / 2
Регистрация: 19.10.2018
Сообщений: 102
1

переделать программу на pascal в программу на python

12.11.2018, 06:16. Показов 2416. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
const n=20;
      m=12;
var a,h,x,s:real;
    i,j:byte;
begin
repeat
write('Введите a>0 a=');
readln(a);
until (a>0);
h:=2*a/(n-1);
for i:=0 to n-1 do
 begin
  write(i+1:2);
  x:=-a+i*h;
  s:=0;
  j:=0;
  while (j<=m)and(x+j<>0) do
   begin
    s:=s+1/(x+j);
    j:=j+1;
   end;
  if j>m then  writeln('  x=',x:6:2,'  s=',s:7:3)
  else writeln('  x=',x:6:2,'  s не определена')
 end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2018, 06:16
Ответы с готовыми решениями:

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab3; uses Crt; const Output_File_Name = 'output.txt'; { ima faila dlya vivoda...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab2; uses Crt; const Nmax = 15; { MAX element mnozestva A } type T =...

переделать программу из С++ в Pascal
помогите пожалуйста переделать программу из С++ в Pascal #include &quot;stdio.h&quot; #include &quot;string.h&quot;...

переделать программу из pascal в C++
Ребят помогите пожалуйста переделать программу в с++ вот ссылка на прогрумму тут просто не все...

Переделать программу с Pascal на VB 6
Добрый день,очень нужно переделать программу с Pascal на VB 6 до пятницы 3.06.2011, естественно за...

1
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
12.11.2018, 07:24 2
Лучший ответ Сообщение было отмечено rina_shym как решение

Решение

Python
1
2
3
4
5
6
7
8
9
10
11
n, m = 20, 12
a = float(input("Введите a>0 a:"))
h = 2*a/(n-1)
for i in range(n-1):
    print(i+1, ' ', end='  ')
    x = -a+i*h
    s, j = 0, 0
    while (j <= m)and(x+j != 0):
        s += 1/(x+j)
        j += 1
    print('x=', f'{x:3.2f}', 's= '+f'{s:3.3f}' if j > m else 's не определена')
1
12.11.2018, 07:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2018, 07:24
Помогаю со студенческими работами здесь

переделать программу из Pascal в С++
есть программа на паскале для поиска перевода слов в файлах. нужно переделать эту программу на c++....

Переделать программу Pascal в C++
Дан код Pascal: var n, i: integer; begin Writeln('Введите трехзначеное число: '); ...

Переделать программу из Pascal в C++
Добрый день! Прошу помочь, подсказать. Есть программа на Pascal, ее необходимо перевести в C++....

Переделать программу написанную на Pascal в С++
Задание Вариант 1 Вычислить определенный интеграл от функции f(x) на промежутке методом...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru