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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2012, 18:20   #1
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию Тестирование и отладка программного продукта. исправить ошибки, чтобы программа работала.

1. Разработана программа определения максимального элемента массива и его номера

Program Primer1;
Const
N=10;
Type
Mas=array [1..n] of integer;
Var
I,nmax: integer;
B: mas;

Procedure Maxim (a:mas: var nm: integer);
Var
Max: integer;
Begin
Max:=a[1];
Nm:=1;
For i:=1 to n
If max<a[i] then
max:=a[i];
nm:=i;
End;
Begin
For i:=1 to n
Readln(B[i]);
Maxim(b,nmax);
Write(nmax);
End.
Proskurina вне форума Ответить с цитированием
Старый 27.05.2012, 18:22   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
Procedure Maxim (a:mas; var nm: integer);
Var
Max: integer;
Begin
Nm:=1;
For i:=1 to n
If a[nm]<a[i] then nm:=i;
End;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать, чтобы программа работала сразу через 20 сайтов? tima777 Работа с сетью в Delphi 4 13.08.2011 20:48
!!! Можно ли сделать так,чтобы программа в Delphi работала с самим компьютером?!!! kotaina Общие вопросы Delphi 19 07.04.2011 13:40
Как сделать,чтобы программа работала при низком разрешение монитора? RomanDemidov Общие вопросы Delphi 5 13.12.2010 19:10
Как чтобы программа работала на другом компьютере Olaf C++ Builder 2 08.04.2010 12:09