Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Timurza92
4 / 0 / 0
Регистрация: 13.12.2009
Сообщений: 18
1

Преобразовать матрицу по правилу: строку с номером P сделать столбцом с номером P

13.12.2009, 12:07. Просмотров 1260. Ответов 6
Метки нет (Все метки)

1) С клавиатуры вводится строка. Напечатать по одному разу все буквы, входящие в эту строку. При решении задачи использовать множественный тип.

2)Дана матрица А(N,N) и целое P. Преобразовать матрицу по правилу: строку с номером P сделать столбцом с номером P, а столбец с номером P сделать строкой с номером P.

3)Дана матрица A(N,M). Построить вектор B(N), элементы Bi которого равны единице, если элементы i-ой строки образуют упорядоченную по убыванию или по возрастанию последовательность, и нулю во всех остальных случаях.

4)Разработайте программу, которая приглашает пользователя ввести свое имя и фамилию, а затем в области просмотра выводит фамилию, запятую и имя (в этой последовательности). Выведите строку в области просмотра с помощью подпрограммы.

5)Разработайте программу, приглашающую пользователя ввести свое имя и фами¬лию и выводящую их буквами, переставленными в обратной последовательности. Инвертирование последовательности букв должно выполняться одной подпрограммой, а вывод результата – другой. Программа должна автоматически сделать первые буквы прописными. Например, Tom Smith должно быть выведено как Mot Htims. (Встроенная подпро¬грамма изменения регистра буквы работает только для латинских букв. Не беспокойтесь о русских буквах – предполагайте, что пользователь вводит данные по-английски.)

6)Разработайте функцию DecToHex (), преобразующие десятичные числа в шестнадцатеричные. Для проверки этих функций разработайте небольшую тестовую программу.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2009, 12:07
Ответы с готовыми решениями:

