/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 624
от 06.04.2008, 05:35

Вопрос № 129.830

здравствуйте.Задано 2 матрицы А(М,N) и В(М,N) умножить их.

Отправлен: 31.03.2008, 05:54 Вопрос задала: Nargis Haydarova (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Nargis Haydarova! Проще было бы осваивать умножение матриц с квадратных, поскольку умножение прямоугольных немного труднее понять, поскольку в результате могут получиться матрицы разных размеров. У Вас в условии неверно указаны размеры матриц, поскольку в первом множителе должно быть столько же столбцов, сколько строк во втором. Если матрица A имеет размерность m*n,то B должна иметь размерность k*m, или в нашем случае n*m. Размерность их произведения AB = C будет иметь размерность m*m. Если m<n, то то матрица будет "маленькая", если наоборот, то "большая". Если m=n, то все три матрицы будук одинаковые, квадратные. Вообще, раз Вам дали задание на умножение матриц, значит как это делать вручную, Вы должны знать. Если подзабыли, посмотрите в учебнике по численным методам или в интернете, например в Википедии. Хотел оставить здесь ссылку, почему-то не получается. Решение задачи в приложении, сделано для прямоугольных матриц 3х2 и 2 х3, чтобы легче вручную проверить результат. У меня все сошлось. Чтобы взять матрицы побольше, измените значения констант n и m. Исправлено неправильное применение спецсимволов HTML. ----- ∙ Отредактировал: sir henry (Академик) ∙ Дата редактирования: 31.03.2008, 13:25 Приложение: uses crt; const m=3; n=2; var a:array[1..m,1..n]of integer; b:array[1..n,1..m]of integer; c:array[1..m,1..m]of integer; i,j,k:integer; begin clrscr; randomize; writeln('Matrica A:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(9)+1; write(a[i,j]:3); end; writeln; end; readln; writeln('Matrica B:'); for i:=1 to n do begin for j:=1 to m do begin b[i,j]:=random(9)+1; write(b[i,j]:3); end; writeln; end; readln; for k:=1 to m do for j:=1 to m do begin c[k,j]:=0; for i:=1 to n do begin c[k,j]:=c[k,j]+a[k,i]*b[i,j]; end; end; for i:=1 to m do begin for j:=1 to m do write(c[i,j]:5); writeln; end; readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 31.03.2008, 09:49 Оценка за ответ: 5

Вопрос № 129.896

Доброе время суток. Нужно решение хотя бы 2-х задачь, ковь из носу Дана целочисленная прямоугольная матрица. 1) Определить количество столбцов, не содержащих ни одного нулевого элемента (оформить в виде функции). 2) Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристик (оформить в виде процедуры). Дана целочисленная квадратная матрица. Определить: 1) произведение элементов в тех строках, которые не содержат отрицательных элементов (оформить в виде функции); 2) максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы (оформить в виде процедуры).

