Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
 Аватар для snachdota
0 / 0 / 0
Регистрация: 27.07.2015
Сообщений: 11

Сгенерировать массив из 40 целых случайных значений

15.06.2017, 14:42. Показов 3530. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите люди добрые...

  • Написать программу на языке Object Pascal, которая генерирует
    массив, содержащий 40 целых случайных значений из заданного набора (при
    выводе элементов массива на экран располагает значения в 5 столбцов).
    Диапазон значений и количество элементов массива задать как символьные
    константы. Набор значений: 4, 6, 8, 10, 12, 14.
  • Написать программу на языке Object Pascal, которая должна
    находить сумму элементов в двухмерном массиве (размерностью 5 Х 5) случай-
    ных чисел в диапазоне 0 .. 100.
  • Объявить переменную целого типа и указатель на переменную такого же типа.
    Присвоить указателю адрес переменной. Вывести на экран: значение
    переменной, значение адреса, значение, находящееся по указателю.

1 задание Java:

Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
package programmingLanguage;
import java.util.Random;
public class Laba3_1 {
    public static final int ARRAY_LENGTH = 40;
    public static final int BEGIN_RANGE = 1000;
    public static final int RANGE = 112;
    public static void main(String[] args) {
        int[] randomArray = new int[ARRAY_LENGTH];
        fillArrayWithRandomNumbers(randomArray, BEGIN_RANGE, RANGE);
        printArray(randomArray);
    }
    public static void fillArrayWithRandomNumbers(int arr[], int a, int b){
        Random randomGenerator = new Random();
        for (int i=0;i<arr.length;i++){
                arr[i] = randomGenerator.nextInt(b) + a;
        }
    }
    public static void printArray(int arr[]){
        for (int i=0;i<arr.length;i++){
            System.out.print(arr[i] + " ");
            if ((i+1)%5==0){
                System.out.println();
            }
        }
    }
}
2 задание на Java:

Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
package programmingLanguage;
import java.util.Random;
public class Laba3_2 {
    public static void main(String[] args) {
        int arrayLength = 4;
        int[][] randomArray = new int[arrayLength][arrayLength];
        fillArrayWithRandomNumbers(randomArray);
        printArray(randomArray);
        System.out.println("Min number of array is " +minNumberOfArray(randomArray));
    }
 
    public static void fillArrayWithRandomNumbers(int arr[][]){
        Random randomGenerator = new Random();
        for (int i=0;i<4;i++){
            for (int j=0;j<4;j++){
                arr[i][j] = randomGenerator.nextInt(1000);
            }
        }
    }
 
    public static void printArray(int arr[][]){
        for (int i=0;i<4;i++){
            for (int j=0;j<4;j++){
                System.out.print(arr[i][j] + " ");
            }
            System.out.println();
        }
    }
 
    public static int minNumberOfArray(int arr[][]){
        int min=1001;
        for (int i=0;i<4;i++){
            for (int j=0;j<4;j++){
                if (arr[i][j]<min){
                    min=arr[i][j];
                }
            }
        }
        return min;
    }
}
Pascal совершенно не знаю, но в институте задали написать на 3ёх языках C++, Pascal и Java. C++ и Java написал, а вот на Pascal тут всё совершенно по другому. Ошибок не счесть...

Добавлено через 7 минут
На Pascal задание отличается чем на Java. Но суть не меняется. Всё равно не могу переписать с Java на Pascal...
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.06.2017, 14:42
Ответы с готовыми решениями:

