Перевод кода Pascal на Java
Пожалуйста, помогите перевести код на Java
const SortByZad=true;
SortByTime=false;
type Uch=record
Num:byte;
Time:longint;
ZadCount:byte;
Zad:array[1..9] of boolean;
enabled:boolean;
end;
var ar:array[1..10…
Category: Pascal
Перевод программы из Python в Pascal [закрыт]
Решаю задачку по электростатике и необходимо реализовать программу на паскале. Паскаль со школы уже к сожалению не помню, тк изучаем питон. Собственно написал программу на питоне, не могли бы пожалуйста помочь перевести ее в Pascal
1 прогр…
Максимальное количество делителей числа в интервале с [ M; N ]
uses crt;
function KolDel(n:longint):integer;//функция для подсчета делителей
var i,k:integer;
begin
k:=1;//пока делитель 1, само число
for i:=1 to round(sqrt(n))do//от 1 до крня из числа(дальше нет смысла проверять)
if n mod i=0 then k:=k…
Как написать данную строчку на языке python
Допустим, есть такая строчка на Паскале:
a: array [‘A’..’Z’] of integer;
Как эта строчка должна быть записана на Python?
Сумма чётных цифр числа [закрыт]
Переделать паскаль в питон
n – исходное число,
sum – сумма четных чисел.
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum +…
Перевод из Pascal в Python
Пытался перевести из паскаля в питон:
var a: array[1..100] of integer;
i, k: integer;
begin
for i:= 1 to 100 do
if i*2 >= 65 then
a[i]:= 1
else
a[i]:= 0;
for k:= 1 to 100 do
for i:= 1 to 100 do
if a[…
Перевод из Паскале в Python [дубликат]
Помогите, пожалуйста, перевести из пакаля в питон. Не получается массив задать, как и сами переменные i,j,k.
var a: array[1..100, 1..100] of integer;
i, j, k: integer;
…
Нужно переписать программу с питона Python на паскаль PascalABC.net, но не получается
n = int(input())
a = []
m0 = 0
m1 = 0
ms = 0
for i in range(6):
a.append(int(input()))
a.append(0)
for i in range(6, n):
a[6] = int(input())
if a[0] % 2 == 0 and a[0] > m0:
m0 = a[0]
if a[0] % 2 == 1 and a[0] >…
Помогите перевести код из Pascal в Python
Вот мой код на Pascal:
Var A,k:integer;
Begin
k:=0;
Read(A);
While A <> 0 do
Begin
Read(A);
k:=k+1;
End;
Write(k)
End.
Вот текст задачи:
Программа получает на вход последовательность целых неотрицательных чисел, каждо…
Помогите перевести код из Pascal в Python
Вот мой код на Pascal:
Var A,k:integer;
Begin
k:=0;
Read(A);
While A <> 0 do
Begin
Read(A);
k:=k+1;
End;
Write(k)
End.
Вот текст задачи:
Программа получает на вход последовательность целых неотрицательных чисел, каждо…
Перевести код на Python с Pascal [закрыт]
uses Crt;
Var Imja1, Imja2: String;
R1, R2, v1, v2: LongInt;
S1, S2, T1, T2: Real;
begin ClrScr;
write(‘ Ввести имена двух планет: ‘);
ReadLn(Imja1, Imja2);
writeln(‘ Ввести радиусы орбит планет: ‘);
ReadLn(R1, R2);
writeln(‘ Ввести ско…
ПЕРЕВЕСТИ С ПАСКАЛЯ НА ПИТОН ребят побыстрее [закрыт]
write (‘Input first number: ‘);
readln (x);
write (‘Input second number: ‘);
readln (y);
writeln (‘x = ‘, x, ‘, y = ‘, y);
writeln (‘Changing values… changing values…’);
b := x;
x := y;
y := b;
writeln (‘x = ‘, x, ‘, y = ‘, y);
…
Заштрихованная область [закрыт]
Что писать в if? Я очень долго думал, но никак не могу придумать. Нужно определить входит ли точка с координатами (x, y) в закрашенную область.
…
Битва языков программирования 2020 продолжается!
Первый день голосования закончился. По его итогам Swift уверенно обошёл PHP, а Kotlin немного не дотянул до Java. Смотрите результаты здесь. Сегодня соревнуются следующие две пары языков: Assembler/Pascal и С++/Cobol.
— Читать дальше «Битва языков про…
Помогите перевести код с паскаля на питон пожалуйста [закрыт]
const N = 10;
var
arr: array[1..N] of byte;
i, k: byte;
begin
randomize;
for i:=1 to N do begin
arr[i] := random(80);
write(arr[i]:3);
end;
writeln;
for i:=1 to N-1 do
for k:=i+1 to …
Примите участие в баттле языков программирования 2020. Старт уже завтра!
В то время как Java и язык Си меняются местами на вершине рейтинга TIOBE, мы решили выяснить, какие языки программирования, наши подписчики любят больше всего. Завтра начинается баттл языков программирования
— Читать дальше «Примите участие в баттле я…
пожалуйста помогите Перевести программу с паскаля на Си++ [закрыт]
uses crt;
var a:array[1.100] of real;
n,i:byte;
s,e:real;
begin
clrscr;
writeln(‘n ‘);
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:+s+a[i];
end;
s:=s/n;
for i:=1 to n do
write(a[i],’ ‘);
writeln;
if s>=0 th…
Задача про автобусные остановки [закрыт]
Предыдущий топик другого юзера удалили( тогда продублирую я.
Задача
Автобусные остановки расположены через каждые K метров от начала улицы, то есть на расстоянии 0, K, 2K, 3K и т.д. метров от начала. Света прошла от начала улицы N метров, …
Перевести из Pascal на С++ или Java
Прошу прощения, столкнулся с проблемой… Не могу перевести код из Pascal в Java
Pascale:
var
uzel,otrezok,i:integer;
begin
readln(uzel,otrezok);
for i:=1 to trunc(sqrt(uzel)) do
if i*(uzel div i)=uzel then
begin
…
В заданной последовательности неотрицательных чисел найти количество сумм двух ее элементов, которая кратна 2 [закрыт]
l = [5,3,6,1,2,4]
Количество уникальных сумм, которые кратны 2, равно 4.
Мне нужно написать код, который будет выполнять условия.
Международная олимпиада по программированию Proggy-Buggy Contest 2020
Олимпиада пройдёт в весёлой атмосфере и предназначена для всех энтузиастов программирования: учеников, студентов, тестировщиков и других.
— Читать дальше «Международная олимпиада по программированию Proggy-Buggy Contest 2020»
…
Строки наоборот [закрыт]
В файле записано несколько строк текста (не более 100). Каждая строка содержит не более 100 символов (не считая символов окончания строки). Требуется написать программу, выводящую те же строки в том же порядке, только каждая строка «перевё…
Сделать из pascal в java
Program Premier_liga_2;
var B, Diff: array [1..16] of integer;
Team: array[1..16] of string;
I, K, X, Z, P: integer;
St: string;
begin
writeln(‘Введите названия команд и полученные ими очки’);
for I:=1 to 16 do
begin
write(I…
Перевести код на Паскале в код Java
program File51;
var
S1,S2,S3,S4: String;
F1,F2,F3,F4: File of Real;
El1,El2,El3:Real;
File1end,File2end,File3end:boolean;
Function comparison(A,B,C:Real; Ba,Bb,Bc:Boolean): Boolean;
begin
if not(Ba) and not(Bb) and not(Bc) then
if (…
Нужно из паскаля перевести в питон [закрыт]
Var
s: real;
begin
write(‘Введите сумму покупки: ‘);
readln(s);
if s > 1000 then
s := s * (1 – 0.05)
else if s > 500 then
s := s * (1 – 0.03);
writeln(‘Сумма покупки с учетом скидки: ‘, s…
Перевести несколько строчек кода из Паскаля в Питон
Доброе утро.Имеется строчка кода в Паскале
if f(x)>x+3 then inc(k)
Как она будет выглядеть в питоне?
Нужно,чтобы конечный код показывал кол-во точек,расположенных выше прямой y=x+3
Вот код,который я написал в Питоне
from math impo…
Нужно перевести программу из Pascal в Python. Нужно срочно [закрыт]
program zadanie10;
var x,y,a: integer;
begin writeln(‘Введите значения x и y’);
readln(x,y);
if x>y then
begin a:=x;
x:=y;
y:=a;
writeln(‘x=’,x);
writeln(‘y=’,y);
end;
end.
“”
program zadanie12;
var x, y: integer;
begin wri…
Помогите преобразовать код из Pascal в Python
Вот исходный код:
program Si-Re-Ti;
uses
SysUtils;
const
y1_t=-3000;
y2_t=250;
y3_t=350;
y12_t=90;
y13_t=150;
y23_t=200;
y123_t=225;
y1_r=10000;
y2_r=350;
y3_r=400;
y12_r=2000;
y13_r=2800;
y23_r=500;
y123_r=900;
var
Si, Re, Ti: inte…
Преобразование кода из Pascal в Python
program Si-Re-Ti;
uses
SysUtils;
const
y1_t=-3000;
y2_t=250;
y3_t=350;
y12_t=90;
y13_t=150;
y23_t=200;
y123_t=225;
y1_r=10000;
y2_r=350;
y3_r=400;
y12_r=2000;
y13_r=2800;
y23_r=500;
y123_r=900;
var
Si, Re, Ti: integer;
b123_t,b12_t…
Translate Pascal — Java [закрыт]
Help.
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,k:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write(‘Размер массива до ‘,nmax,’ n=’);
readln(n);
until n in [1..nmax];
writeln(‘Исходный массив:’);
for …
Свежие комментарии