Использование динамических массивов

Пнд, 02/14/2011 - 12:11 — tech

Задача:

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

Описание переменных:

arrmax – обычный массив, где будут сохраняться максимальные значения рядов;
row – динамический массив для текущего ряда чисел;
n – длина текущего ряда чисел.

Алгоритм решения задачи:

Переменной j будет играть роль индекса элементов массива arrmax. В конце цикла for, который сделает 10 итераций, j будет увеличиваться на единицу, что будет означать переход к следующей ячейке массива.

Длина очередного ряда чисел случайна. Получив значение n, выделяем память под динамический массив с помощью процедуры getmem.

Заполняем динамический массив случайными числами.

Записываем в очередную ячейку массива arrmax первое значение динамического массива. Если какое-либо последующее значение массива, на который указывает row, будет больше arrmax[j], то производится перезапись значения.

После нахождения максимума память можно освободить (freemem).

Программа на языке Паскаль:

type
    arrdinamic = array[1..50] of integer;
 
var
    arrmax: array[1..10] of integer;
    row: ^arrdinamic;
    n, i, j, k: integer;
 
begin
    randomize;
 
    j := 1;
    for i := 1 to 10 do begin
        n := random(50) + 1;
        getmem(row,n*sizeof(integer));
        for k := 1 to n do
            row^[k] := random(100);
        arrmax[j] := row^[1];
        for k := 1 to n do
            if row^[k] > arrmax[j] then
                arrmax[j] := row^[k];
        freemem(row,n*sizeof(integer));
        j := j + 1
    end;
 
    for i := 1 to 10 do
        write(arrmax[i], ' ');
 
readln
end.

Добавить комментарий

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

ответить

Втр, 02/14/2012 - 16:34 — Гость

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!!

Определить сумму и количество отрицательных элементов, находящихся под главной диагональю матрицы.
Число столбцов = 7
Число рядков = 7
базовый тип REAL
не могу никак решить!!!
помогите, умоляю, а то у меня уже голова не соображает как эту задачу решить....:(

ответить

ср, 09/19/2012 - 21:07 — Гость

Решение:

program z1;
var a:array[1..7,1..7] of real;
    i,j,k:integer;
    sum:real;
begin
 for i:=1 to 7 do
  for j:=1 to 7 do
   read (a[i,j]);
 
 
  for i:=1 to 7 do
   for j:=1 to 7 do
    if i>j then {если элемент находиться под главной диагональю}
     if a[i,j]then begin
                       inc(k); {увеличить k на 1}
                       sum:=sum+a[i,j];
                      end;
 
 writeln('-------------------');
 writeln('Количество отрицательных элементов под главной диагональю: ',k);
 writeln('Их сумма: ',sum);
end.

вроде как работает (проверял только на целых числах)

ответить

ср, 05/18/2011 - 16:04 — Гость

Добрый день,помогите пожалуиста с решением данной задачи.

Вы посетили магазин и купили 10 видов товара. В таблицу T[1:10] вы записали количество купленного товара каждого вида. В таблицу C[1:10] записали цены единиц каждого вида товара соответственно. Составьте на Паскале программу вычисления общей стоимости всех покупок.

Прошу,пожалуйста,умоляю

ответить

чт, 01/16/2014 - 19:48 — Гость

//блок обьявления переменных,

//блок обьявления переменных, ввода данных и т. д. пропущен.
 
for i:=1 to length(t) do //можно до 10 если гарантируеться что длина масива равна 10
begin
  sum:=sum + t[i] * c[i];
end;
 
write(sum); //sum - ответ.

ответить

ср, 05/18/2011 - 16:58 — tech

Разве для решения такой

Разве для решения такой задачи должны использоваться динамические массивы?
Таблицы - это одномерные массивы типа [1..10]? И их элементы нужно перемножить между собой? Или имеется ввиду что-то другое?

ответить

Язык Pascal. Программирование для начинающих

Учебник

Решение задач

Программы