Даны 3 символьные матрицы. - Бесплатно сделаю блок-схему

Меню сайта
Главная страница Примеры блок-схем Скачать Купить Контакты Что нового История создания Сделаю для вас блок-схему FAQ (вопрос/ответ) Блог

Форма входа

Друзья сайта
Программа Ростовщик 1.04 Программа расчета кредита Курсовые по информатике Старый, но живой ГОСТ для Блок-Схем Сервис заполнения бланков аттестатов Библиотека VBA для сервиса AntiGate.com

Статистика

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

07.10.2026, 09:07

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: diamFC

Даны 3 символьные матрицы. (Ту матрицу,где есть хотя бы одна гласная-транспонировать.)

Даны 3 символьные матрицы.

defaultNick9809

Дата: Понедельник, 14.05.2012, 13:28 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 2

Репутация: 0

Статус: Offline

CONST
N = 3;
TYPE
myArray = array[1..N, 1..N] of char;
var
m1, m2, m3: myArray;
i, j: integer;
temp: char;
result: boolean;
procedure ReadM(var m: myArray);
begin
Writeln('');
For i:=1 to N do
For j:=1 to N do
begin
Write('[',i,',',j,']=');
Readln(m[i,j]);
end;
writeln;
end;

function find(m: myArray): boolean;
begin
result := false;
for i := 1 to N do
for j := 1 to N do
if(m[i, j] in ['a', 'e', 'u', 'i', 'y', 'o', 'E', 'U', 'I', 'O', 'A', 'Y']) then begin
result := true;
break;
end;
end;

procedure transp(var m: myArray);
begin
for i:= 2 to N do
for j :=1 to i-1 do begin
temp := m[i, j];
m[i, j] := m[j, i];
m[j, i] := temp;
end;
end;

begin
ReadM(m1);
ReadM(m2);
ReadM(m3);
if(find(m1)) then transp(m1);
if(find(m2)) then transp(m2);
if(find(m3)) then transp(m3);

for i := 1 to N do begin
for j := 1 to N do write(m1[i, j], ' ');
writeln('');
end;
writeln('');
for i := 1 to N do begin
for j := 1 to N do write(m2[i, j], ' ');
writeln('');
end;
writeln('');
for i := 1 to N do begin
for j := 1 to N do write(m3[i, j], ' ');
writeln('');
end;
readln;
end.