еуе
1

Дана матрица и дана произвольная строка символов

05.12.2011, 17:20. Показов 1483. Ответов 2
Метки нет (Все метки)

1
Дана матрица размером 7х7 элементов,случайным образом заполненная числами от 0 до7.Сформировать массив В ,в котором В(j)(j=1,2,....,7) будет равен номеру столбца,содержащему хотя бы одно число равное порядковому номеру столбца,в противном случае В(j)=0

2
Дана произвольная строка символов.Отредактировать ее,инвертировав(записать в обратном порядке) слова четной длины.Если таких нет,то выдать сообщение.Количество пробелов между словами-произвольное.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2011, 17:20
Ответы с готовыми решениями:

Дана произвольная строка символов
Дана произвольная строка символов.Сформировать массив из символов составляющих строку, подсчитать...

Дана произвольная строка символов. Сформировать новую из перевернутых СЛОВ
помогите, пожалуйста. Дана произвольная строка символов. Сформировать новую из перевернутых СЛОВ....

Дана произвольная строка символов. Заменить подряд стоящие одинаковые символы одним символом, а после него в скобках записать число символов, которые
Дана произвольная строка символов. Заменить подряд стоящие одинаковые символы одним символом, а...

Дана произвольная строка. Вывести список тех строчных латинских букв, которые в ней втсречаются
Дана произвольная строка. Вывести список тех строчных латинских букв, которые в ней втсречаются

2
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
05.12.2011, 17:40 2
Лучший ответ Сообщение было отмечено как решение

Решение

II.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
s:array [1..100] of string;
i,n,m,d:integer;
begin
write('Введите размерность строки: ');
read(n);
writeln;
write('Введите строку: ');
for i:=1 to n do
read(s[i]);
writeln;
writeln('Исходная строка: ');
for i:=1 to n do
write(s[i]);
writeln;
if (n mod 2=0) then begin
writeln('Downto: ');
for i:=n downto 1 do
write(s[i])
end
else
write('Длина нечетная');
end.
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.12.2011, 18:06 3
1
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
uses crt;
var a: array [1..7,1..7] of integer;
    b: array [1..7] of integer;
    i,j: integer;
begin
writeln('Дана матрица');
for i:=1 to 7 do
    begin
    for j:=1 to 7 do
        begin
        a[i,j]:=random(8);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for j:=1 to 7 do
    b[j]:=0;
for j:=1 to 7 do
    for i:=1 to 7 do
        if a[i,j]=j then b[j]:=j;
writeln('Массив В');
for j:=1 to 7 do
    write(b[j]:3);
end.
Добавлено через 13 минут
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
uses crt;
var s,sl,sn,sp: string;
    i,j,k: integer;
begin
write('s=');
readln(s);
s:=s+' ';
sl:='';
sp:='';
sn:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       begin
       if (length(sl) mod 2=0) and (length(sl)<>0) then
          begin
          inc(k);
          for j:=1 to length(sl) do
          sp:=sl[j]+sp;
          sn:=sn+sp+' ';
          sl:='';
          sp:='';
          end else if (length(sl)<>0) then
          begin
          sn:=sn+sl+' ';
          sl:='';
          sp:='';
          end;
       end;
if k=0 then write('Нет слов четной длины') else write('s=',sn);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2011, 18:06
Помогаю со студенческими работами здесь

Дана произвольная строка. Вывести список тех строчных латинских букв, которые в ней встречаются
Дана произвольная строка. Вывести список тех строчных латинских букв, которые в ней встречаются.

Дана произвольная строка. Вывести список тех строчных латинских букв, которые в ней втсречаются
Дана произвольная строка. Вывести список тех строчных латинских букв, которые в ней втсречаются

Дана строка символов. Определите, сколько раз среди символов строки встречается буква х.
Дана строка символов. Определите, сколько раз среди символов строки встречается буква х.

Дана матрица символов 3х4. Подсчитать сколько раз среди символов встречается символ @
Дана матрица символов 3х4. Подсчитать сколько раз среди символов встречается символ @.В...

Дана строка символов S
Дана строка символов S. Известно, что в строке по крайней мере одна запятая. Найти такое...

Дана строка символов до точки...
Дана строка символов до точки. Определить, является ли она правильным скобочным выражением....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru