|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2012, 10:28 | #1 |
Пользователь
Регистрация: 16.12.2011
Сообщений: 25
|
Совместить все программы
Помогите все эти программы связать в одну.
1) type TMat = array[1..100, 1..100] of integer; var MatA, MatB: TMat; n: integer; procedure Zapolnenie(var Mat: TMat; n: integer); var i, j: integer; begin writeln; for i:=1 to n do begin for j:=1 to n do begin Mat[i, j]:=random(71)-50; write(Mat[i, j]:4); end; writeln; end; writeln; end; begin readln(n); Zapolnenie(MatA, n); readln(n); Zapolnenie(MatB, n); end. 2) program lab_kr; type TArr = array[1..100,1..100] of integer; procedure Work (const a : TArr; var sum, kol : Integer); var j,n, i : Integer; begin sum:=0; kol:=0; for i:=1 to n do for j:=1 to n do if (A[i,j]>0) and (i<j) then begin inc(kol); sum:=sum+A[i,j]; end; end; var a : TArr; i,j,n:integer; sum,kol:integer; begin write ('Vvedite razmer massiva A'); readln (n); for i:=1 to n do for j:=1 to n do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; write ('Vot vvedennyy vami massiv A- '); for i:=1 to n do begin writeln; for j:=1 to n do write (A[i,j]:3,' '); end; writeln; writeln('Summa= ',sum); writeln('Kol-vo= ',kol); readln; end. 3) Program mas_11; uses crt; const n=3;m=4; Var a:array[1..n,1..m] of integer; max,i,j:integer; Begin randomize; For i:=1 to n do begin For j:=1 to m do begin a[i,j]:=random(10); write(a[I,j]:4); end; writeln; end; For i:=1 to n do begin max:=a[i,1]; For j:=1 to m do If max< a[i,j] then max:=a[i,j]; Writeln('наибольший элемент массива ',i,'строки',max); End; For i:=1 to n do begin For j:=1 to m do If a[1,j]< a[i,j] then a[1,j]:=a[i,j]; End; For i:=1 to n do begin For j:=1 to m do write(a[i,j]:6); writeln; End; Readln; End. 4) Program dmas_2; const n=3;m=4; Var a:array[1..n,1..m] of integer; I,j:integer; s:real; Begin For i:=1 to n do For j:=1 to m do Begin Writeln('ўўҐ¤ЁвҐ н«Ґ¬Ґ*в ¬*ббЁў* '); Readln(a[i,j]); End; s:=0; For i:=1 to n do For j:=1 to m do s:=s+a[i,j]; Writeln('б।*ҐҐ *аЁд¬ҐвЁзҐбЄ®Ґ =',s/(n+m):4:4); Readln; End. 5) Const s1='D:\TP7\SOURCES\1.pas'; s2='D:\TP7\SOURCES\10.txt'; type TMat = array[1..100, 1..100] of integer; var MatA, MatB: TMat; n: integer; st:string; f1,f2:text; procedure Zapolnenie(var Mat: TMat; n: integer); var i, j: integer; begin writeln; for i:=1 to n do begin for j:=1 to n do begin Mat[i, j]:=random(71)-50; write(Mat[i, j]:4); end; writeln; end; writeln; end; begin readln(n); Zapolnenie(MatA, n); readln(n); Zapolnenie(MatB, n); Assign(f1,s1); Reset(f1); Assign(f2,s2); Rewrite(f2); While not EOF(f1) do Begin ReadLn(f1,st); WriteLn(f2,st); End; Close(f1); Close(f2); end. 6) program m1; uses crt; var a:string; i:integer; procedure schet(b:string); var glas:integer; begin glas:=0; for i:=1 to length(b) do begin b[i]:=['a'..'z','A'..'Z'] and b[i]:=['a','A','e','E','i','I','o','O','u' ,'U','y','Y']then inc(glas); end; writeln('glasnyh:',glas); write('glasnyh'); end; begin clrscr; a:='D:\TP7\SOURCES\10.txt'); writeln(a); schet(a); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Совместить 2 программы в одну | scenik | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 12.01.2012 00:38 |
Закрыть все программы | Михаил Юрьевич | Общие вопросы Delphi | 2 | 28.05.2010 22:07 |
Разобрать все функции программы | Испанец91 | Помощь студентам | 0 | 18.02.2010 00:21 |
Вылетают АБСОЛЮТНО ВСЕ программы... | Aviator | Безопасность, Шифрование | 39 | 23.01.2010 22:53 |