VPF::[Pascal] Задачи с матрицами - Форум программистов

Блондиночка

Дата 11.5.2009, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.5.2009

Репутация: нет
Всего: нет

Помогите пожалуйста!!! Нужно решить 3 задачки

Задача 1

Указания к решению:
1.    Ввод и вывод элементов матрицы оформить в виде процедур. Ввод выполнить с помощью датчика случайных чисел.
2.    Для визуальной проверки решения при выводе матрицы выделить цветом элементы, удовлетворяющие требованиям условия задачи.

         Дана матрица А(N,M) натуральных чисел. Найти количество столбцов, сумма элементов которых является не простым числом.

Задача 2

Указания к решению:
1.    Ввод и вывод элементов матрицы оформить в виде процедур. Ввод выполнить с помощью датчика случайных чисел.
2.    Для визуальной проверки решения при выводе матрицы выделить одним цветом элементы, принадлежащие выделенной области, и другим – удовлетворяющие требованиям условия задачи.

    Дана квадратная матрица B(K,K) натуральных чисел. Найти максимальный элемент среди тех, который лежат в выделенной области и являются квадратом какого-либо натурального числа. Область задается координатами элемента B(S,P), через который проводится косая линия, параллельная побочной диагонали. Элементы, расположенные на границах области, входят в заштрихованную часть.
    user posted image

Задача 3

Указания к решению:
Ввод и вывод элементов матрицы оформить в виде процедур. Ввод выполнить с помощью датчика случайных чисел.

Дана квадратная матрица B(2K,2K) натуральных чисел. Матрицы разбита на квадраты. Поменять местами квадраты матрицы согласно рисунку.

user posted image

Chazer

Дата 13.5.2009, 00:51 (ссылка)

(нет голосов)

Загрузка ...

Упоротый гентушник

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 18.5.2006
Где: Украина

Репутация: нет
Всего: нет

Задача №1.

Код


uses Crt;
const m=10; n=15; {Простейший вариант. Задаем
                  размеры матрицы статически. Или
                  надо динамически создавать?}
    max=100; {Указываем "потолок" значений
                 в матрице}
var a:array[1..m,1..n]of word;
    b:array[1..n]of boolean; {Сохраняем данные о
                              столбцах при поиске, т.е.
                              нужно ли закрашивать при выводе}
    x:integer;{количество столбцов, которые
                                        соответствуют условию}

{Инициализация матрицы}
procedure Init;
var i,j:integer;
begin
    randomize;
    for i:=1 to m do
        for j:=1 to n do
            a[i,j]:=random(max);
end;

procedure Find;
var i,j,l:integer;
    sum:longint;
begin
    x:=0;
    for j:=1 to m do
        begin
        b[j]:=true;
        sum:=0;
        for i:=1 to n do sum:=sum+a[i,j];
        for l:=2 to round(sqrt(sum)) do
            if sum mod l = 0 then
                begin
                b[j]:=false;
                break;
                end;
            if b[j] then inc(x);
        end;
        
end;

procedure Print;
var i,j:integer;
begin
    for i:=1 to m do
        begin
        for j:=1 to n do
            begin
            if b[j] then textcolor(lightblue) else textcolor(white);
            write(a[i,j]:4);
            end;
        writeln;
        end;
        textcolor(red);
        writeln('К-ство столбцов, соответствующих условию: ',x);
        textcolor(white);
end;

begin
clrscr;
Init;
Find;
Print;
readkey;
end.

З.Ы. Блондиночка, на будущее: ознакомься, пожалуйста, с Правилами форума "Центр помощи", особенно прочитай внимательно следующий пункт

Помни: один топик - один вопрос!

Chazer

Дата 13.5.2009, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Упоротый гентушник

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 18.5.2006
Где: Украина

Репутация: нет
Всего: нет

Задача №2.

Код


uses Crt;
const k=15; {Простейший вариант. Задаем
                  размеры матрицы статически.}
    max=100; {Указываем "потолок" значений
                 в матрице}
