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

Массив Z разбить на m фрагментов случайной длины; фрагменты записать в матрицу А, содержащую m строк (Паскаль -> Си)

17.12.2015, 18:07. Показов 759. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Перевести с Паскаль на Си

Массив Z(n) рабить на m фрагментов случайной длины. Фрагменты записать в матрицу А, содержащую m строк.



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
uses crt;
var Z : array[1..100] of real;
A : array[1..100, 1..100] of real;
B : array[1..100] of integer;
N, M, i, j, k, l : integer;
begin
clrscr;
randomize;
write('Vvedite kol-vo elementov');
readln(N);
for i:=1 to N do
begin
write('Z[', i, '] = ');
readln(Z);
end;
write('Vvedite kol-vo razbieniy, M = ');
readln(M);
 
k := 0;
for i:=1 to M-1 do
begin
B[i] := random(N-k);
for j:=1 to B[i] do 
A[i,j] := Z[j+k];
k := k + B[i];
end;
 
 
B[M] := N-k;
for j:=1 to B[M] do A[M, j] := Z[j+k];
writeln(' A = ');
for i:=1 to M do
begin
write(i, '-aya stroka : ');
for j:=1 to B[i] do write(A[i,j]:3:0, ' ');
writeln;
end;
readkey;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.12.2015, 18:07
Ответы с готовыми решениями:

В матрице найти номера строк, содержащих только нулевые элементы, и номера строк, содержащих только чётные элементы,
Задана целочисленная матрица А размерности N x N. Найти номера строк, которые имеют: а) все...

Дано число k и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк
И снова всем привет) Помогите пожалуйста со следующим заданием: Дано число k (<10) и текстовый...

Получить квадратную матрицу, содержащую первые 10 строк треугольника Паскаля
Помогите, пожалуйста решить задачу: Сформировать двумерный массив размером 10 на 10 по следущему...

1
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
17.12.2015, 18:49
C
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
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
#include <time.h>
 
int main()
{
    srand(time(NULL));
    setlocale(LC_CTYPE, "rus");
    unsigned int n, m, i;
    printf("Введите количество элементов: ");
    scanf("%d", &n);
    float z[n];
    printf("Original array:");
    for (i = 0; i < n; ++i)
    {
        z[i] = ((float) rand()) * 200 / (float) RAND_MAX - 100;
        printf(" %g", z[i]);
    }
    printf("\n");
    do
    {
        printf("Введите количество разбиений (<=%d): ", n);
        scanf("%d", &m);
    }
    while (m > n);
    unsigned int b[m];
    float a[m][n];
    unsigned int k = 0, j;
    for (i = 0; i < m-1; ++i)
    {
        b[i] = rand() % (n - k);
        for (j = 0; j < b[i]; ++j)
            a[i][j] = z[j + k];
        k += b[i];
    }
    b[m-1] = n - k;
    for (j = 0; j < b[m-1]; ++j)
        a[m-1][j] = z[j+k];
    printf("Массив А:\n");
    for (i = 0; i < m; ++i)
    {
        for (j = 0; j < b[i]; ++j)
            printf(" %g", a[i][j]);
        printf("\n");
    }
    system("pause");
    return EXIT_SUCCESS;
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.12.2015, 18:49
Помогаю со студенческими работами здесь

Дано текстовый файл f, строка s. Получить текстовый файл g, состоящий из строк файла f, содержащие как фрагмент строку s
Вопрос. Что от меня хотят в этом задании? Дано текстовый файл f, строка s. Получить текстовый файл...

Имеется текстовый файл, содержащий 20 строк. Переписать каждую из его строк в массив в том же порядке
Доброго времени суток, пытаюсь разобраться в паскале, но не могу решить даже простенькую задачку,...

Дана целочисленная матрица размера M × N. Найти номер последней из ее строк, содержащих только четные числа. Если таких строк нет, то вывести 0.
Дана целочисленная матрица размера M × N. Найти номер последней из ее строк, содержащих только...

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

Массив: сформируйте массив, содержащий n элементов, с помощью датчика случайных чисел.
Помогите сделать, пожалуйста: сформируйте массив, содержащий n элементов, с помощью датчика...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
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 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru