Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
G10ck
0 / 0 / 0
Регистрация: 28.11.2011
Сообщений: 5
1

задачи с матрицей

28.11.2011, 21:29. Просмотров 415. Ответов 3
Метки нет (Все метки)

Помогите плз решить 2 задачи
№1
Дана матрица размером 7х7 элементов, случайным образом заполненная. Сформировать одномерный массив В,где B(i) равно 1,если индекс минимального значения оказывается меньше чем у максимального значения в строке. В противном случае B(i)-0
№2
Дана произвольная строка символов. Определить, являются ли какие либо два слова палиндромами. Выдать сообщение.

Добавлено через 2 часа 18 минут
up! сори,прост срочно надо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2011, 21:29
Ответы с готовыми решениями:

Решение задачи с матрицей
Задание: В матрице A упорядочить элементы столбца, содержащего наибольшее...

Паскаль с матрицей
Помогите пожалуйста решить,очень нужно! Если кто решит,буду очень благодарен!...

Операциии с матрицей
Задание :Есть матрица NxM. Получить последовательно все ряды матрицы, за...

Задача с матрицей.
матрица К(m,m) состоит из нулей и единиц.найти в ней номера хотя бы одной...

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

3
Глупыш
16 / 16 / 23
Регистрация: 20.06.2011
Сообщений: 34
28.11.2011, 23:01 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
i,j,min,max:integer;
begin
for i:=1 to 7 do begin
min:=1;max:=1;
 for j:=1 to 7 do begin
  a[i,j]:=random(100);
  if a[i,max]<a[i,j] then max:=j;
  if a[i,min]>a[i,j] then min:=j;
  write(a[i,j]:3,' ');
 end;
if max>min then b[i]:=1 else b[i]:=0;
writeln();
end;
writeln;
for i:=1 to 7 do
write(b[i]:2);
end.
1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
28.11.2011, 23:57 3
Цитата Сообщение от G10ck Посмотреть сообщение
два слова
Если слова сами по себе палиндромы, то есть читаются слева направо также, как и справа налево, тогда так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var s,sp,sl:string;
    i,j,k:integer;
begin
write('Введите текст ');
readln(s); s:=s+' '; sl:='';
write('Слова-палиндромы ');
k:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
        begin
        sp:='';
        for j:=1 to length(sl) do sp:=sl[j]+sp;
        if sl=sp then
           begin
           k:=k+1;
           write(sp,' ');
           end;
        sl:='';
        end;
if k=0 then writeln('не обнаружены');
end.
иначе - извини...
1
G10ck
0 / 0 / 0
Регистрация: 28.11.2011
Сообщений: 5
29.11.2011, 00:39  [ТС] 4
Все супер спс
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2011, 00:39

Задача с матрицей
Пожалуйста помогите

Задача с матрицей..
Нужно написать программу, которая делит все элементы каждой строки заданной...

Задачка с матрицей
Дана квадратная матрица порядка n=5 Сформировать новую матрицу а из данной ,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru