Паскаль, три задачи на массивы

Omega477 · 14.06.2011, 16:21

Товарищи, подскажите пожалуйста код нескольких программ на паскале:
1. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел, после чего считает среднее арифметическое всех нечетных элементов. Массив и результат вывести на экран.
2. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел. Затем необходимо для каждой строчки определить количество четных элементов, которые меньше, чем элемент этой строки на побочной диагонали. Массив и значение для каждой строчки вывести на экран.
3. Заполнить одномерный массив целых чисел псевдослучайными числами, отобразить его на экране. Отсортировать полученный одномерный массив методом прямого обмена ("пузырьком") по возрастанию, используя в качестве циклов только цикл "while". отобразить отсортированный массив на экране.
Заранее спасибо.

Vladimir_S · 14.06.2011, 20:50

Цитата:

Сообщение от Omega477

Товарищи, подскажите пожалуйста код нескольких программ на паскале:

Пожалуйста.

Цитата:

1. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел, после чего считает среднее арифметическое всех нечетных элементов. Массив и результат вывести на экран.

Код:

VAR
 A:Array[1..4,1..3] of Integer;
 i,j,N:Integer;
 Med:Real;
BEGIN
 Randomize;
 Med:=0;
 For i:=1 to 4 do
  begin
   For j:=1 to 3 do
    begin
     A[i,j]:=50-Random(100);
     Write(A[i,j]:6);
     If (A[i,j] mod 2)<>0 then
      begin
       Inc(N);
       Med:=Med+A[i,j];
      end;
    end;
   Writeln;
  end;
 Writeln;
 Med:=Med/N;
 Writeln('Arithmetical mean of odd elements is ',Med:0:3);
 Readln
END.

Цитата:

2. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел. Затем необходимо для каждой строчки определить количество четных элементов, которые меньше, чем элемент этой строки на побочной диагонали. Массив и значение для каждой строчки вывести на экран.

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

Цитата:

3. Заполнить одномерный массив целых чисел псевдослучайными числами, отобразить его на экране. Отсортировать полученный одномерный массив методом прямого обмена ("пузырьком") по возрастанию, используя в качестве циклов только цикл "while". отобразить отсортированный массив на экране.

Код:

CONST
 N=10;
VAR
 A:Array[1..N] of Integer;
 i,j,D:Integer;
BEGIN
 Randomize;

 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:6);
  end;
 Writeln;
 i:=1;
 While i<N do
  begin
   j:=1;
   While j<=N-i do
    begin
     If A[j]>A[j+1] then
      begin
       D:=A[j];
       A[j]:=A[j+1];
       A[j+1]:=D;
      end;
     Inc(j);
    end;
   Inc(i);
  end;
 For i:=1 to N do Write(A[i]:6);
 Readln
END.

Цитата:

Заранее спасибо.

Не за что.

14.06.2011, 16:21	#1 (permalink)
Omega477 Новичок Регистрация: 14.06.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль, три задачи на массивы Товарищи, подскажите пожалуйста код нескольких программ на паскале: 1. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел, после чего считает среднее арифметическое всех нечетных элементов. Массив и результат вывести на экран. 2. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел. Затем необходимо для каждой строчки определить количество четных элементов, которые меньше, чем элемент этой строки на побочной диагонали. Массив и значение для каждой строчки вывести на экран. 3. Заполнить одномерный массив целых чисел псевдослучайными числами, отобразить его на экране. Отсортировать полученный одномерный массив методом прямого обмена ("пузырьком") по возрастанию, используя в качестве циклов только цикл "while". отобразить отсортированный массив на экране. Заранее спасибо.

14.06.2011, 16:21
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Если есть свободная минутка - займитесь прочтением похожих топиков Массивы. Паскаль Три задачи на массивы Паскаль. Задача на массивы Задачки на массивы. Паскаль Две задачи. Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070