Delphi - Помогите решить задачу(Pascal)

[verdix]

1) С клавиатуры ввести 5 чисел, вывести масив, сосчитать сумму негативных чисел.

2) Заполнить двумерный масив 5х8 рандомными числами, в диапозоне от -5 до 5. Вывести на экран. Сосчитать сумму элементов, каторые находятся под главной диагональю.

3) Дана матрица с позитивными числами 4х4. Вввести элементы с клавиатуры. Найти четные числа. Вывести матрицу и результат.

4) Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. Сосчитать сумму элементов, которые находятся во втором ряду.

Зарание спасибо.

[Admiral]

Зачем же тему уже создали

Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC)

?

Как раз по содержанию первого поста может подойти.

Понимаю, индивидуализм. А собственно в чём то помощь требуется? Есть какие-то загвостки в исходнике или отсутствие полного понимания вопроса?

Для первого или второго случая подойдёт в разной степени этот линк

Лабы Pascal

[Admiral]

Admiral,


Цитата:



Понимаю, индивидуализм. А собственно в чём то помощь требуется? Есть какие-то загвостки в исходнике или отсутствие полного понимания вопроса?



Если ты знаешь язык, то я очень за тебя рад. Я его не знаю!

[Barrel]

я ващев pascal не врубаюсь

[verdix]

Цитата verdix:



негативных чисел

Delphi - Помогите решить задачу(Pascal)

несколько оффтоповый вопрос, а как понимать, слово - негативные, это значит, отрицательные?!
Цитата verdix:



позитивными числами

Delphi - Помогите решить задачу(Pascal)

значит позитивные - это положительные.




Цитата verdix:



Сосчитать сумму элементов, каторые находятся под главной диагональю.

Delphi - Помогите решить задачу(Pascal)

И ещё не понимаю, какую диагональ считать главной? Если их две...

[Admiral]

verdix, сорри, не хотел обидеть.

Я просто по теме не понять в чём заключается помощь: в самом решении примеров или в подсказке по их решению?

Погуляй пока по той ссылке, что я дал, найди приблизительный пример, попробуй подогнать его к твоим задачам, если что не так будет выходить кидай его в тему через тег {code} будем разбираться всем форумом.

Ещё раз сорри если обидел, цели такой себе не ставил.

[Drongo]

Drongo, да это так и есть. Ноль тоже к позитивно-положительным.

Вероятно что та которая длиннее, если не равномерная фигура.

Не те вопросы будут задавать при приёме, а по коду.



В 4м задании
Цитата verdix:



Масив 2х4х3 ... Сосчитать сумму элементов, которые находятся во втором ряду.

Delphi - Помогите решить задачу(Pascal)

трёх мерный массив. О ком втором ряде идёт речь? Там есть варианты.

[verdix]

Drongo,


Цитата:



несколько оффтоповый вопрос, а как понимать, слово - негативные, это значит, отрицательные?!




Цитата:



значит позитивные - это положительные.



ДА, именно это я и имел ввиду. Сорри, с другого языка переводил, допустил ошибку.




Цитата:



ещё не понимаю, какую диагональ считать главной? Если их две...



НУ вот, их две, выбираем которая главнее и считаем. Больше на эту тему сказать ничего не могу!

[Admiral]

3) Дана матрица с позитивными числами 4х4. Вввести элементы с клавиатуры. Найти четные числа. Вывести матрицу и результат.






читать дальше »

Код: Выделить всё

//3) Дана матрица с позитивными числами 4х4. Вввести элементы с клавиатуры. Найти четные числа. Вывести матрицу и результат.
#include <iostream.h>
using std::cout;
using std::cin;
using std::endl;
int main()
{
  int const a = 4;
  int const b = 4;
  int array[a][b] = {0};
  int summNegativ = 0,
      z;
  for(int i = 0; i < a; i++){
     for(int j = 0; j < b; j++){
        cout<<" Element [ "<<i<<" ] [ "<<j<<" ] = ";
        cin>>array[i][j];
       }
      }
  cout<<endl<<"-----===Vivod massiva===-----"<<endl;
  for(int i = 0; i < a; i++)
     for(int j = 0; j < b; j++)
     cout<<" Element [ "<<i<<" ] [ "<<j<<" ] = "<<array[i][j]<<endl;
  cout<<endl<<"-----===Rashot chotnih number===-----"<<endl;
  for(int i = 0; i < a; i++){
     for(int j = 0; j < b; j++)
       if((array[i][j] % 2) == 0 && (array[i][j] != 0)){
         summNegativ += array[i][j];
         cout<<" Element [ "<<i<<" ] [ "<<j<<" ] = "<<array[i][j]<<endl;
       }
      }
  cout<<endl<<"-----===Vivod Resultata Rashota chotnih chisel===-----"<<endl;
  cout<<endl<<" Summa Negativnih chisel ravna = "<<summNegativ<<endl;
  cin>>z;
  return 0;
}
//---------------------------------------------------------------------------

Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. Сосчитать сумму элементов, которые находятся во втором ряду.

Но решил только эту часть. Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. вторую не могу, поскольку не могу понять, где второй ряд у трехмерного массива?!



Думаю, это можно перевести на нужный язык?!




читать дальше »

Код: Выделить всё

//4) Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. Сосчитать сумму элементов, которые находятся во втором ряду.
// Но решил только эту часть. Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. вторую не могу, поскольку не могу понять,
// где второй ряд у трехмерного массива.
#include <iostream.h>
using std::cout;
using std::cin;
using std::endl;
#include <cstdlib>
int main()
{
  int const a = 2;
  int const b = 4;
  int const c = 3;
  int array[a][b][c] = {0};
  int summNegativ = 0,
      z;
  for(int i = 0; i < a; i++){
    for(int j = 0; j < b; j++){
      for(int r = 0; r < c; r++){
        array[i][j][r] = rand() % 5;
        cout<<" Element [ "<<i<<" ] [ "<<j<<" ] [ "<<r<<" ] = "<<array[i][j][r]<<endl;
       }
      }
     }
  cin>>z;
  return 0;
}
//---------------------------------------------------------------------------

[Drongo]

Admiral,
Цитата Admiral:



Вероятно что та которая длиннее,

Delphi - Помогите решить задачу(Pascal)

в этом массиве, вернее размерность


Цитата verdix:



5х8

Delphi - Помогите решить задачу(Pascal)

То:





Код:

Код: Выделить всё

1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8

Диагональ, в любом случае одинаковая, либо от первого ряда и 1 и вниз слева направо по рядам к 8 снижается. Либо от первого ряда и 8 и вниз справа налево по рядам к 1 снижается. Не могу толком объяснить, но я знаю, что вы поймёте.