Четверг, 10 Октября 2024, 04:42

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Двухмерные массивы
ReSeRДата: Вторник, 20 Ноября 2012, 20:46 | Сообщение # 1
постоянный участник
Сейчас нет на сайте
Приветствую всех. Помогите решить задачку на 2хмерный массив:

Дана матрица А [12,4 ] – места в вагоне.
1) Заполнить ее рядом натуральных чисел от 1 до 48. Записать матрицу.
2) Реализовать замену любого элемента матрицы нулями и выбрать N произвольных мест. Вновь записать матрицу А [12,4].
3) Определить число четных и нечетных элементов (верхних и нижних мест).
4) Транспонировать матрицу А – заменить строки столбцами и записать в В [4.12].


FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)
karuyДата: Вторник, 20 Ноября 2012, 21:36 | Сообщение # 2
заслуженный участник
Сейчас нет на сайте
Code
program Project2;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    A: array[1..12] of array[1..4] of Integer;
    At: array[1..4] of array[1..12] of Integer;
    i, j: Integer;
    fodd, notodd: Integer;
begin
    Randomize;
    fodd := 0;
    notodd := 0;
    for i := 1 to 12 do
      for j := 1 to 4 do
        A[i][j] := Random(48) + 1;
    for i := 1 to 12 do
      Writeln(A[i][1], #09, A[i][2], #09, A[i][3], #09, A[i][4]);
    while(True) do begin
      Writeln('Vvedite stroky/stolbec kotorue nygno obnyit ili 0 dlya propyska');
      Readln(i);
        if i = 0 then
          Break;
      Readln(j);
      A[i][j] := 0;
    end;
    for i := 1 to 12 do
      for j := 1 to 4 do
        if odd(A[i][j]) then
          Inc(fodd) else
          Inc(notodd);
    writeln('Chetnuh = ', notodd);
    writeln('Ne chetnuh = ', fodd);
    for i := 1 to 12 do
      for j := 1 to 4 do
        At[j][i] := A[i][j];
    for i := 1 to 4 do begin
      for j := 1 to 12 do
        Write(A[j][i], ' ');
      Writeln;
    end;
end.


Почему не прикладываем усилий для решения задачи, а сразу кидаем задания на форум?


Сообщение отредактировал karuy - Вторник, 20 Ноября 2012, 21:38
ReSeRДата: Вторник, 20 Ноября 2012, 22:51 | Сообщение # 3
постоянный участник
Сейчас нет на сайте
karuy, прикладываем biggrin просто в общаге сложно что то делать и думать smile

FastRoad[PC][Android](Забыто)
COSMO 3D[PC][Android](Забыто)
SnowBall[PC][Android](Замороженно)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг