Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
N. White
0 / 0 / 1
Регистрация: 06.07.2012
Сообщений: 26
#1

Составьте функцию и все остальное проверяющую симметричность строки - Turbo Pascal

08.07.2012, 16:27. Просмотров 619. Ответов 1
Метки нет (Все метки)

Процедуры, функции и модули:
http://www.cyberforum.ru/turbo-pascal/thread615621.html
Пусть дана прямоугольная матрица н на м элементами которой являются действительные числа. Определите в какой строке матрицы находится наибольшее количество симметричных чисел. Составьте функцию и все остальное проверяющую симметричность строки
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 16:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составьте функцию и все остальное проверяющую симметричность строки (Turbo Pascal):

Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть строки s,Начинающаяся i-m и кончающаяся j-m ее элем
Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли...

Составьте программу, проверяющую, является ли число палиндромом
Составьте программу, проверяющую, является ли число палиндромом (например,...

Составьте программу, удаляющую все пробелы из введенной строки.
Составьте программу, удаляющую все пробелы из введенной строки.

Проверка строки матрицы на симметричность
Как проверить строку матрицы на симметричность, если строка симметрична то в...

Рекурсия - определить симметричность строки
Используя рекурсивную логическую функцию от целых i, j, проверяющую является ли...

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
12.07.2012, 21:01 #2
Лучший ответ Сообщение было отмечено N. White как решение

Решение

Цитата Сообщение от N. White Посмотреть сообщение
Составьте функцию и все остальное
функция, ну и процедуры с модулем до кучи, раз уж такая тема
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
unit simmetry;
 
interface
const
  count=20;
type
  tArr=array[1..count,1..count] of integer;
procedure init(n1,m1: integer; var ar: tArr); 
procedure outPut(n1,m1: integer; var ar: tArr);  
function sim(i,m1: integer; var ar: tArr): integer;
  
implementation
 
procedure init(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
    for j:=1 to m1 do
      ar[i,j]:=random(3)+1;
end;
 
procedure outPut(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
      write(ar[i,j]:3);
    writeln;
  end;
  writeln;
end;
 
function sim(i,m1: integer; var ar: tArr): integer;
var j,k: integer;
begin
  k:=0;
  for j:=1 to m1 div 2 do
    if ar[i,j]=ar[i,m1-j+1] then inc(k);
  sim:=k;  
end;
end.
все остальное
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses
  simmetry;
var
  n,m,max,x,i: integer;
  a: tArr;
begin
  randomize;
  write('Введите размеры массива n,m: ');
  readln(n,m);
  init(n,m,a);
  outPut(n,m,a);
  
  x:=0; max:=0;
  for i:=1 to n do
  begin
    
    if sim(i,m,a)>max then 
    begin
      x:=i;
      max:=sim(i,m,a);
    end;
    writeln('В ',i,'-й строке ',sim(i,m,a),' пар симметричных чисел'); 
  end;
  if max=0 then writeln('Ни в одной из строк нет симметричных чисел')
    else writeln('Наибольшее число симметричных пар в ',x,'-й строке');
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.07.2012, 21:01
Привет! Вот еще темы с решениями:

Составьте программу, проверяющую, можно ли из букв, входящих в строку А, составить строку В
Даны две символьные строки А и В. Составьте программу, проверяющую, можно ли из...

Составьте программу, проверяющую, является ли число палиндромом (например, число 12421 - палиндром).
Составьте программу, проверяющую, является ли число палиндромом (например,...

Написать функцию Equal (p, q), проверяющую на равенство многочлены p и q
Здравствуйте, помогите пожалуйста с решением задачи. Её условие: Многочлен...

Написать функцию, проверяющую наличие в числе заданной цифры
Дано натуральное число. Написать функцию, проверяющую наличие в нем данной...


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

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

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