Сгенерировать массив, содержащий 40 целых случайных значений из заданного набора
Написать программу на языке Pascal, которая генерирует массив, содержащий 40 целых случайных значений из заданного набора (при выводе...

Сгенерировать 10 случайных целых чисел в диапазоне от N до M
Сгенерировать 10 случайных целых чисел в диапазоне от N до M var n,m,a,i:integer; begin read(n,m); writeln; randomize; for...

Работа с множествами Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45
Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45.

4
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
15.06.2017, 15:10
Лучший ответ Сообщение было отмечено snachdota как решение

Решение

Цитата Сообщение от snachdota Посмотреть сообщение
Диапазон значений и количество элементов массива задать как символьные
константы
это что за бред?

Добавлено через 3 минуты
п.1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const v:array of integer=(4, 6, 8, 10, 12, 14);
      n=40;
var
  a:array of integer;
  i:integer;
begin
  randomize;
  setlength(a,n);
  for i:=low(a) to high(a) do begin 
    a[i]:=v[random(length(v))];
    write(a[i]:5);
    if (i+1) mod 5=0 then writeln;
  end;  
end.
Добавлено через 4 минуты
п.2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const n=5;
var
  a:array[1..n,1..n] of integer;
  i,j,s:integer;
begin
  randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(101);
      write(a[i,j]:5);
      s:=s+a[i,j];
    end;
    writeln;
  end;
  writeln('S=',s);
 
end.
Добавлено через 7 минут
п.3 (не уверен в корректности)
Pascal
1
2
3
4
5
6
7
8
9
10
var
   i: integer;
   j: ^integer;
begin
   i := 123;
   j := @i;
   writeln('Значение переменной:',i);
   writeln('Значение адреса:',j);
   writeln('значение, находящееся по указателю:',j^);
end.
1
 Аватар для snachdota
0 / 0 / 0
Регистрация: 27.07.2015
Сообщений: 11
15.06.2017, 15:12  [ТС]
Спасибо большое за оперативную и быструю работу!!!
0
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
15.06.2017, 15:18
PS: у тебя второе задание на Java - ищет минимальный элемент массива, а не сумму элементов

Добавлено через 37 секунд
и генерация от 0 до 1000 вместо 0..100
1
 Аватар для snachdota
0 / 0 / 0
Регистрация: 27.07.2015
Сообщений: 11
15.06.2017, 15:20  [ТС]
Я знаю, там другое задание было но похожее. Спасибо ещё раз

Добавлено через 1 минуту
Написать программу на языках Object Pascal и Visual Basic, которая генерирует
массив, содержащий 40 целых случайных значений из заданного диапазона
(при выводе элементов массива на экран располагает значения в 5 столбцов).
Диапазон значений и количество элементов массива задать как символьные
константы. Диапазон значений: 1000 .. 1112.

Написать программу на языках Object Pascal и Visual Basic, которая должна
находить минимальный элемент в двухмерном массиве (размерностью 4 Х 4)
случайных чисел в диапазоне 0 .. 1000.

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

Вот такое было у Java.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.06.2017, 15:20
Помогаю со студенческими работами здесь

Сгенерировать 10 случайных значений в диапазоне от -30 до 150 и вывести кратные 3-м
Помогите делать задание, пожалуйста: сгенерировать 10 случайных значений в диапазоне от -30 до 150 и вывести на экран, только те значения,...

Сгенерировать 4000 целых случайных чисел в диапазоне от -3000 до 7000 и записать их в текстовый файл
Помогите плиз!!! Заранее спасибо!!!!!! №1. Сгенерировать 4000 целых случайных чисел в диапазоне от -3000 до 7000 и записать их в...

Сгенерировать массив из случайных чисел, чтобы соотношение сумм элементов выше и ниже главной диагонали стремилось к 1/3
Сгенерировать массив из случайных чисел таким образом, чтобы соотношение сумм элементов выше главной диагонали и ниже её стремилось к 1/3....

массив из пятнадцати случайных целых чисел от -20 до 20
Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и : а)четные числа делит на два,а...

Создайте массив 5х5 из случайных целых чисел
Создайте массив 5х5 из случайных целых чисел . Распечатайте его. Вычислите сумму элементов каждого столбца.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
Контроль уникальности заводского номера - вариант №2
Maks 24.03.2026
В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru