Распечатать слова, в которых нет повторяющихся символов

@zuluman · Регистрация: 17.11.2011

Студворк — интернет-сервис помощи студентам

18.1 Дана матрица размером 5х5 элементов,случайным образом заполненная.Сформировать одномерный массив В,где В(j) =0,если индекс максимального значения оказывается меньше чем у минимального значения в столбце.В противном случае B(j)-1.
18.2 Дана произвольная строка символов.Распечатать слова,в которых нет повторяющихся символов.

Помогите пожалуйста!!!!

Добавлено через 23 часа 25 минут
Апапап!

@КонецСвета · 18.11.2011, 22:47

Сообщение от zuluman

максимального значения

- в столбце или во всей матрице?

Добавлено через 15 минут

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
uses crt;
var a: array [1..5,1..5] of integer;
    b: array [1..5] of byte;
    i,j,min,max,imin,imax: integer;
begin
writeln ('Дана матрица');
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        begin
        a[i,j]:=random(101)-50;
        write (a[i,j]:4);
        end;
    writeln;
    end;
for j:=1 to 5 do
    begin
    max:=a[1,j];
    imax:=1;
    for i:=1 to 5 do
        begin
        if a[i,j]>max then
           begin
           max:=a[i,j];
           imax:=i;
           end;
        if a[i,j]<min then
           begin
           min:=a[i,j];
           imin:=i;
           end;
        end;
    if imax<imin then b[j]:=0
       else b[j]:=1;
    end;
writeln ('Массив В');
for j:=1 to 5 do
    write (b[j]:4);
end.

@zuluman · 20.11.2011, 01:15 **[ТС]**

Сообщение от КонецСвета

- в столбце или во всей матрице

Во всей матрице

Добавлено через 3 минуты
Помогите сделайте кто-нибудь вторую задачу

@КонецСвета · 20.11.2011, 01:35

первая переделанная с учетом новых условий (индекс макисмального значения для всей матрицы, а минимального - по столбцу)

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
uses crt;
var a: array [1..5,1..5] of integer;
    b: array [1..5] of byte;
    i,j,min,max,imin,imax: integer;
begin
writeln ('Дана матрица');
max:=-1000;
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        begin
        a[i,j]:=random(101)-50;
        write (a[i,j]:4);
        if a[i,j]>max then
           begin
           max:=a[i,j];
           imax:=i;
           end;
        end;
    writeln;
    end;
writeln ('max=',max,' imax=',imax);
for j:=1 to 5 do
    begin
    for i:=1 to 5 do
        begin
        if a[i,j]<min then
           begin
           min:=a[i,j];
           imin:=i;
           end;
        end;
    if imax<imin then b[j]:=0
       else b[j]:=1;
    end;
writeln ('Массив В');
for j:=1 to 5 do
    write (b[j]:4);
end.

@zuluman · 20.11.2011, 11:49 **[ТС]**

18.2 Дана произвольная строка
символов.Распечатать слова,в
которых нет повторяющихся
символов.
Помогите пожалуйста!!!! Апапап!!

@log(n) · 20.11.2011, 12:13

Сообщение от zuluman

18.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
var
  s, s1: string;i, k, i1, i2: integer;f: boolean;
 
begin
  readln(s);
  s := s + ' ';
  repeat
    if pos('  ', s) > 0 then
      delete(s, pos('  ', s), 1);
  until pos('  ', s) = 0;
  k := 0;
  for i := 1 to length(s) do
    if s[i] = ' ' then
    begin
      s1 := copy(s, k + 1, i - k - 1);
      k := i;
      f := true;
      for i1 := 1 to length(s1) - 1 do 
      begin
        for i2 := i1 + 1 to length(s1) do
          if s1[i1] = s1[i2] then begin f := false; 
          break; 
          end;
        if not f then break;
      end;
      if f then writeln(s1);
    end;
end.

Новые блоги и статьи Все статьи Все блоги /
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114

Распечатать слова, в которых нет повторяющихся символов

Решение

Решение

Решение

@zuluman 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 4

	Распечатать слова, в которых нет повторяющихся символов 18.11.2011, 22:24. Показов 1586. Ответов 5 Метки нет (Все метки) 18.1 Дана матрица размером 5х5 элементов,случайным образом заполненная.Сформировать одномерный массив В,где В(j) =0,если индекс максимального значения оказывается меньше чем у минимального значения в столбце.В противном случае B(j)-1. 18.2 Дана произвольная строка символов.Распечатать слова,в которых нет повторяющихся символов. Помогите пожалуйста!!!! Добавлено через 23 часа 25 минут Апапап! 0

@zuluman 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 4
	20.11.2011, 11:49 [ТС]
	18.2 Дана произвольная строка символов.Распечатать слова,в которых нет повторяющихся символов. Помогите пожалуйста!!!! Апапап!! 0