0 / 0 / 0
Регистрация: 19.11.2019
Сообщений: 15
1

Проблема с процедурами и массивами

26.03.2020, 03:35. Показов 994. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Почему при выполнении следующей процедуры для двух массивов получаются абсолютно одинаковые элементы в каждом?

Pascal
1
2
3
4
5
6
7
8
9
10
 Procedure Vvod(Var C:mas);
Var i: integer;
Begin
  writeln('Ввод Массива:');
  Randomize;
   For i:=1 to 5 do
   begin
    C[i]:=random(10)-5;
    write(C[i],' ');
   end;
0
Лучшие ответы (1)
26.03.2020, 03:35
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.03.2020, 03:35
Ответы с готовыми решениями:

Только с массивами STRING, процедурами и текстовыми файлами;
Можете помочь? Используя массивы типа string, процедуры и текстовые файлы выполнить задание: Дан список группы в 10 человек в виде ...

Работа с двумерными массивами и процедурами
Ребят надо запилить вот такую штуку В отделе Y есть 15 сотрудников, а в G - 20. На протяжении месяца каждый сотрудник отработал...

Проблема с хранимыми процедурами
Можно ли в ASP использовать хранимые процедуры с временными таблицами? У меня не получилось. (Win 2000 server, IIS 5, MS SQL 2000)

2
2374 / 776 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
26.03.2020, 07:21 2
Pascal
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
program randig;
 
type
  Tmas = array[1..5] of integer;
 
procedure Vvod(var C: Tmas);
{Процедура, которая вводит в массив случайные числа из диапазона от -5 до +5}
var
  i: integer;
begin
  writeln('Ввод массива:');
   for i:= 1 to 5 do
     begin
       C[i]:= random(11)-5;
       write(C[i]:4);
     end;
   writeln;
end;
 
var
  a,b: Tmas; {Переменные для хранения массивов}
begin
  Randomize;
  vvod(a);
  vvod(b);
  readln;
end.
1
Модератор
10131 / 5465 / 3370
Регистрация: 17.08.2012
Сообщений: 16,703
28.03.2020, 16:25 3
Лучший ответ Сообщение было отмечено ByteRebel как решение

Решение

ValentinNemo, Вы на вопрос ответить забыли.

ByteRebel, потому что процедура randomize инициализирует генератор псевдослучайных чисел, и обычно эта инициализация делается на основе системного времени. Если при вызове двух randomize; системное время не успело поменяться, то будут сгенерированы абсолютно одинаковые последовательности.

Эксперимент: если в Вашей процедуре добавить задержку, написав перед randomize строчку delay(1500); (может ещё понадобиться uses crt; в самом начале программы), то будут сформированы разные массивы, поскольку системное время успеет во время задержки поменяться.

Но - это только эксперимент, для нормальной программы не годится. Глупо ждать по полторы секунды перед каждой генерацией массива. На самом деле, randomize нужно вызывать только один раз, перед генерацией самого первого псевдослучайного числа. Для этого перенесите randomize из процедуры в начало основной программы, как сделано у ValentinNemo.
1
28.03.2020, 16:25
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.03.2020, 16:25
Помогаю со студенческими работами здесь

Oracle. Проблема с хранимыми процедурами (LINUX)
В Windows создаю файл proba.sql с текстом хранимой процедуры create or replace procedure sel_orders is begin select * from ORDERS ...

Проблема с массивами
Задача: В массиве из 10 элементов индексы начинаются с 0. Посчитать количество пар элементов, сумма которых делиться на 5, и произведение...

Проблема с массивами
#include <iostream> #include <cstdlib> #include <ctime> #include<fstream> using namespace std; ofstream fl; void f1...

Проблема с массивами.
Есть массивы (1 то 16), (0 то 15) (1 от 16) = (0 то 15) даёт плохой результат - 0 элемент не пишется в 1 и так далее. Так и должно быть?

Проблема с массивами.
Здравствуйте. Нужна помощь. Есть несколько массивов, при определенных условиях нужно в одну переменную запихивать один из етих массивов....


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Обнаружение аномалий в машинном обучении на Python
stackOverflow 19.02.2025
Аномалии — это отклонения от ожидаемого поведения системы, которые могут указывать как на потенциальные проблемы, так и на интересные возможности для исследования. В контексте машинного обучения. . .
Введение в представления (views) Django
stackOverflow 19.02.2025
Представления (views) - ключевой элемент веб-фреймворка Django, который отвечает за обработку HTTP-запросов и формирование ответов. Они действуют как посредники между данными приложения и шаблонами,. . .
Что такое шаблоны Django и как с ними работать
stackOverflow 19.02.2025
Шаблоны Django - основополагающий компонент фреймворка Django, который позволяет эффективно разделять логику приложения и его визуальное представление. Это очень важный инструмент для. . .
Какой Python Web-фреймворк лучший: Django, Flask или FastAPI?
stackOverflow 19.02.2025
В разработке под веб Python занимает особое место благодаря своей универсальности и богатой экосистеме. При создании веб-приложений разработчики сталкиваются с важным выбором - какой фреймворк. . .
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru