Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/21: Рейтинг темы: голосов - 21, средняя оценка - 4.86
0 / 0 / 1
Регистрация: 31.01.2018
Сообщений: 16

Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряд

16.02.2018, 20:25. Показов 4515. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряде следует найти максимальное число . Сохранить только максимальные числа и вывести их на экран в Pascal ABC .
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.02.2018, 20:25
Ответы с готовыми решениями:

Составить ряд распределения суммы случайных чисел X + Y
Две независимые случайные величины заданы рядами распределения X 2 5 Y -3 ...

Вычисление приближенного значения tan(x) через ряд Тейлора/ряд Маклорена
Привет, CF. Задача: Вычисление приближенного значения tan(x) через ряд Тейлора/ряд Маклорена Проблема: не совпадают результаты...

Разложить функцию в ряд Тейлора. Найти предел с помощью разложения в ряд.
1.y={e}^{\frac{\sin x}{x}} 2.\lim_{x\rightarrow 0}\frac{\ln (1+\frac{x}{2})- \sqrt{1+\sin {x} +1}}{\sinh {x} - \arctan x} 1-е разложить...

8
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
16.02.2018, 23:29
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n = 10;
var a: array [1..n] of array [1..100] of integer;
    b: array [1..n] of integer;
    i, j, m: integer;
begin
  randomize;
  for i := 1 to n do begin
    m := random(100) + 1;
    b[i] := 0;
    for j := 1 to m do begin
      a[i][j] := random(98) + 1;
      write(a[i][j], ' ');
      if a[i][j] > b[i] then
        b[i] := a[i][j];
    end;
    writeln;
  end;
  writeln; writeln;
  for i := 1 to n do
    write(b[i], ' ');
end.
0
0 / 0 / 1
Регистрация: 19.02.2018
Сообщений: 4
19.02.2018, 21:39
Можно через динамический массив эту же программу и где какой вывод описать пожалуйста в программе а не комментами окей спасибо за ранее помогите пожалуйста ?
0
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
20.02.2018, 00:29
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Hacker_Nikita, у Вас PascalABC.Net, или всё же обычный ABC?

Добавлено через 1 минуту
На всякий случай для ABC.Net
Pascal
1
2
3
4
5
begin
  var a := Range(1, 10).Select(m -> Range(0, Random(20)).Select(v -> Random(0, 99)).ToArray).ToArray;
  writelnformat('{0}{2}Максимальные: {1}', a.Select(v -> v.JoinIntoString(' ')).JoinIntoString(NewLine),
    a.Select(v -> v.Max).JoinIntoString(' '), NewLine);
end.
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
20.02.2018, 12:10
Hitoku, судя по предыдущим сообщениям, ТС'у нужно решение в стиле ТП.
0
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
20.02.2018, 14:15
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

В стиле TP для PABC.Net
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n = 10;
var a: array [1..n] of array of integer;
    b: array [1..n] of integer;
begin
  for var i := 1 to n do begin
    b[i] := 0;
    SetLength(a[i], Random(2,15));
    for var j := 0 to a[i].Length - 1 do begin
      a[i][j] := random(0,99);
      write(a[i][j], ' ');
      if a[i][j] > b[i] then
        b[i] := a[i][j];
    end;
    writeln;
  end;
  writeln;
  for var i := 1 to n do
    write(b[i], ' ');
end.
1
0 / 0 / 2
Регистрация: 21.02.2018
Сообщений: 99
22.02.2018, 16:55
как исправить ошибку ?

Добавлено через 6 секунд
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Program cal;{Десять раз генерировать ряд случайных чисел от 0 до 99 . 
Каждый ряд также должен иметь произвольную длину . 
В каждом ряде следует найти максимальное число . 
Сохранить только максимальные числа и вывести их на экран.} 
const n = 10000; 
type 
tyt=^masssiv; 
my=^lol; 
masssiv=array [1..n] of array [1..100] of integer; 
lol= array [1..n] of integer; 
var i,j,Sz:integer; 
a:tyt; 
b:my; 
begin 
new(a); 
writeln('Введите исходный массив'); 
readln(Sz); 
for i := 1 to Sz do 
for j := 1 to Sz do 
randomize; 
a^[i][j] := random(98)+1; 
write(a^[i][j], ' '); 
if a^[i][j] > b^[i] then 
b^[i] := a^[i][j];  
writeln; 
for i := 1 to n do 
write(b^[i], ' '); 
end.
 
[size="1"][color="grey"][I]Добавлено через 21 минуту[/I][/color][/size]
В чём мая ошибка ?
program cal;{Десять раз генерировать ряд случайных чисел от 0 до 99 . 
Каждый ряд также должен иметь произвольную длину . 
В каждом ряде следует найти максимальное число . 
Сохранить только максимальные числа и вывести их на экран.} 
const
  n = 10000;
 
type
  tyt = ^masssiv;
  my = ^lol;
  masssiv = array [1..n] of integer;
  lol = array [1..n] of integer;
 
var 
i,j:integer;
  a: tyt; 
  b: my;
 
begin
  new(a); 
      for i := 1 to n do 
      for  j := 1 to n do
  a^[i] := random(0,99); 
  a^[j] := random(0,99);
  write(a^[i], ' ');
  write(a^[j], ' ');
   if a^[j]> b^[i] then
   if a^[i] > b^[j] then
    b^[i] := a^[j];
    b^[j]:=a^[i];
  writeln; 
  for i := 1 to n do 
    write(b^[i], ' ');
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
23.02.2018, 08:21
Hitoku,
Достаточно по условию
Pascal
1
var a: Integer;
0
0 / 0 / 2
Регистрация: 21.02.2018
Сообщений: 99
24.02.2018, 10:59
Напишите пожалуйста за меня умоляю условия только пожалуйста через динамический массив хорошо ?

Десять раз генерировать ряд случайных чисел от 0 до 99 .
Каждый ряд также должен иметь произвольную длину .
В каждом ряде следует найти максимальное число .
Сохранить только максимальные числа и вывести их на экран.

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  n = 100;
 
type
  tyt = ^massiv;
  massiv = array [1..n] of integer;
 
var
  i,Sz: integer;
  a:tyt;
 
begin
  new(a);
  writeln('Введите исходный массив');
  readln(Sz);
  for i := 1 to n do
    a^[i] := random(0, 99);
  for i := 1 to n do
    write(a^[i], ' ');
end.
И мне надо ещё до писать всего 3 пункта помогите плиз умоляю !
1)Каждый ряд также должен иметь произвольную длину .
2)В каждом ряде следует найти максимальное число .
3)Сохранить только максимальные числа и вывести их на экран.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.02.2018, 10:59
Помогаю со студенческими работами здесь

Разложить в ряд Маклорена заданную фунцию f(x), используя ряд Макларена для ее производной
Разложить в ряд Маклорена заданную фунцию f(x), используя ряд Макларена для ее производной, и найти область сходимости полученного ряда...

Вычисление функции через разложение в ряд (Ряд Тейлора)
Привет всем. Задание такого плана: Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора,...

Изменить программу, чтобы она выводила ряд нечётных случайных чисел от 1 до +k
так, чтобы выводила ряд нечётных случайных чисел от 1 до +k program pr_4; var k,i:integer; BEGIN write('Введите число K '); ...

Положительные числа записать в ряд В, отрицательные в ряд С.
Просмотреть ряд А из 20 чисел. Положительные числа записать в ряд В, отрицательные в ряд С. Подсчитать количество цифр в обоих рядах. На...

Разложение ряд в ряд Тейлора.Переделать программу
Написать программу вычисления и вывода на экран в виде таблицы значений функции, заданной с помощью ряда Тейлора, на интервале от Хзнач до...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru