| ← Октябрь 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
||
|
16
|
17
|
18
|
19
|
|||
|
23
|
24
|
25
|
26
|
27
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 196798: Здравствуйте! Прошу помощи в следующем вопросе: Звдача в скрине Pascal... Консультация # 196799: Здравствуйте! У меня возникли сложности с таким вопросом: Pascal... Консультация # 196800: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Массив из чисел от -10 до 20. Вывести на экран значение каждого пятого положительного элемента. Указанные элементы вывести в строку Pascal ... Консультация # 196801: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K]. Pascal ... Консультация # 196802: Здравствуйте! Прошу помощи в следующем вопросе: Вычислить сумму квадратов отрицательных чисел, лежащих выше побочной диагонали. задается квадратная матрица NxN. Pascal ... Консультация # 196803: Здравствуйте! Прошу помощи в следующем вопросе: Введите с клавиатуры в массив десять целочисленных значений. Выведите их в одну строку через запятую. Отсортировать по возрастанию и вывести полученный массив на экран. Pascal ... Консультация # 196804: Здравствуйте! Прошу помощи в следующем вопросе: Составьте программу упорядочения по возрастанию элементов каждой строки двумерного массива C[1.5, 1..6]. Массив заполнен случайными целыми числами от -20 до 20 Pascal ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 24.10.2019, 21:11 Консультирует puporev (Профессионал): Здравствуйте, rail! Код (Pascal) :: выделить код var a:array[1..100] of integer;
n,i,mx:integer;
p:real;
begin
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [1..100];
randomize;
writeln('Массив');
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i]:4);
end;
writeln;
mx:=a[1];
p:=1;
for i:=1 to n do
begin
if a[i]>mx then mx:=a[i];
if odd(i)then p:=p*a[i];
end;
writeln('Произведение элементов с нечетными номерами=',p:0:0);
writeln('Максимальный элемент=',mx)
end.
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 25.10.2019, 11:49 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Satana666! © Цитата: Satana666 Нужно чтобы в ответе получилось t=0.564849 Вот Вам скрин, Вы их так любите  первый результат по Вашей формуле, второй по этой:  Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 25.10.2019, 11:50 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Satana666! Код (Pascal) :: выделить код type
f=function(a:real):real;
var
a:integer;
b,x,y:real;
z:f;
function f3(a:real):real;
begin
f3:=a*a*a;
end;
{$f+}
function f2(a:real):real;
begin
f2:=a*a;
end;
function fe(a:real):real;
begin
fe:=exp(a);
end;
function fs(a:real):real;
begin
fs:=(exp(a)-exp(-a))/2
end;
{$f-}
begin
write('enter x:');
readln(x);
Write('enter y:');
readln(y);
repeat
write('select function 1: sqr(x); 2: sh(x) 3: exp(x):');
readln(a);
until a in [1..3];
case a of
1:z:=f2;
2:z:=fs;
3:z:=fe;
end;
if y=0 then
begin
if x=0 then
begin
b:=f3(f2(x)+y);
write('b=',b:0:9)
end
else write('result undefined');
end
else
begin
if x/y>0 then b:=ln(z(x))+f3(f2(z(x))+y)
else if x/y<0 then b:=ln(abs(z(x)/y))+f3(z(x)+y);
write('b=',b:0:9)
end;
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 25.10.2019, 12:05 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, rail! Код (Pascal) :: выделить код const
n=40;
var
a:array[1..n]of integer;
b,c,d:integer;
begin
c:=4;
for b:=1 to n do
begin
a[b]:=random(30)-10;
write(a[b]:4);
if c=0 then
begin
writeln;
c:=5;
end else dec(c);
end;
writeln;
c:=5;
writeln('result:');
for b:=1 to n do
if a[b]>0 then
begin
dec(c);
if c=0 then
begin
write(a[b]:4);
c:=5;
end;
end;
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 25.10.2019, 12:06 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, rail! Код (Pascal) :: выделить код const
n=20;
var
a:array[1..n]of integer;
b,c,d,m,k:integer;
begin
d:=0;
c:=0;
repeat
write('enter m [',-n,'..',n,']:');
readln(m)
until (m+n) in [0..2*n];
repeat
write('enter k [',m,'..',n,']:');
readln(k)
until(k+n) in [m+n..2*n];
for b:=1 to n do
begin
a[b]:=random(2*n)-n;
write(a[b]:4);
if not odd(b)then d:=d+a[b];
if (a[b]+n) in [m+n..k+n]then inc(c)
end;
writeln;
writeln('result summa:',d);
writeln('result count:',c);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 25.10.2019, 12:11 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, rail! Код (Pascal) :: выделить код const
n=7;
var
a:array[1..n,1..n]of integer;
b,c,d:integer;
begin
d:=0;
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(2*n)-n;
write(a[b,c]:4);
if(a[b,c]<0)and((b+c-1)<n)then d:=d +a[b,c]*a[b,c];
end;
writeln;
end;
writeln('result:',d);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 25.10.2019, 13:05 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, rail! Код (Pascal) :: выделить код var
a:array[1..10]of integer;
b,c,d:integer;
begin
for b:=1 to 10 do
begin
write('a[',b,']:=');
readln(a[b]);
end;
for b:=1 to 9do
write(a[b],',');
writeln(a[10]);
for b:=1 to 9 do
for c:=b+1 to 10 do
if a[b]>a[c]then
begin
d:=a[c];
a[c]:=a[b];
a[b]:=d;
end;
writeln('result:');
for b:=1 to 9 do
write(a[b],',');
writeln(a[b]);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 25.10.2019, 13:06 Консультирует puporev (Профессионал): Здравствуйте, rail! Код (Pascal) :: выделить код const m=5;
n=6;
var c:array[1..m,1..n] of integer;
i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=-20+random(41);
write(c[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if c[i,j]>c[i,k] then
begin
x:=c[i,j];
c[i,j]:=c[i,k];
c[i,k]:=x;
end;
writeln('Массив с отсортированными строками');
for i:=1 to m do
begin
for j:=1 to n do
write(c[i,j]:4);
writeln;
end;
end.
Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, rail! Код (Pascal) :: выделить код const
n=20;
var
a:array[1..5,1..6]of integer;
b,c,d,e:integer;
begin
d:=0;
for b:=1 to 5 do
begin
for c:=1 to 6 do
begin
a[b,c]:=random(2*n)-n;
write(a[b,c]:4);
end;
writeln;
end;
for b:=1 to 5 do
for c:=1 to 5 do
for d:=c+1 to 6 do
if a[b,c]>a[b,d]then
begin
e:=a[b,c];
a[b,c]:=a[b,d];
a[b,d]:=e;
end;
writeln('result:');
for b:=1 to 5 do
begin
for c:=1 to 6 do
write(a[b,c]:4);
writeln;
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
