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…
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…
Вот исходный код:
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…
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…
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 …
Нужно переписать в java, точно языка не знаю, возможно excel, вот код:
for j from 0 to W do:
m[0, j] := 0
for i from 1 to n do:
for j from 0 to W do:
if w[i] > j then:
m[i, j] := m[i-1, j]
else:
m[i, j]…
Param5. Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного массива A размера N следующим образом: элемент AK заменяется на среднее арифметическое первых K исходных элементов массива A. Массив A является входным и выходн…
Var a:array [1 … 10, 1 … 10] of integer;
i, j, max, min, imin, imax, jmin, jmax:integer;
begin
imax:=0; imin:=0; jmax:=0; jmin:=0;
max:=-maxint; min:=maxint;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i, j]:=random (89)…
Пишу миниатюрную IDE для паскаля. Вот очень упрощенный кусок кода:
class MainWindow(QMainWindow):
def __init__(self):
super(MainWindow, self).__init__()
wid = QWidget()
self.lay = QVBoxLayout()
wid.set…
Правда я не знаю, паскаль ли это вообще или какой-то псевдокод…
begin
for i:=1 to k do A[i]:=i;
p:=k;
while p >= 1 do
begin write (A[1],…,A[k]);
if A[k] = n then p:=p – 1 else p:= k;
if p…
Правда я не знаю, паскаль ли это вообще или какой-то псевдокод…
begin
for i:=1 to k do A[i]:=i;
p:=k;
while p >= 1 do
begin write (A[1],…,A[k]);
if A[k] = n then p:=p – 1 else p:= k;
if p…
var a.b:boolean;
.
.
a:=((y>=2-x)and(y<=xx))or((y>=xx)and(y<=4-xx)and(y<=2-x)and(x<=0))
or((y<=xx)and(y>=0)and(y<=2-x))or((y>=4-xx)and(y>=xx)and(x>=0));
b:=((xx+yy<=1)and(((y>=x)and(y<=0))or(y>=abs(x))or((y>=-x)an…
Конструкция 1: две согласных-гласная-две согласных.
Конструкция 2: согласная-две гласные-согласная.
Язык – один из трёх указанных в тэгах
Огромное спасибо за помощь!
…
Конструкция 1: две согласных-гласная-две согласных.
Конструкция 2: согласная-две гласные-согласная.
Язык – один из трёх указанных в тэгах
Огромное спасибо за помощь!
…
var a, b, c, d, e;
for (a = 1; a <= 50; a++) {
for (b = 1; b <= 50; b++) {
for (c = 1; c <= 50; c++) {
for (d = 1; d <= 50; d++) {
for (e = 1; e <= 100; e++) {
if ( (a + c + d == 50)&& (e – 30 + b == 50) ) {
console…
Есть код на паскале и необходимо написать код, работающий также на python:
var
a: array[1..10000] of integer; {исходные данные}
N: integer; {количество элементов последовательности}
max: integer; {вычисляемое контрольное значение}
…
Pascal:
i:=1;
while i<=n do
if a[i] mod c=0 then
begin
n:=n+1;
for j:=n downto i+1 do
a[j]:=a[j-1];
a[i]:=m;
i:=i+2;
end
else i:=i+1;
Не очень разбираюсь в особенность паскаля, поэтому просто мог сделать прямой перевод…
Нужна конвертация этого кода на Pascal в C++
`
var p:real;i,n:integer;
begin
write(‘n=’);
readln(n);
i:=2;
p:=1;
while i<=n do
begin
p:=p*(1-1/sqr(i));
inc(i)
end;
writeln(p)
end.`
Компания Embarcadero в 2018 году представила Delphi Community Edition — бесплатную версию легендарной среды разработки Delphi. Использовать её могут студенты, стартаперы, небольшие команды, некоммерческие организации. Условия использования: лицензия н…
Сообщение Рейтинг языков программирования в динамике (1965-2019) появились сначала на Уголок программиста.
Международная олимпиада для тех, кто владеет любым из следующих языков программирования: C++, Free Pascal, Java, C#, Python, Ruby, PHP, JavaScript.
— Читать дальше «Олимпиада по программированию Proggy-Buggy»
…
Здравствуйте, учусь в 9-м классе, впервые участвую в олимпиаде по программированию. Олимпиада ориентирована на Pascal. Его я знаю плохо(Яву-лучше). Программное обеспечение, установленное на рабочем месте:
Windows
Far manager (Volkov Comma…
Свежие комментарии