Все выпуски  

RFpro.ru: Программирование на Delphi и Lazarus


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Евгений/Genia007/
Статус: Профессионал
Рейтинг: 327
∙ повысить рейтинг »
Асмик Гаряка
Статус: Советник
Рейтинг: 40
∙ повысить рейтинг »
lamed
Статус: Академик
Рейтинг: 0
∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:1686
Дата выхода:23.05.2016, 17:21
Администратор рассылки:Зенченко Константин Николаевич (Модератор)
Подписчиков / экспертов:21 / 18
Вопросов / ответов:13 / 14

Консультация # 189406: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: cоставить блок-схему по программе Найдите сумму первого и последнего, второго и предпоследнего и т.д. элементов массива A(N).. Выведите суммы на экран. собственно программа ниже
Код (Pascal) ::
...
Консультация # 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: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке Паскаль: В массиве С поменяйте местами первый и последний, второй и предпоследний и т.д. элементы . Вы ведите новый массив на экран. ...

Консультация # 189406:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

cоставить блок-схему по программе
Найдите сумму первого и последнего, второго и предпоследнего и
т.д. элементов массива A(N).. Выведите суммы на экран.
собственно программа ниже

Код (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
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/Genia007/ (Профессионал):

Здравствуйте, amelya.kuro! Блок-схема в прикреплённом файле.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 17:22
Прикреплённый файл: посмотреть » [25.5 кб]
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189407:

Здравствуйте! Прошу помощи в следующем вопросе:


cоставить блок-схему по программе
Напишите программу, увеличивающую каждый элемент матрицы
А(n,m)в 3 раза и сохраняющую результат в виде второй матрицы.
собственно программа ниже

Код (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
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/Genia007/ (Профессионал):

Здравствуйте, amelya.kuro! Блок-схема в прикреплённом файле.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 17:27
Прикреплённый файл: посмотреть » [30.0 кб]
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189408:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу для Паскаля: Найдите сумму и количество положительных, отрицательных
элементов массива, попавших в интервал [ a;b].

Дата отправки: 18.05.2016, 16:54
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, 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, 17:42
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189409:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу на языке Паскаль:
Найдите количество элементов массива с четными и нечетны-
ми значениями

Дата отправки: 18.05.2016, 16:59
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, 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, 18:02
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189410:

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль:
Найдите количество элементов массива с целым и и дробным \и
значениями

Дата отправки: 18.05.2016, 17:01
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 21:01
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Консультация # 189411:

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль:
Найдите суммы элементов массива четных и нечетных пози-
ций.

Дата отправки: 18.05.2016, 17:02
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 18:34
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, 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, 18:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189413:

Здравствуйте! Прошу помощи в следующем вопросе:


написать программу на языке Паскаль:
В массиве найдите элементы , корни кубические из которых,
являлись бы целыми числами, и выведите эти элементы на экран.

Дата отправки: 18.05.2016, 17:04
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 18:56
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189414:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу на языке Паскаль: Создайте массив В из простых элементов массива А .

Дата отправки: 18.05.2016, 17:06
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 20:09
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189415:

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль: Создайте массив В из преобразованных по формуле cos(a[i])
элементов массива А .

Дата отправки: 18.05.2016, 17:07
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 18:15
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189416:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу на языке Паскаль: Дан массив X , создайте массив Y , состоящий из элементов,
имеющих четные номера и массив Z, состоящий из элементов, имеющих
нечетные ном ера. Вы ведите массивы Y и Z на экран.

Дата отправки: 18.05.2016, 17:08
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 20:22
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189417:

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль: Создайте массив Y из отрицательных элементов массива Х и
массив Z, из положительных элементов массива Х . Вы ведите новые масси-
вы на экран.

Дата отправки: 18.05.2016, 17:09
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 20:30
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Консультация # 189418:

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль: В массиве X поменяйте местам и соседние элементы каждой
пары и выведите новый массив.

Дата отправки: 18.05.2016, 17:10
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Евгений/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.

Консультировал: Евгений/Genia007/ (Профессионал)
Дата отправки: 18.05.2016, 20:41
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Консультация # 189419:

Здравствуйте! У меня возникли сложности с таким вопросом:
написать программу на языке Паскаль: В массиве С поменяйте местами первый и последний, второй
и предпоследний и т.д. элементы . Вы ведите новый массив на экран.

Дата отправки: 18.05.2016, 17:11
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, 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.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 15:57
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное