RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 189421: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу на языке Паскаль: Сравните элементы двух массивов между собой , определите количество равных элементов массивов . Вы ведите эти элементы на экран ... Консультация # 189423: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке Паскаль: Найдите сумму соответствующих элементов массивов X и Y и запишите результат в нов ый массив Z. ... Консультация # 189424: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке Паскаль: Выведите отдельно целые и дробные части элементов массива В... Консультация # 189425: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке Паскаль : Определите количество и сумм у элементов одномерного мас- сива, попавших в заданный интервал [a,b]. ... Консультация # 189426: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: написать программу на языке паскаль: Определите есть ли в массиве А элементы с одинаковыми зна- чениями . Выведите их на экран ... Консультация # 189427: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке паскаль : В массиве А поменяйте местами максимальный и минималь- ный элементы массива ... Консультация # 189428: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке паскаль: Создайте массив С из элементов массива А кратных 3. Найди- те сумму и количество элементов нового массива... Консультация # 189429: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке паскаль: Найдите сумму максимального и минимального элементов массива... Консультация # 189430: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке паскаль: Найдите максимальный и минимальный элементы массива, в заданном интервале [a,b] ... Консультация # 189431: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: написать программу на языке паскаль: Выведите на экран значения квадратов и квадратных корней каждого элемента массива.... Консультация # 189433: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке паскаль: Найдите максимальный и минимальный элементы массива . Максимальный элемент массива поместите в конце массива, минимальный элемент массива в начале массива. ... Консультация # 189434: Здравствуйте! Прошу помощи в следующем вопросе: написать пр ограмму на языке паскаль: Составить программу, которая формирует одномерный мас- сив из 15 вещественных случайных чисел. Проведите сортировку массива по убыванию ... Консультация # 189435: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу на языке паскаль: Дан массив, состоящий из 9 элементов. Программа берет пер- вые три элемента и подставляет их в квадратное уравнение вида a*x^2+ bx+ c= 0, вместо коэффициентов а, b, с соответственно и решает это уравнение. Затем со второй и третьей тройкам и чисел. ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 18.05.2016, 17:12 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
c:array[1..n]of integer;
a,b:integer;
begin
{создаем массив}
writeln('Massiv C:');
randomize;
for a:=1 to n do
begin
c[a]:=random(100);{новый элемент массива}
write(c[a]:5);{выводим его}
end;
writeln;
{считаем суммы}
writeln('summa:');
a:=1;
b:=n;
while a<b do
begin
write(c[a]+c[b]:4);{выводим сумму}
inc(a);{увеличиваем индекс}
dec(b);{уменьшаем индекс}
end;
if a=b then write(c[a]:4);{выводим одно число, если кол-во эементов нечетное}
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 18.05.2016, 17:13 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
x,y:array[1..n]of integer;
a,b,c:integer;
begin
{создаем массив Х}
writeln('Massiv X:');
randomize;
for a:=1 to n do
begin
x[a]:=random(100);{новый элемент массива}
write(x[a]:5);{выводим его}
end;
writeln;
{создаем массив Y}
writeln('Massiv Y:');
for a:=1 to n do
begin
y[a]:=random(100);{новый элемент массива}
write(y[a]:5);{выводим его}
end;
writeln;
{считаем совпадения}
c:=0;
writeln('Result:');
for a:=1 to n do
for b:=1 to n do
if x[a]=y[b] then
begin
write(x[a]:5);{выводим совпавшее}
inc(c);{увеличиваем счетчик}
end;
writeln;
{выводим сообщение, что нет совпадений или их количество}
if c=0 then writeln('there are not identical.')
else writeln('count:=',c);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:15 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
x,y,z:array[1..n]of integer;
a,b,c,d:integer;
begin
{создаем массив Х}
writeln('Massiv X:');
randomize;
for a:=1 to n do
begin
x[a]:=random(100);{новый элемент массива Х}
write(x[a]:8);{выводим его}
end;
writeln;
{создаем массив Y}
writeln('Massiv Y:');
for a:=1 to n do
begin
y[a]:=random(100);{новый элемент массива Y}
write(y[a]:8);{выводим его}
z[a]:=x[a]+y[a];{суммируем с массивом Х, получаем Z}
end;
writeln;
{выводим массив Z}
writeln('Massiv Z:');
for a:=1 to n do
write(z[a]:8);{выводим элемент массива}
writeln;
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:15 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
z:array[1..n]of real;
a,b,c,d:integer;
begin
{создаем массив}
writeln('Massiv:');
randomize;
for b:=1 to n do
begin
z[b]:=50*random;{новый элемент}
write(z[b]:10:7);{выводим его}
end;
writeln;
{выводим целые части отдельно}
writeln('integer part:');
for b:=1 to n do
write(trunc(z[b]):10);
writeln;
{выводим дробные части отдельно}
writeln('fractional part:');
for b:=1 to n do
write(frac(z[b]):10:7);
writeln;
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:16 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
z:array[1..n]of integer;
a,b,c,d:integer;
begin
{создаем массив}
writeln('Massiv:');
randomize;
for b:=1 to n do
begin
z[b]:=random(100);{новый элемент}
write(z[b]:3);{выводим}
end;
writeln;
{вводим нижнюю границу интервала}
repeat
write('Enter A:');
readln(a);
until(0<a)and(a<n);
{вводим верхнюю границу интервала}
repeat
write('Enter B:');
readln(b);
until(a<b)and(b<=n);
{суммируем интервал}
for c:=a to b do
d:=d+z[c];
{выводим результат}
writeln('count:=',b-a+1,'summa:=':10,d);
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 18.05.2016, 17:17 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
a:array[1..n]of integer;
b,c,d:integer;
begin
{создаем массив}
writeln('Massiv A:');
randomize;
for b:=1 to n do
begin
a[b]:=random(100);{новый элемент}
write(a[b]:3);{выводим}
end;
writeln;
{поиск одинаковых значений}
write('Result:');
c:=0;
for b:=1 to n-1 do
for d:=b+1 to n do
if a[b]=a[d] then{сравниваем значения}
begin
write(a[b]:3);{выводим найденое}
inc(c);{считаем их количество}
end;
{выводим сообщение об отсутствии совпадений}
if c=0 then writeln('there are not identical.');
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:18 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
a:array[1..n]of integer;
b,c,d:integer;
begin
d:=1;{максимальный}
c:=1;{минимальный}
{создаем массив}
randomize;
for b:=1 to n do
begin
a[b]:=random(100);{новый элемент}
write(a[b]:3);{выводим}
if a[b]>a[d]then d:=b;{проверяем максимум}
if a[b]<a[c]then c:=b;{проверяем минимум}
end;
{меняем местами}
writeln;
b:=a[d];
a[d]:=a[c];
a[c]:=b;
{выводим результат}
for b:=1 to n do
write(a[b]:3);
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:20 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
a,c:array[1..n]of integer;
b,d,e:integer;
begin
d:=0;{счетчик-индекс нового массива}
e:=0;{сумма нового массива}
writeln;
writeln('Massiv A:');
randomize;
for b:=1 to n do
begin
a[b]:=random(100);{создаем новый элемент массива}
write(a[b]:3);{выводим}
if(a[b] mod 3)=0 then{проверяем кратность}
begin
inc(d);{увеличиваем счетчик}
c[d]:=a[b];{запоминаем значение}
e:=e+c[d];{считаем сумму}
end;
end;
writeln;
{выводим результат работы}
writeln('Massiv C:');
writeln('count:=',d,'summa:=':10,e);
if d>0 then
for b:=1 to d do write(c[b]:3)
else writeln('does not exist');
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:20 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
a:array[1..n]of integer;
b,c,d:integer;
begin
d:=1;{максимальный}
c:=1;{минимальный}
{создаем массив}
randomize;
for b:=1 to n do
begin
a[b]:=random(100);{новый элемент}
write(a[b]:3);{выводим}
if a[b]>a[d]then d:=b;{проверяем максимум}
if a[b]<a[c]then c:=b;{проверяем минимум}
end;
{выводим результат}
writeln;
writeln('A[',c:2,']+A[',d,']=',a[c],'+',a[d],'=',a[c]+a[d]);
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:21 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=20;
var
z:array[1..n]of integer;
a,b,c,d,e: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);
c:=a;{максимальное}
d:=a;{минимальное}
for e:=1 to n do
begin
z[e]:=random(100);{получаем новый элемент массива}
write(z[e]:4);{выводим элемент массива}
if(a<=e)and(e<=b)then{проверяем диапазон}
begin
if z[e]>z[d]then d:=e;{новое максимальное}
if z[e]<z[c]then c:=e;{новое минимальное}
end;
end;
{выводим результат}
writeln('minimum:=',z[c],'maximum:=':15,z[d]);
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 18.05.2016, 17:22 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (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);
writeln('A[',b:2,']:=',a[b]:4,'sqrt(':10,a[b]:3,'):=',sqr(a[b]):5,'sqrt(':10,a[b]:3,'):=',sqrt(a[b]):10:7);
end;
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 18.05.2016, 17:29 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=10;
var
a:array[1..n]of integer;
b,c:integer;
begin
{создаем массив}
randomize;
for b:=1 to n do
begin
a[b]:=random(100);
write(a[b]:5);
end;
writeln;
{ищем минимум}
for b:=2 to n do
if a[1]>a[b]then
begin
c:=a[1];
a[1]:=a[b];
a[b]:=c;
end;
{ищем максимум}
for b:=2 to n-1 do
if a[n]<a[b]then
begin
c:=a[n];
a[n]:=a[b];
a[b]:=c;
end;
{выводим массив}
for b:=1 to n do
write(a[b]:5);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 18.05.2016, 17:32 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=15;
var
i,j:integer;
a:array[1..n]of real;
b:real;
begin
{создаем массив}
for i:=1 to n do
begin
a[i]:=100*random;
write(a[i]:16:10);
end;
writeln;
{сортировка массива}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j]then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
{вывод массива}
writeln;
for i:=1 to n do
write(a[i]:16:10);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 18.05.2016, 17:34 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код var
i:integer;
z:array[1..9]of integer;
procedure calc(a,b,c:integer);
var
d:integer;
begin
d:=b*b-4*a*c;{дискриминант}
if d>0 then writeln('x1:=',(sqrt(d)-b)/(2*a),'x2:=':10,(-sqrt(d)-b)/(2*a)){два корня}
else if d=0 then writeln('x:=',-b/(2*a)){один корень}
else writeln('only complex root');{нет действительных корней}
end;
begin
for i:=1 to 9 do{вводим массив}
begin
write('Enter z[',i,']:=');
readln(z[i]);
end;
for i:=0 to 2 do{считаем корни}
calc(z[3*i+1],z[3*i+2],z[3*i+3]);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