var a:array[1..k,1..k]of word;
    x,y,p,s:integer;

{Инициализация матрицы}
procedure Init;
var i,j:integer;
begin
    randomize;
    for i:=1 to k do
        for j:=1 to k do
            a[i,j]:=random(max)+1;
end;

procedure Init_B;
begin
    writeln('Введіть координати елементу B:');
    write('S: ');
    readln(s);
    write('P: ');
    readln(p);
end;

procedure Find;
var i,j,l:integer;
    sum:longint;
begin
    x:=0;
    for i:=1 to k do
        for j:=1 to k do
            if(s+p>=i+j)and(sqrt(a[i,j])=trunc(sqrt(a[i,j])))then
                if (x=0)or((x<>0)and(a[i,j]>a[x,y])) then
                    begin
                    x:=i;
                    y:=j;
                    end;
end;

procedure Print;
var i,j:integer;
begin
    for i:=1 to k do
        begin
        for j:=1 to k do
        begin
        if ((s+p>=i+j)) then textcolor(lightblue) else textcolor(white);
        if (a[x,y]=a[i,j])and(s+p>=i+j) then textcolor(lightred);
        write(a[i,j]:4);
        end;
        writeln;
        end;
        textcolor(white);
end;

begin
clrscr;
Init;
Init_B;
Find;
Print;
readkey;
end.

Это сообщение отредактировал(а) Chazer - 13.5.2009, 21:48

Chazer

Дата 13.5.2009, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Упоротый гентушник

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 18.5.2006
Где: Украина

Репутация: нет
Всего: нет

Задача №3.

Код


uses Crt;
const k=4; {Простейший вариант. Задаем
                  размеры матрицы статически.}
    tab=4;{Размер отступа при выводе матрицы}
    max=100; {Указываем "потолок" значений
                 в матрице}
var a:array[1..2*k,1..2*k]of word;
    colours:array[1..4]of byte;
{Инициализация матрицы}
procedure Init;
var i,j:integer;
begin
    randomize;
    for i:=1 to 2*k do
        for j:=1 to 2*k do
            a[i,j]:=random(max)+1;
    {тута указываем цвета для вывода отдельных квадратов}
    colours[1]:=lightred;
    colours[2]:=cyan;
    colours[3]:=green;
    colours[4]:=yellow;
end;

{Преобразование матрицы}
procedure morph;
var i,j:integer;
    tmp:word;
begin
    for i:=1 to k do
        for j:=1 to k do
        begin
            {Меняем местами элементы квадратов 1 и 3}
            tmp:=a[i,j];
            a[i,j]:=a[i+k,j+k];
            a[i+k,j+k]:=tmp;
            {Меняем местами элементы квадратов 2 и 4}
            tmp:=a[i,j+k];
            a[i,j+k]:=a[i+k,j];
            a[i+k,j]:=tmp;
        end;
    {Меняем местами цвета для вывода квадратов 1 и 3}
    tmp:=colours[1];
    colours[1]:=colours[3];
    colours[3]:=tmp;
    {Меняем местами цвета для вывода квадратов 2 и 4}
    tmp:=colours[2];
    colours[2]:=colours[4];
    colours[4]:=tmp;
end;

{собсно, вывод на экран}
procedure print;
var i,j,c:integer;
begin
    for i:=1 to 2*k do
    begin
        for j:=1 to 2*k do
        begin
            if (i<=k)and(j<=k)then textcolor(colours[1]);
            if (i<=k)and(j>k)then textcolor(colours[2]);
            if (i>k)and(j>k)then textcolor(colours[3]);
            if (i>k)and(j<=k)then textcolor(colours[4]);
            write(a[i,j]:tab);
        end;
        writeln;
    end;
    textcolor(white);
end;

begin
clrscr;
textcolor(white);
Init;
writeln('Нормальная матрица:');
Print;
morph;
writeln('Трансформированная матрица:');
Print;
readkey;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »