|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2008, 00:59 | #1 |
Пользователь
Регистрация: 14.05.2008
Сообщений: 14
|
Помогите переделать и проверьте
(1) Вывести те слова заданной строки, которые отличаются от последнего слова, и удовлетворяет условие. Каждая буква входит в слово не меньше 2 раз.
вот вроде текст проверьте плиз uses crt; var st,st1:string; function Copyslova(s:string):string; var i,k:integer; begin i:=1; while i<=length(s) do begin if pos(' ',s[i])<>0 then k:=i; i:=i+1; end; copyslova:=copy(s,k+1,length(s)-k); end; procedure obr(st4:string); var i,k:integer; begin k:=0; for i:=2 to length(st4) do if st4[1]=st4[i] then writeln(st4); if k<>0 then k:=k+1; end; procedure text_podil(st:string; var st1:string); var i,k:integer; st3,st4:string; begin i:=1; st3:=copyslova(st); repeat k:=1; while(i<=length(st))and (st[i]<>' ')do begin i:=i+1; k:=k+1; end; st4:=copy(st,i-(k-1),k-1); if (st4<>st3) then Obr(st4); i:=i+1; until i>length(st); end; {-----------main------------} begin clrscr; writeln('vvedity ryadok'); readln(st); text_podil(st,st1); writeln(st1); readln; End. (2)заполнить и вывести матрицу после вывести номер столбица с минимальным значением умноженых елементов. Оказалось что нужно делать только через процедуры-функцыи как вот такую лабу переделать? Program matriza; Uses crt; Const N=5; M=5; Var A:array [1..N,1..M] of integer; Pro:array [1..M] of integer; num, k,i,j,Min:integer; Begin ClrScr; Randomize; writeln('Isxodnii massiv: '); For i:=1 to N do Begin For j:=1 to M do Begin A[i,j]:=random(15)-3; write(A[i,j]:3); End; writeln; End; writeln; writeln('Proizvedenie v stolbzax: '); For j:=1 to M do Begin For i:=1 to N do Begin if i=1 then Pro[j]:=A[i, j] else Pro[j]:=Pro[j]*A[i,j]; End; write(pro[j],' '); End; Min:=pro[1]; num := 1; writeln; For j:=2 to M do Begin If Min>pro[j] then begin min:=pro[j]; num := j end; End; write('num = ', num, ' Znachenie = ', min); readln; End. |
22.05.2008, 11:33 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
По второй задаче.
По условию нужно только вывести номер столбца с мимимальным произведением, поэтому все лишнее выкинул, а заданный вопрос решается одной функцией. Код:
|
22.05.2008, 15:10 | #3 |
Форумчанин
Регистрация: 17.02.2008
Сообщений: 191
|
Код:
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
|
22.05.2008, 17:26 | #4 |
Пользователь
Регистрация: 14.05.2008
Сообщений: 14
|
огромное спасибо вы меня несказано выручили
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите переделать программы под задание | Povar | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 22.05.2008 15:59 |
Строки. Помогите переделать | DeeCee | Общие вопросы Delphi | 9 | 25.12.2007 22:01 |
Помогите переделать | Stanislav | Общие вопросы Delphi | 2 | 24.10.2007 16:14 |
Помогите переделать БД | Antowka | БД в Delphi | 17 | 15.06.2007 21:35 |