RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
... Консультация # 189407: Здравствуйте! Прошу помощи в следующем вопросе: cоставить блок-схему по программе Напишите программу, увеличивающую каждый элемент матрицы А(n,m)в 3 раза и сохраняющую результат в виде второй матрицы. собственно программа ниже Код (Pascal) :: Консультация # 189408: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу для Паскаля: Найдите сумму и количество положительных, отрицательных элементов массива, попавших в интервал [ a;b].... Консультация # 189409: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу на языке Паскаль: Найдите количество элементов массива с четными и нечетны- ми значениями... Консультация # 189410: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке Паскаль: Найдите количество элементов массива с целым и и дробным \и значениями ... Консультация # 189411: Здравствуйте! У меня возникли сложност и с таким вопросом: написать программу на языке Паскаль: Найдите суммы элементов массива четных и нечетных пози- ций.... Консультация # 189413: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке Паскаль: В массиве найдите элементы , корни кубические из которых, являлись бы целыми числами, и выведите эти элементы на экран. ... Консультация # 189414: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу на языке Паскаль: Создайте массив В из простых элементов массива А . ... Консультация # 189415: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке Паскаль: Создайте массив В из преобразованных по формуле cos(a [i]) элементов массива А .... Консультация # 189416: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу на языке Паскаль: Дан массив X , создайте массив Y , состоящий из элементов, имеющих четные номера и массив Z, состоящий из элементов, имеющих нечетные ном ера. Вы ведите массивы Y и Z на экран. ... Консультация # 189417: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке Паскаль: Создайте массив Y из отрицательных элементов массива Х и массив Z, из положительных элементов массива Х . Вы ведите новые масси- вы на экран. ... Консультация # 189418: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке Паскаль: В массиве X поменяйте местам и соседние элементы каждой пары и выведите новый массив. ... Консультация # 189419: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке Паскаль: В массиве С поменяйте местами первый и последний, второй и предпоследний и т.д. элементы . Вы ведите новый массив на экран. ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Код (Pascal) :: выделить код const
n=10;
var
a:array[1..n]of integer;
b:integer;
begin
{создаем массив}
for b:=1 to n do
begin
a[b]:=random(100);
write(a[b]:4);
end;
writeln;
{выводим результат}
for b:=1 to n div 2 do
write(a[b]+a[n-b+1]:4);
writeln;
end.
Дата отправки: 18.05.2016, 16:51 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Блок-схема в прикреплённом файле.
Здравствуйте! Прошу помощи в следующем вопросе: Код (Pascal) :: выделить код const
n=5;
m=6;
type
tMas=array[1..n,1..m]of integer;
var
a,b:tMas;
c,d:integer;
begin
{создаем матрицу}
for c:=1 to n do
begin
for d:=1 to m do
begin
a[c,d]:=random(100);
write(a[c,d]:4);
end;
writeln;
end;
{умножаем матрицу}
for c:=1 to n do
for d:=1 to m do
b[c,d]:=3*a[c,d];
{выводим результат}
writeln;
for c:=1 to n do
begin
for d:=1 to m do
write(b[c,d]:4);
writeln;
end;
end.
Дата отправки: 18.05.2016, 16:52 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Блок-схема в прикреплённом файле.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 18.05.2016, 16:54 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код uses
crt;
const
n=20;
var
a,b,c,d,e,g,h:integer;
z:array[1..n]of integer;
begin
{вводим диапазон}
repeat
write('Enter A:');
readln(a);
until(0<a)and(a<n);
repeat
write('Enter B:');
readln(b);
until(a<b)and(b<n);
writeln;
{создаем массив}
for c:=1 to n do
begin
TextColor(15);{цвет обычный}
z[c]:=25-random(50);{создаем элемент массива}
if(a<=c)and(c<=b)then{проверяем диапазон}
begin
if z[c]>0 then{считаем только положительные}
begin
d:=d+z[c];
inc(e);
end;
if z[c]<0 then{считаем отрицательные}
begin
g:=g+z[c];
inc(h);
end;
TextColor(10);{выделяем диапазон}
end;
write(z[c]:4);{выводим элемент}
end;
writeln;{выводим результат}
writeln('positive summa:',d:5,'count:':10,e);
writeln('negative summa:',g:5,'count:':10,h);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 18.05.2016, 16:59 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
c,d,e:integer;
z:array[1..n]of integer;
begin
for c:=1 to n do
begin
z[c]:=25-random(50);{создаем элемент}
if odd(z[c])then inc(d) else inc(e);{считаем чет/нечет}
write(z[c]:4);{выводим элемент}
end;
writeln;
writeln('even:',d:5);{четные}
writeln('odd :',e:5);{нечетные}
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:01 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код var
x: array[1..10] of real;
i, a, b: integer;
begin
a:= 0;
b:= 0;
{создаем массив x}
writeln('vvedite chisla massiva');
for i:= 1 to 10 do
readln(x[i]);
for i:= 1 to 10 do
write(x[i]:3);
writeln;
{считаем целые и дробные элементы}
for i:= 1 to 10 do
if frac(x[i]) = 0 then
inc(a)
else
inc(b);
{выводим результат}
write('kol-vo chelyh elementov ');
writeln(a);
write('kol-vo drobnyh elementov ');
writeln(b);
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:02 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код {$APPTYPE CONSOLE}
uses
SysUtils;
var
a: array[1..10] of integer;
i, x, y: integer;
begin
x:= 0;
y:= 0;
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
{находим суммы чётных и нечётных позиций}
for i:= 1 to 10 do
begin
if i mod 2 = 0 then
x:= x + a[i]
else
y:= y + a[i];
end;
{выводим результат}
write('summa chetnyh ');
write(x);
writeln;
write('summa ne chetnyh ');
write(y);
end.
Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
c,d,e:integer;
z:array[1..n]of integer;
begin
for c:=1 to n do
begin
z[c]:=random(50);{создаем элемент}
if odd(c)then d:=d+z[c] else e:=e+z[c];{суммируем п заданию}
write(z[c]:3);
end;
writeln;{выводим результат}
writeln('summa odd position:',d:5);
writeln('summa even position:',e:5);
end.И с произведением: Код (Pascal) :: выделить код const
n=20;
var
c,d,e:integer;
z:array[1..n]of integer;
begin
d:=1;
e:=1;
for c:=1 to n do
begin
z[c]:=random(50);{создаем элемент}
if odd(c)then d:=d*z[c] else e:=e*z[c];{умножаем по заданию}
write(z[c]:3);{}
end;
writeln;{выводим результат}
writeln('summa odd position:',d:5);
writeln('summa even position:',e:5);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:04 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код :: выделить код var
a: array[1..10] of integer;
i: integer;
kor: real;
begin
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
{ищем корни кубические и выводим элементы}
for i:= 1 to 10 do
begin
if a[i] > 0 then
kor:= Exp(Ln(a[i]) / 3)
else
if a[i] = 0 then
kor:= 0
else
kor:= -Exp(Ln(-a[i]) / 3);
if Frac(kor) = 0 then
writeln(a[i]: 3);
end;
end.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 18.05.2016, 17:06 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код :: выделить код var
a: array[1..10] of integer;
b: array of integer;
i, x, y, j: integer;
begin
j:= 1;
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i]:3);
end;
writeln;
{ищем простые числа массива a и создаём новый}
for i:= 1 to 10 do
begin
x:= 0;
if a[i] >= 2 then
begin
for y:= 2 to (a[i] div 2) do
if (a[i] mod y) = 0 then
inc(x);
if x = 0 then
begin
SetLength(b, j + 1);
b[j]:= a[i];
inc(j)
end;
end;
end;
{выводим массив b}
for i:= 1 to j - 1 do
write(b[i]:3);
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:07 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код var
a: array[1..10] of integer;
b: array[1..10] of real;
i: integer;
begin
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
{получаем массив b}
for i:= 1 to 10 do
b[i]:= cos(a[i]);
{выводим результат}
for i:= 1 to 10 do
begin
b[i]:= random(100);
write(b[i]:3);
end;
writeln;
end.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 18.05.2016, 17:08 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код var
x: array[1..10] of integer;
y, z: array of integer;
i, a, b: integer;
begin
a:= 1;
b:= 1;
{создаем массив a}
for i:= 1 to 10 do
begin
x[i]:= random(10);
write(x[i]:3);
end;
writeln;
{ищем чётные номера массива x и создаём новые массивы}
for i:= 1 to 10 do
begin
if (i mod 2) = 0 then
begin
SetLength(y, a + 1);
y[a]:= x[i];
inc(a);
end
else
begin
SetLength(z, b + 1);
z[b]:= x[i];
inc(b);
end;
end;
{выводим массив y}
write('massiv iz chethyx nomerov');
for i:= 1 to a - 1 do
write(y[i]:3);
writeln;
{выводим массив z}
write('massiv iz nechethyx nomerov');
for i:= 1 to b - 1 do
write(z[i]:3);
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:09 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код var
x: array[1..10] of integer;
y, z: array of integer;
i, a, b: integer;
begin
a:= 1;
b:= 1;
{создаем массив a}
writeln('vvedite chisla massiva');
for i:= 1 to 10 do
begin
readln(x[i]);
end;
writeln;
for i:= 1 to 10 do
begin
write(x[i]:3);
end;
writeln;
{ищем положительные элементы массива x и создаём новые массивы}
for i:= 1 to 10 do
begin
if x[i] < 0 then
begin
SetLength(y, a + 1);
y[a]:= x[i];
inc(a);
end
else
begin
SetLength(z, b + 1);
z[b]:= x[i];
inc(b);
end;
end;
{выводим массив y}
write('massiv iz otrichatelnih elementov');
for i:= 1 to a - 1 do
write(y[i]:3);
writeln;
{выводим массив z}
write('massiv iz polozhitelnih elementov');
for i:= 1 to b - 1 do
write(z[i]:3);
end.
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:10 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код var
x, y: array[1..10] of integer;
i: integer;
begin
{создаем массив x}
for i:= 1 to 10 do
begin
x[i]:= random(10);
write(x[i]:3);
end;
writeln;
{создаём новый массив y}
i:= 1;
repeat
begin
y[i]:= x[i + 1];
y[i + 1]:= x[i];
inc(i, 2);
end;
until
i > 10;
{выводим массив y}
for i:= 1 to 10 do
write(y[i]:3);
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:11 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
c:array[1..n]of integer;
a,b,d:integer;
begin
{создаем массив С}
writeln('Massiv C:');
randomize;
for a:=1 to n do
begin
c[a]:=random(100);{новый элемент массива}
write(c[a]:5);{выводим его}
end;
writeln;
{начальные индексы}
a:=1;
b:=n;
{меняем пока А<B}
while a<b do
begin
{обмен элементов}
d:=c[a];
c[a]:=c[b];
c[b]:=d;
inc(a);{увеличиваем начальный индекс}
dec(b);{уменьшаем конечный индекс}
end;
{выводим измененый массив}
writeln('new massiv C:');
for a:=1 to n do
write(c[a]:5);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
