Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Александр174
0 / 0 / 0
Регистрация: 19.02.2015
Сообщений: 7
#1

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

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

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

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

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

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

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

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

Найти длину самого короткого слова и самого длинного слова - Pascal
Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова. Как решить данную задачу?

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3838 / 2825 / 1942
Регистрация: 05.06.2014
Сообщений: 13,835
19.02.2015, 18:43 #2
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
Привет! Вот еще темы с ответами:

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

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

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

Найти длину самого короткого и самого длинного слова - Pascal
пожалуйста помогите решать эту программу мне надо блок схема и программа. Дана строка, содержащая текст. найти длину самого короткого слова...


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

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

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