Отправлен: 31.03.2008, 15:59 Вопрос задал: Брель В.А (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Брель В.А! Для начала решение первой задачи в приложении. Приложение: uses crt; type Tmatr=array[1..50,1..50]of integer; var a:Tmatr; n,m,i,j:integer; {Функция считает количество безнулевых столбцов} function KolStb(n,m:integer;a:Tmatr):integer; var kn,ks:integer; begin ks:=0; for j:=1 to m do begin kn:=0; for i:=1 to n do if a[i,j]=0 then begin kn:=kn+1; {количество нолей в столбце} end; if kn=0 then ks:=ks+1; {если нет, то считаем столбец} end; KolStb:=ks; end; begin clrscr; write('n=');readln(n); write('m=');readln(m); writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; readln; writeln('kstb=',KolStb(n,m,a)); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 31.03.2008, 17:34 Оценка за ответ: 5

Вопрос № 129.937

Здравствуйте! Помогите пожалуста с задачей: Придумать любой алгоритм кодировки. Сначала на экран выводится закодированная фраза, а потом по обратному алгоритму - исходная. Заранее спасибо!

Отправлен: 31.03.2008, 19:42 Вопрос задал: Dreamss (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Marked One Здравствуйте, Dreamss! Код в приложении. Всё проверено Удачи!!! Приложение: Var Str:String; i:integer; begin Write('Фраза которую надо зашифровать: '); ReadLn(Str); For i:=1 to Length(str) do str[i]:=Chr(Ord(str[i])-10); WriteLn('Зашифрованная строка: ', str); For i:=1 to Length(str) do str[i]:=Chr(Ord(str[i])+10); WriTeln('Расшифрованная строка: ', str); readln(str); end.

Ответ отправил: Marked One (статус: 10-ый класс) Ответ отправлен: 31.03.2008, 20:01 Оценка за ответ: 5

Отвечает: Louken Здравствуйте, Dreamss! Предлагаю самый простой алгоритм шифрования. Проще, мне кажется, не придумаешь. На место каждого символа строки вставляется обратный символ в таблице ASCII. Приложение: program z; uses Crt; var s: string; i: integer; begin ClrScr; Writeln('Шифруемый текст:'); Readln(s); Writeln('Зашифрованный текст:'); for i:=1 to Length(s) do s[i]:=chr(255-Ord(s[i])); Writeln(s); Writeln('Расшифрованный текст:'); for i:=1 to Length(s) do s[i]:=chr(255-Ord(s[i])); Writeln(s); Readln; end.

Ответ отправил: Louken (статус: Студент) Ответ отправлен: 31.03.2008, 20:09 Оценка за ответ: 5

Отвечает: Шемет Станислав Васильевич Здравствуйте, Dreamss! Можно к примеру каждую букву зашифровать при помощи логической операции "xor", она хороша тем что: При первом ее использовании текст шифруется а при втором дешифруется. Токо в моей программе надо ввести сначало текст который она будет шифровать, если это не надо то можно заменить строки: "Write('Vvedite text: '); Readln(s);" на "Randomize; For i:=1 to 255 do s[i]:=random(255);" Приложение: Var s:string; I:integer; Begin Write('Vvedite text: '); Readln(s); For i:=1 to Length(s) do s[i]:=chr((ord(s[i])xor 64)); Writeln(s); For i:=1 to Length(s) do s[i]:=chr((ord(s[i])xor 64)); Writeln(s); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс) Ответ отправлен: 31.03.2008, 20:42 Оценка за ответ: 5 Комментарий оценки: У Вас в программе как раз то, что надо.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Dreamss! Предлагаю совершенно другой алгоритм кодирования, с ипользованием пароля. С его помощью можно кодировать файлы, любого размера, стойкость шифра около 2'000'000'000 комбинаций пароля. Удачи! Приложение: uses crt; var fileIn,fileOut:text; a,b,k:longint; d:byte; c:char; s:string; procedure CodeText; var passCode:byte; begin {запоминаем секретное число} b:=a; while not(eof(fileIn))do begin read(fileIn,c); {получаем последнюю цифру} d:=b mod 10; {вычисляем смещение} passCode:=k*d+ord(c); {удаляем использованную цифру} b:=b div 10; {если В=0 снова берем секретную цифру} if b=0 then b:=a; {меняем знак для следующей операции} k:=-1*k; {использована стандартная таблица символов но вместо её можно использовать, что-то вроде passLine:string} c:=chr(passCode); write(fileOut,c); end; {все закрываем} close(fileIn); close(fileOut); end; procedure GetFileName; begin writeln; case k of 1:writeln('Coder:'); -1:writeln('Decoder:'); end; {вводим имя входного файла} write('Enter File Name:'); readln(s); assign(fileIn,s); reset(fileIn); {вводим имя выходного файла} write('Enter File Name:'); readln(s); assign(fileOut,s); rewrite(fileOut); write('Enter Password:'); {вводим пароль} a:=0; while c<>chr(13) do begin c:=ReadKey; write('*'); a:=a*10+ord(c); end; CodeText; end; begin while c<>'0' do begin {типа менюшка} writeln; write('1-code',chr(13),chr(10),'2-decode',chr(13),chr(10),'0-exit'); c:=ReadKey; if (c='1')or(c='2')then begin case c of '1':k:=1; '2':k:=-1; end; GetFileName; end; end; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 31.03.2008, 20:47 Оценка за ответ: 5 Комментарий оценки: Круто!

Вопрос № 129.938

решите,пожалуйста, эту задачу Имена и дать рождение студентов, которые живут в Киеве, и фамилии студентов, средний балл которых меньше ”4”.

Отправлен: 31.03.2008, 19:42 Вопрос задал: Петренко Дмитро (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Петренко Дмитро ! Решение задачи в приложении. Сделал так, как понял условие. По моему в нем что-то пропущено, типа какие-то оценки, чтобы считать средний балл, а может все нормально. Если что не ругайте, а задайте вопрос на мини-форуме вопроса, обязательно отвечу. Еще поправьте текстовую часть программы (не код)так как у вас принято, а то у меня некая смесь английского с рязанским. Приложение: uses crt; type student=record {запись с полями по условию} fam:string[20]; nam:string[20]; gor:string[20]; dat:string[20]; bal:real; end; var std:array[1..30]of student; {массив записей} n,i:integer; begin clrscr; write('Kolicestvo studentov = '); readln(n); for i:=1 to n do begin writeln('Zapis ',i); write('familia:');readln(std[i].fam); write('Imja:'); readln(std[i].nam); write('Gorod:');readln(std[i].gor); write('Data rogdenia:');readln(std[i].dat); write('Sredny ball:');readln(std[i].bal); end; writeln; writeln('Iz Kieva:'); for i:=1 to n do {выводим данные о тех,кто живет в киеве} if std[i].gor='Kiev' then begin writeln(std[i].nam,' ',std[i].dat); end; writeln; {выводим данные о тех, у кого ср.балл <4} writeln('Sredny ball<4:'); for i:=1 to n do if std[i].bal<4 then begin writeln(std[i].fam); end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 01.04.2008, 09:15

Вопрос № 129.952

Здравствуйте Уважаемые Эксперты. У меня проблема с задачами. Я всего лишь учусь, может эти задачи Вы видели, значит я их не понял. Вобщем помогите мне их решить, только нетрудно и понятно, желательно с объяснением. Заранее благодарю. Задача 1. Заменить все цифры в строке на цифру 8. Пример ввода: 1+2+3+4+5+6+7+8+9+10+11=66 Пример вывода: 8+8+8+8+8+8+8+8+8+88+88=88 Задача 2. В классе 10 человек, тесты проводились по 10 предметам. Каждый ученик по каждому тесту получили оценку от 0 до 10. Учитель решил посчитать, сколько всего оценок, которые строго больше 5. Помогите в этовм учителю. Пример ввода: 12345678910 12345678910 12345678910 12345678910 12345678910 12345678910 12345678910 12345678910 12345678910 12345678910 Пример вывода: 50 Задача 3. Сережа пошел в лес вместе с друзьями. Они разбрелись по всему лесу, и вдруг Сереже стало интересно, под каким номером идет его друг, который находится на самом далеком расстоянии от него. Помогите ему узнать это. Формат ввода: Первая строка это три числа первые два это позиция Сережи, а следующее число N это количество друзей Вторая строка - позиция 1-ого друга; Третья строка - позиция 2-ого друга; ... N+1-ая строка - позиция N-ого друга. Пример ввода: 113 00 33 22 Пример вывода: 2

Отправлен: 31.03.2008, 22:07 Вопрос задал: Шорин Роман Игоревич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Marked One Здравствуйте, Шорин Роман Игоревич! Первая задача с комментариями в приложении Удачи!!! Приложение: {Первая задача} const {Множество с цифрами. Если текущий символ есть в } cifri=['1'..'9']; var {str-переменная в которой хранится строка i-счетчик для цикла с параметром} str:string; i:integer; begin {Получаем строку} Write('Введите строку: '); Readln(str); {Проходим каждый символ в строке} For i:=1 to Length(str) do {если текущий символ цифра, то заменяем её на 8} if str[i] in cifri then str[i]:='8'; {Вывод результата} writeln('Рез-тат: ', str); readln(str); end.

Ответ отправил: Marked One (статус: 10-ый класс) Ответ отправлен: 31.03.2008, 23:07

Отвечает: Пупорев Юрий Борисович Здравствуйте, Шорин Роман Игоревич! Решение задачи №2 лучше оформить в виде двухмерного массива размером 10х10и заполнить его случайными числами в интервале 1-10. Затем посчитать количество оценок >5. Код в приложении. Приложение: uses crt; var a:array[1..10,1..10]of byte; i,j,k:byte; begin clrscr; randomize; k:=0; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(10)+1; write(a[i,j]:3); if a[i,j]>5 then begin k:=k+1; end; end; writeln; end; writeln; writeln('Ocenok>5=',k); readln end. readln

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 01.04.2008, 08:33

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.72.8 от 05.04.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru