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

Выпуск № 393
от 08.06.2007, 07:05

Вопрос № 89.708

Помогите пожалуста с задачей, в ней нужно ввести с клавиатуры 2 матрицы (a и b), и в ответе чтоб были матрицы (C,P,PP и след матрицы PP(r)) C=a*b P=b*a PP=ab-ba r-след матр. PP у меня почему-то С=P всегда получается, а следовательно и PP считается неверно, код программы в приложении... можете исправить пожалуйста чтоб работало, через несколько дней надо сдать :( Приложение: program suma; uses crt; var A,B,C,P,PP: array[1..20,1..20] of integer; i,n,d,j,w,ww:integer; s,g,r,gg:integer; begin clrscr; write('vvedite razmernocnm=',n); read(n); writeln('A[i,j]'); for i := 1 to n do for j:= 1 to n do read(A[i,j]); begin writeln('hghg'); for i:=1 to n do begin for j:=1 to n do write(A[i,j],' '); writeln; end; end; write('B[i,j]'); for i := 1 to n do for j:= 1 to n do read(B[i,j]); begin writeln('hghg'); for i:=1 to n do begin for j:=1 to n do write(B[i,j],' '); writeln; end; end; for i:=1 to n do for j:=1 to n do begin s:=0; for d:=1 to n do s:=s+A[i,d]*B[d,j]; C[i,j]:=s; s:=0; end; for i:=1 to n do for j:=1 to n do begin writeln('C[i,j]'); for i:=1 to n do begin for j:=1 to n do write(C[i,j],' '); writeln; end; end; for i:=1 to n do for j:=1 to n do begin g:=0; for w:=1 to n do g:=g+B[w,j]*A[i,w] ; P[i,j]:=g; g:=0; end; for i:=1 to n do for j:=1 to n do begin writeln('P[i,j]'); for i:=1 to n do begin for j:=1 to n do write(P[i,j],' '); writeln; end; end; for i:=1 to n do for j:=1 to n do begin gg:=0; for ww:=1 to n do gg:=gg+C[ww,j]-P[i,ww] ; PP[i,j]:=gg; gg:=0; end; for i:=1 to n do for j:=1 to n do begin writeln('PP[i,j]'); for i:=1 to n do begin for j:=1 to n do write(PP[i,j],' '); writeln; end; end; begin r:=0; for i:=1 to n do for j:=i to i do r:=r+PP[i,j]; end; writeln('r=',r); end.

Отправлен: 02.06.2007, 12:48 Вопрос задал: Сватко Алексей Михайлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Verena Здравствуйте, Сватко Алексей Михайлович! Ваше решение практически верное, Вы только немного напутали с индексами во втором случае - я выделила место изменения, так работает правильно. for i:=1 to n do for j:=1 to n do begin g:=0; for w:=1 to n do g:=g+B[i,w]*A[w,j] ; P[i,j]:=g; g:=0; end; --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 02.06.2007, 22:32

Вопрос № 89.716

Здраствуйте. Условие: Пусть дан текст найти наибольшее количество цифр идуших подряд.Текст вводится с клавиатуры. Заранее спасибо.

Отправлен: 02.06.2007, 14:31 Вопрос задал: Иванов Максим Андреевич (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, Иванов Максим Андреевич! Пример в приложении. Приложение: program Q89716; uses Crt; var s: string; i,c,max: integer; begin clrscr; writeln('Введите текст:'); readln(s); c:=0; max:=0; for i:=1 to Length(s) do begin if s[i] in ['0'..'9'] then inc(c) else begin if (c > 0) and (c > max) then max:=c; c:=0 end end; if c > max then max:=c; writeln('Наибольшая длина числовой последовательности:',max); readln; end. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI ---- Ответ отправлен: 02.06.2007, 15:01

Отвечает: Устинов С.Е. Здравствуйте, Иванов Максим Андреевич! Решить можно, например, так: var i,max,t:integer; st:string; begin writeln('Vvedite stroku:'); readln(st); max:=0; i:=0; for t:=1 to length(st) do if st[t] in ['0'..'9'] then inc(i) else begin if max < i then max:=i; i:=0; end; if max < i then max:=i; writeln(max); readln; end. Удачи! --------- Ждешь квалифицированного ответа? Задай правильно вопрос!

Ответ отправил: Устинов С.Е. (статус: Специалист) Ответ отправлен: 02.06.2007, 15:03

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Максим Андреевич! Как вариант. Максимальное число в цепочке цифр считается на лету во время ввода строки. Длина строки неограничена. Удачи! Приложение: program q89716; uses crt ; var c:char; m,n:longint; begin c:=' '; n:=0; m:=0; write('enter string:'); while(ord(c)<>13)do begin c:=ReadKey; write(c); if ((c<='9')and(c>='0'))then begin n:=n+1; end else begin if n>m then m:=n; n:=0; end; end; writeln; writeln('maximum:',m); end. --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 02.06.2007, 15:39

Отвечает: Градов Юрий Михайлович Здравствуйте, Иванов Максим Андреевич! Думаю, что так. С ув. Ю.Михалыч Приложение: var i,max1,max2: integer; s1,s2: string; begin ClrScr; Writeln('Введите предложение: '); Read(s1); max1:=1; for i:=1 to Length(s1) do if s1[i] in ['0'..'9'] then s2:=s2+s1[i]; for i:=2 to Length(s2) do if StrToInt(s2[i])-StrToInt(s2[i-1])=1 then Inc(max1) else begin if max1>max2 then max2:=max1; max1:=1; end; if max2>max1 then max1:=max2; Writeln('Наибольшее число идущих подряд чисел =',IntToStr(max1)); ReadKey; end. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 02.06.2007, 16:08

Отвечает: Вологин Всеволод Вячеславович Здравствуйте, Иванов Максим Андреевич! Program Figure; Uses Crt; Const Cif = ['0'..'9']; Var st : String; I,j,Max,count : Integer; Begin Clrscr; Write('Введите строку --> '); ReadLn(St); Max := 0; Count := 0; For i:=1 to length(st) do Begin if St[i] in cif Then Begin j:=i; Count :=0; While St[j] in cif do Begin inc(j); Inc(Count); End; if Max < Count Then Max := count; End; End; Write('Результат --> ',max); ReadKey; End. --------- Это круто - машина состояний с бесконечным циклом

Ответ отправил: Вологин Всеволод Вячеславович (статус: 2-ой класс) Ответ отправлен: 04.06.2007, 06:47

Вопрос № 89.749

Здраствуйте, помогите пожалуйста решить задачу: "В заданном предложении найти пару слов, из которых одно является отражением другого." например: роза - азор, анна - анна и т.д. заранее благодарен.

Отправлен: 02.06.2007, 18:46 Вопрос задал: Степановский Антон (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Градов Юрий Михайлович Здравствуйте, Степановский Антон! Задача в приложении. Приложение: var AntiSt,PositSt,St: string; i,j,p: integer; begin ClrScr; Write('Input string: '); Read(St); for i:=1 to Length(St) do if St[i]<>' ' then begin AntiSt:=St[i]+AntiSt; PositSt:=PositSt+St[i]; end else begin p:=Pos(AntiSt,St); if p<>0 then begin for j:=p to p+Length(AntiSt) do St[j]:=' '; Write(PositSt); Write(' - '); Writeln(AntiSt); AntiSt:=''; PositSt:=''; end; end; ReadKey; end. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 02.06.2007, 19:45

Вопрос № 89.772

Доброго Вам времени суток! Помогите, пожалуста найти ошибки в моей программе. Условие задачи: С клавиатуры вводится исходн. список студентов, содержащий след.информацию: Фамилия, имя, отчество, год и мес. рождения, дом. адрес, изучаемый ин. язык. Требуется сформировать два списка групп с количеством студентов не более 10 в каждой. При этом, кол-во студентов, изучающих разные ин.языки( англ. и нем.) должно быть примерно одинаково в каждой группе. Кроме того, список каждой группы должен быть упорядочен по алфавиту. Вывод данных - в типизированный файл. По моему разумению, задача сводится к следующему алгоритму: исходный список сначала упорядочивается по ин.языку с подсчетом кол-ва студентов всего в исх.списке. Затем формируем два списка путем удаления из упорядоченного по ин.языкам: 1) середины списка начиная примерно со "второй" половины студентов, с англ.яз и следующей за ней "первой" половины с нем.языком; 2) наоборот, сначала удаляем из головы списка "половину" с англ.языком, а затем из хвоста списка вторую половину с нем. языком". Однако практическая реализация этого алгоритма мне не очень удалась. Кроме того, при работе со списками, мне не удается воспользоваться процедурами, т.к. я не допонимаю, как результаты работы этих процедур вернуть в основную программу.Это относится и к процедурам удаления части строк списка(у меня их три: из начала списка, из середины, и с конца) и к процедуре упорядочения списка. Я попыталась сделать единую процедуру для упорядочения независимо от поля записи, чтобы использовать в зависимости от нужды(или по языку, или по фамилии). Но подключить ее к программе не смогла. Причем странно, если я просто вписываю алгоритм упорядочивания по конкретному полю без процедуры, то он работает, а в виде процедуры - нет. И еще в моей программе есть одна странность: при вводе даты рождения программа виснет, а без ввода даты - нет.В приложении привожу текст моей программы, которая работает лишь на половину. Буду весьма признательна за помощь, а то очень поджимают сроки. Приложение: { Программа заносит данные о студентах (Ф.И.О.,год и месяц рождения, } { адрес проживания, изучаемый иностр.язык) в 2-а примерно равных } { упорядоченных по фамилии списка записей. В каждом списке число} { студентов, изучающих разные иностр. языки, должно быть примерно одинаково.} program Std_List; uses crt; type PStud = ^TStud;{тип указателя на запись} TStud = record {тип записи о студенте} Fam: string[20]; {фамилия} Name: string[20];{имя} Patr: string[20];{отчество} DataBorn:string[10]; {год и месяц рождения в формате ГГГГ.ММ} Adr: string[100]; {адрес регистрации} Lang: string[1]; {изучаемый ин. яз.: а/н или e/g} Next: PStud; {указатель на следующий элемент списка} Info: string; {переменная с произвольными данными о студенте} end; { Функция ввода записи о студенте } { Результат функции - код ошибки при вводе } { При успешном вводе результат = 0 } { Если строка пустая, результат = -1 } { Если ин.яз не задан или данные заданы неверно, то результат = 1 } { } { Примечание: для пользователя удобнее при вводе } { запрашивать каждый из элементов данных отдельно } { Ввод списка закачивается пустой строкой } function InData(var Std: TStud): Integer; { var } { St: String[180];{ строка ввода } { P: Integer;{ номер позиции в строке } { LangS: String[2];{ поле строки, содержащее сведения об ин.яз.} { ErrCode: Integer;{код ошибки при определении ин.яз.} begin {ввод строки данных о студенте} with Std do begin write('Фамилия : '); readln(Fam); write('Имя : '); readln(Name); write('Отчество : '); readln(Patr); {! write('Год и месяц рождения в формате ГГГГ.ММ : '); { readln(DataBorn);} write('адрес регистрации: '); readln(Adr); write('изучаемый ин.яз.(рус/лат "а"/"e"- англ.яз. или рус/лат "н"/"g"- нем.яз.) : '); readln(Lang); end; {with} if (Std.Fam='') or (Std.Name='') or (Std.Patr='') or (Std.Adr='') or (Std.Lang='') then InData:=-1 else begin if (Std.Lang = 'e') or (Std.Lang = 'g') or (Std.Lang = 'а') or (Std.Lang = 'н') then InData:=0 else InData:=1; end; end; {процедура формирования упоряд.списка} Procedure InSort(Head: PStud; var Sps: TStud; Data: string); var StNew,St,StNext: PStud; {Формируем упорядоченный список студентов по одному из полей записи} begin { New(StNew);} StNew^.Info:=Data; Writeln(Data,'*!',StNew^.Info); {условие помещения строки в начало списка} { if (Head=nil) or (Head^.Info > StNew^.Info) then begin StNew^.Next:=Head; Head:=StNew; writeln('*!*',Head^.Info); end else begin {Поиск места для вставки строки.} {Условие окончания поиска: следующая строка для ввода } {отсутствует или ее ключевое поле (наименов. ин.яз.) больше} {ключевого поля текущей вставляемой строки } St:=Head; { StNext:=St^.Next;} while (St^.Next <> nil) and (St^.Next^.Info <= StNew^.Info) do begin St:=St^.Next; { StNext:=St^.Next; } end; {вставка строки} St^.Next:=StNew; if St^.Next <> nil then {сли вставка в середину списка} StNew^.Next:=St^.Next else StNew^.Next:=nil; {если вставка в конец списка} { end; } end;{procedure InSort} {процедура удаления строки из середины списка} Procedure DelMeans(Head: PStud; var St: PStud; var I: integer); var StPred,StNext:PStud; k: integer; begin St:=Head; StPred:=nil; k:=1; while (k < I) do begin {поиск предыдущей (i-1) строки по отношению к удаляемой.} k:=k+1; {по окончанию цикла в StPred будет адрес предыдущей } StPred:=St; {строки по отношению к удаляемой St } St:=St^.Next; end; StNext:=St^.Next; StPred^.Next:=StNext; dispose(St); end; {procedure DelMeans} {процедура удаления 1-й строки списка} Procedure DelHead(Head: PStud; var St: PStud); begin St:=Head; Head:=Head^.Next; dispose(St); end;{procedure DelHead} {процедура удаления последней строки списка} Procedure DelTail(Head: PStud; var St: PStud); var StPred:PStud; begin St:=Head; StPred:=Head; while StPred^.Next <> nil do {поиск адреса последней строки} begin St:=StPred; {запоминание адреса текущей строки списка} StPred:=StPred^.Next {переход к следующей строке} end; {по заверш. цикла в St будет адрес последней строки} dispose(St); {удаление последнего элемента} StPred^.Next:=nil; end; Var HeadLst,Head1,Head2: PStud;{указатель на голову списка} TailLst,Tail1,Tail2: PStud;{указатель на хвост списка - не используется} LstNew: PStud; {указатель на новую строку списка} Lst,Gr1,Gr2: PStud; {указатель на текущую строку списка} LstNext: PStud; {указатель на следующую строку списка} InResult: integer; {результат ввода записи} N,E,E1,E2,G,G1,G2,Z: Integer; {число студентов} s:integer;{счетчик строк списка} Data:string; Begin clrscr; writeln(' Программа формирует 2-а упорядоченных по алфавиту списка'); writeln(' студентов, в каждом из которых число студентов не более 10'); writeln(' и примерно равное количество студентов, изучающих разные ин.языки.'); {Ввод списка записей} writeln('Введите данные о студенте.'); writeln('Для окончания ввода списка для каждого поля данных нажмите Enter.'); {Начальные установки} HeadLst:=nil; {список пока пуст} N:= 0; Data:= 'a'; {Организуем цикл до тех пор, пока не будет введена пустая строка (окончание ввода)} repeat {Организуем цикл до тех пор, пока очередная строка не будет введена без ошибки} repeat new(LstNew); {создаем новую строку списка} InResult := InData(LstNew^); {ввести данные с клавиатуры } if InResult = 0 then {запись введена без ошибок} {сортируем список по ин.яз. и подсчитываем общее кол-во студентов N} begin if (HeadLst=nil) or (HeadLst^.Lang > LstNew^.Lang) then begin LstNew^.Next:=HeadLst; HeadLst:=LstNew; writeln('***',HeadLst^.Lang); end else begin {Поиск места для вставки строки.} {Условие окончания поиска: следующая строка для ввода } {отсутствует или ее ключевое поле (наименов. ин.яз.) больше} {ключевого поля текущей вставляемой строки } Lst:=HeadLst; while (Lst^.Next <> nil) and (Lst^.Next^.Lang <= LstNew^.Lang) do Lst:=Lst^.Next; {вставка строки} LstNew^.Next:=Lst^.Next; Lst^.Next:=LstNew; end; N:=N+1; end {конец условия правильного ввода} else {запись введена с ошибками} if InResult = 1 then begin writeln(' Ошибка при вводе данных студента с фамилией ',Lst^.Fam); writeln(' Повторите ввод данных этого студента еще раз.'); end until InResult <> 1 until InResult = -1; {** Для контроля } writeln; writeln( 'Результаты ввода: '); Lst:=HeadLst; writeln(' Упорядоченный по ин.яз. исх.список: '); while Lst <> nil do begin writeln (N,' **',Lst^.Fam:10,' ',' ',Lst^.Lang); Lst:=Lst^.Next; end; {************} readkey; {определим количество студентов с англ.яз.(Е) и нем. языком (G)} E:=0; LstNew:=HeadLst; while LstNew <> nil do begin if (LstNew^.Lang = 'e') or (LstNew^.Lang = 'а') then inc(E); {вычисление E} LstNew:=LstNew^.Next; end; G:=N-E; {вычисление G} E1:= E div 2; {определяем число студентов с анг. яз. для 1-й группы } E2:= E-E1; {определяем число студентов с анг. яз. для 2-й группы } G1:= G div 2; {определяем число студентов с нем. яз. для 1-й группы } G2:= G-G1; {определяем число студентов с нем. яз. для 2-й группы } {формирование упорядоченных по алфавиту списков 2-х групп студентов,} {в каждой из которых должно быть примерно равное число студентов,} {изучающих разные ин.яз.} {формируем 1-ю группу} Head1:=HeadLst; Gr1:=Head1; Z:=N-G2; s:=E1+1; while (s <= Z) do begin { DelMeans(Head1,Gr1,s); } s:=s+1; end; Data:=Gr1^.Fam; writeln(Gr1^.Fam,'//',Gr1^.Lang); readkey; { InSort(HeadLst,Gr1^,Data); } {** Для контроля } writeln; writeln( 'Результаты ввода 1: '); Gr1:=Head1; writeln(' Первый упорядоченный список: '); while Gr1 <> nil do begin writeln(Gr1^.Fam,' ',Gr1^.Lang); Gr1:=Gr1^.Next; end; {************} {формируем 2-ю группу} Head2:=HeadLst; Gr2:=Head2; s:=1; while (s <= E1) do begin { DelHead(Head2,Gr2); } s:=s+1; end; s:=1; while (s <= G2) do begin { DelTail(Head2,Gr2); } s:=s+1; end; Data:=Gr2^.Fam; InSort(HeadLst,Gr2^,Data); {** Для контроля } writeln; writeln( 'Результаты ввода 2: '); Gr2:=Head2; writeln(' Второй упорядоченный список: '); while Gr2 <> nil do begin writeln(Gr2^.Fam,' ',Gr2^.Lang); Gr2:=Gr2^.Next; end; {************} readkey; End.

Отправлен: 02.06.2007, 22:01 Вопрос задала: Ga1ina (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 11)

Отвечает: Градов Юрий Михайлович Здравствуйте, Ga1ina! Я бы не заморачивался с указателями, а раскидывал бы студентов по спискам в процессе ввода информации type TStud = record {тип записи о студенте} Fam: string[20]; {фамилия} Name: string[20];{имя} .... Info: string; {переменная с произвольными данными о студенте} end; var StudEng: array[1..10] of TStud; StudGrm: array[1..10] of TStud; StTmp: array[1..1] of TStud; CountEng, CountGrm: integer; Информацию вводим StTmp и если англ. заносим в 1-й список, немецкий во 2-й. Увеличивая счетчик CountEng или CountGrm. Затем обычная сортировка "Пузырьковым методом" обоих списков и вывод на экран. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 03.06.2007, 00:50

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