Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2009, 01:43   #1
muha
Новичок
Джуниор
 
Регистрация: 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.

за ранее спасибо, за мной не застоит =)
muha вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПАСКАЛЬ.помогите пожалуйста срочно сделать задачу, завтра зачет. 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