|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.01.2009, 01:43 | #1 |
Новичок
Джуниор
Регистрация: 14.01.2009
Сообщений: 1
|
Пожалуйста помогите завтра экзамен!!!
Нужно сделать две блок схемы
к первой задачке: program reshen; var x,y,z,u,tmpu,tmpx,tmpy,tmpz:real; begin tmpu:=-1000; x:=1; repeat y:=2; repeat z:=0.5; repeat U:=-(1)*(sqrt(sqr(y)+4*sqr(x)/3))+5*cos(x*y)*cos(x*y)*cos(x*y)/x*z; if u>tmpu then begin tmpu:=u; tmpx:=x; tmpy:=y; tmpz:=z; end; writeln ('pri x=',x:6:2,' y=',y:6:2,' z=',z:6:2,' u=',u:6:2); z:=z+0.8; until z>1.5; y:=y+1.3; until y>4; x:=x+1.3; until x>3; writeln ('tmpu= ', tmpu:6:2, ' tmpx=',tmpx:6:2, ' tmpy=', tmpy:6:2,' tmpz=', tmpz:6:2); readln; end. и ко второй program matrix; const n:=5; m:=5; var i,j,r,l:integer; c,s,max:real; a:array [1..n,1..m] of real; b:array [1..n] of real; begin writeln ('vvedite matrix [5x5]'); for i:=1 to n do for j:=1 to m do begin writeln ('A[',i,',',j,']'); readln (a[i,j]); end; writeln ('icxodnay matrix'); for i:=1 to n do begin for j:=1 to m do write (a[i,j]:2:0,' '); writeln; end; writeln('odnomernuu` massiv'); for j:=1 to 5 do begin s:=0; for i:=1 to 5 do s:=s+a[i,j]; b[i]:=s; write (b[i]:2:0,' '); end; writeln; max:=A[1,1]; r:=1; l:=1; for i:=1 to n do for j:=1 to m do begin if (i=j) and (max(A[i,j]) then begin max:=a[i,j]; r:=i; l:=j; end;end; writeln('max:=',max:2:0); c:=a[r,l]; A[r,l]:=a[1,3]; A[1,3]:=c; For i:=1 to n do Begin For j:=1 to m do Write(a[i,j]:2:0); Writeln; End; Readln; End. за ранее спасибо, за мной не застоит =) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ПАСКАЛЬ.помогите пожалуйста срочно сделать задачу, завтра зачет. | Absent | Помощь студентам | 14 | 15.06.2009 19:50 |
Завтра экзамен((( | Foxandrey | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 14.12.2008 12:00 |
assembler помогите решить задачку !Очень срочно! завтра экзамен! | Taxist | Помощь студентам | 1 | 31.03.2008 20:51 |