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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.12.2010, 17:06   #1
Biggie Smalls
Пользователь
 
Регистрация: 05.12.2010
Сообщений: 31
По умолчанию Pascal

Всем привет, помогите отладить, работает но всегда выводит одно и тоже число, 11.
Код:
program z235;
type mas=array [1..7] of real;
var
c,p:mas;
i,j,imax,jmax:integer;
psum,max,k:real;
z:boolean;
procedure proc(x,y:integer;f:real);
begin
f:=c[x]/(p[y]+c[x]*c[x]);
end;
begin
for i:=1 to 7 do
begin
writeln('vvedite',i,'-i element massiva C i masiva P:');
readln(c[i],p[i]);
end;
psum:=0;
for i:=1 to 7 do
psum:=psum+p[i];
z:=false;
for i:=1 to 7 do
if c[i]>=psum then z:=true;
if z=false then
begin
proc(1,1,max);
imax:=1;
jmax:=1;
for i:=1 to 7 do
for j:=1 to 7 do
begin
proc(i,j,k);
if k>max then
begin
max:=k;
imax:=i;
jmax:=j;
end;
end;
writeln(imax,'',jmax);
end;
readln;
end.

Последний раз редактировалось Stilet; 05.12.2010 в 19:39.
Biggie Smalls вне форума Ответить с цитированием
Старый 05.12.2010, 19:44   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Да уж...
А что за задание то?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 05.12.2010, 19:58   #3
Biggie Smalls
Пользователь
 
Регистрация: 05.12.2010
Сообщений: 31
По умолчанию

Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу А из %5 строк и 5 столбцов или одномерный массив указанной длинны.

Даны две последовательности:C1,C2,...,C7;P1, P2,...,P7. Если каждый элемент первой последовательности меньше суммы элементов второй, найти при каких значениях i,j максимально значение выражения Ci/(Pj+Ci*Ci)
Biggie Smalls вне форума Ответить с цитированием
Старый 05.12.2010, 20:36   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Так сойдет?:
Код:
 type mas=array [1..7] of real;
var
 c,p:mas;   max,sum:real;  ok:boolean;
 i,j,imax,jmax:integer;
begin
 ok:=false;   randomize;
 for i:=1 to 7 do begin  p[i]:=random(100)/10;sum:=sum+p[i]; write(p[i]:5:2);end; writeln;
 for i:=1 to 7 do begin  c[i]:=random(100)/10; write(c[i]:5:2); if (c[i]<sum)and(not ok) then ok:=true; end;    writeln;

 if ok then begin
  max:=c[1]/(p[1]+sqr(c[1]));
  for i:=1 to 7 do
   for j:=1 to 7 do
    if (c[i]/(p[j]+sqr(c[i])))>max then begin
     max:=c[i]/(p[j]+sqr(c[i]));
     imax:=i;jmax:=j;
    end;
 end;
 writeln;
 writeln(imax:5,jmax:5);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 05.12.2010, 22:10   #5
Biggie Smalls
Пользователь
 
Регистрация: 05.12.2010
Сообщений: 31
По умолчанию

да спасибо большое) а не подскажете какую нить литературу по паскалю, или курс какой обучающей? Надо учится)
Biggie Smalls вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Pascal or Pascal ABC Ikram Паскаль, Turbo Pascal, PascalABC.NET 0 27.04.2010 13:44
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28
Перевод кода из Pascal в Object Pascal zemskov77 Общие вопросы Delphi 1 03.01.2009 09:37