Преобразовать матрицу так, чтобы строка с номером k следовала за строкой с номером l
Даны целочисленная матрица nx3, целые числа k, l (1<=k<=n, 1<=l<=n, ...

Преобразовать матрицу, чтобы строка с исходным номером k следовала за строкой с исходным номером m
Помогите плиз! Даны: целочисленная матрица размера n x 3, целые числа k, m (1...

Заменить все элементы строки с номером k и столбца с номером l на противоположные по знаку
Заменить все элементы строки с номером k и столбца с номером l на...

Поменять местами элементы в парах «элемент с четным номером –элемент с нечетным номером».
Дан массив из п вещественных элементов. Поменять местами элементы в парах...

Удалить строку матрицы с номером k
Помогите пожалуйста составить программу: 1. Дано число k и матрица размера 4...

6
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
13.12.2009, 12:18 2
1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  s:string;
  m:set of char;
  i:integer;
begin
  readln(s);
  for i:=1 to length(s) do
    if not (s[i] in m) then
    begin
      write(s[i]);
      include(m,s[i])
    end;
end.
Добавлено через 3 минуты
6:
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
uses
  crt;
var
  fD:integer;
{ГґГіГ*êöèÿ ïåðåâîäГ* Dec Г·ГЁГ±Г«Г* Гў ëþáóþ Г±Г±}
function FromDec(n,r:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod r)+1]+s;
    n:=n div r;
  until n=0;
    FromDec:=s;
end;
{îñîГ*îâГ*Г*Гї ïðîãðГ*ììû}
begin
  writeln('Ââåäèòå ÷èñëî Гў ñîîòâåòñòâèè Г± 10CC:');
  readln(fD);
  writeln('Ïåðåâîä ГЁГ§ 10CC --> 16CC:');
  writeln(FromDec(fD,16))
end.
2
Викдон
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
13.12.2009, 12:27 3
4:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var name, fam: string;
 
procedure out(n,f:string);
begin
 writeln('result = ', f, ',', n);
 readln;
end;
 
begin
 write('Введите имя: ');
 readln(name);
 write('Введите фамилию: ');
 readln(fam);
 out(name,fam);
end.
1
Timurza92
4 / 0 / 0
Регистрация: 13.12.2009
Сообщений: 18
13.12.2009, 13:19  [ТС] 4
Спасибо вам огромное за помощь!!!!!!!!!!!!!!!

Добавлено через 42 минуты
Сделайте еще кто нить плиз((
0
Викдон
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
13.12.2009, 13:24 5
5:
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
52
53
var name, fam: string;
 
 {Функция конвертирования}
function Inversia(str:string):string;
var buf:string;
    i:integer;
begin
  for i:=1 to length(str) do
    buf:=buf+str[length(str)-(i-1)];
  result:=buf;
end;
 
{Процедура вывода результата}
procedure Out(str:string);
begin
  writeln('result = ', str);
  readln;
end;
 
{Преобразование регистра}
 
function Registr(str:string):string;
var i:integer;
begin
   for i:=1 to length(str) do
    if i<>1 then
     case str[i] of
       'A'..'Z', 'А'..'П': str[i]:= chr(ord(str[i])+32);
       'Р'..'Я': str[i]:= chr(ord(str[i])+80);
     end
    else
     case str[i] of
       'a'..'z', 'а'..'п': str[i]:= chr(ord(str[i])-32);
       'р'..'я': str[i]:= chr(ord(str[i])-80);
     end;
    result:=str;
 
end;
 
begin
 write('Enter Name: ');
 readln(name);
 write('Enter SurName: ');
 readln(fam);
 
 name:=Inversia(name);
 fam:=Inversia(fam);
 
 name:=Registr(name);
 fam:=Registr(fam);
 
 Out(name+' '+fam);
end.
1
Timurza92
4 / 0 / 0
Регистрация: 13.12.2009
Сообщений: 18
13.12.2009, 13:53  [ТС] 6
Цитата Сообщение от Викдон Посмотреть сообщение
5:
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
52
53
var name, fam: string;
 
 {Функция конвертирования}
function Inversia(str:string):string;
var buf:string;
    i:integer;
begin
  for i:=1 to length(str) do
    buf:=buf+str[length(str)-(i-1)];
  result:=buf;
end;
 
{Процедура вывода результата}
procedure Out(str:string);
begin
  writeln('result = ', str);
  readln;
end;
 
{Преобразование регистра}
 
function Registr(str:string):string;
var i:integer;
begin
   for i:=1 to length(str) do
    if i<>1 then
     case str[i] of
       'A'..'Z', 'А'..'П': str[i]:= chr(ord(str[i])+32);
       'Р'..'Я': str[i]:= chr(ord(str[i])+80);
     end
    else
     case str[i] of
       'a'..'z', 'а'..'п': str[i]:= chr(ord(str[i])-32);
       'р'..'я': str[i]:= chr(ord(str[i])-80);
     end;
    result:=str;
 
end;
 
begin
 write('Enter Name: ');
 readln(name);
 write('Enter SurName: ');
 readln(fam);
 
 name:=Inversia(name);
 fam:=Inversia(fam);
 
 name:=Registr(name);
 fam:=Registr(fam);
 
 Out(name+' '+fam);
end.
Фамилию не правильно выводит(

Добавлено через 8 минут
Enter Name: Leonid
Enter SurName: Rudenko
result = Dinoel Dinoeloknedur
0
Викдон
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
13.12.2009, 14:20 7
хм...
0
Миниатюры
Преобразовать матрицу по правилу: строку с номером P сделать столбцом с номером P  
13.12.2009, 14:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2009, 14:20

Удалить из матрицы строку или столбец с номером k.
Дано число k и матрица размеров 4*10. Удалить строку или столбец с номером k....

Преобразовать матрицу по правилу
Здравствуйте, задание: Составить подпрограмму-процедуру, которая преобразует...

Преобразовать матрицу по правилу
1)Дана матрица А(N,N) и целое P. Преобразовать матрицу по правилу: строку с...


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

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

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