Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Александр174
0 / 0 / 0
Регистрация: 19.02.2015
Сообщений: 7
#1

Замена самого короткого слова главной диагонали на максимальное по длине слово всего массива

19.02.2015, 17:41. Просмотров 877. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста!!!!
Напишите программу, которая заполняет с клавиатуры массив А(3,3) словами разного размера и заменяет самое короткое слово главной диагонали на максимальное по длине слово всего массива. Выведите на экран исходный и полученный массивы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2015, 17:41
Ответы с готовыми решениями:

Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова
Дана строка, содержащая текст. Найти длину самого короткого слова и самого...

Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова
Задача 10 класса, так что решение должно быть уровня школьника) Дана строка,...

Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова
Добрый день! Помогите пожалуйста, не сильно разбираюсь в строках:( Дана...

Найти длину самого короткого слова и самого длинного слова
Помогите пожалуйста решить. Дана символьная строка, содержащая текст, который...

Найти длинну самого короткого слова и самого длинного слова
люди помогите решить! дана строка,содержащая текст. Найти длинну самого...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3861 / 2847 / 3632
Регистрация: 05.06.2014
Сообщений: 13,960
19.02.2015, 18:43 #2
Лучший ответ Сообщение было отмечено Александр174 как решение

Решение

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
43
44
45
46
47
48
49
50
51
const
  n=3;
var
  a:array[1..n,1..n] of string;
  j,i,nmin,min,max,imax,jmax:integer;
  t:string;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите фамилию: ');  readln(a[i,j]);
      end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:24);
      writeln;
    end;
 
  nmin:=1;
  imax:=1;  jmax:=1;
  min:=length(a[1,1]);
  max:=length(a[1,1]);
  for i:=1 to n do
    if length(a[i,i])<min then
      begin
        min:=length(a[i]);
        nmin:=i;
      end;
  writeln('Самое короткое слово на главной диагонали: ',a[nmin,nmin]);
  for i:=1 to n do
    for j:=1 to n do
      if length(a[i,j])>max then
        begin
          max:=length(a[i,j]);
          imax:=i;
          jmax:=j;
        end;
  writeln('Самое длинное слово: ',a[imax,jmax]);
  t:=a[imax,jmax];
  a[imax,jmax]:=a[nmin,nmin];
  a[nmin,nmin]:=t;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:24);
      writeln;
    end;
 
  readln;
end.
1
Александр174
0 / 0 / 0
Регистрация: 19.02.2015
Сообщений: 7
19.02.2015, 18:57  [ТС] #3
Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2015, 18:57

Найти длину самого короткого слова и самого длинного слова
Дана строка, содержащая текст. Найти длину самого короткого слова и самого...

Найти произведение элементов массива.Определить длину самого короткого слова.
1)Дан квадратный массив размерностью 5х5. Найти произведение элементов массива,...

Поменять местами названия самого длинного и самого короткого слова
Помогите, наведите хоть на мысль! Задание: Задан список из десяти городов....


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

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

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