|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.10.2008, 14:54 | #1 |
Пользователь
Регистрация: 24.02.2008
Сообщений: 17
|
помогите переделать прогу
программа написана с помощью процедуры а надо её переделать с помощью функций, заранее спасибо
Код: Program LUKen; const n=5; m=6; var i,k1,k2,k3: integer; l1,l2,l3: integer; a: array [1..n] of integer; b: array [1..m] of integer; c: array [1..10] of integer; Procedure min (t:integer; d: array of integer; var r: integer); var j: integer; begin r:=d[0]; For j:=1 to t do if d[j] < r then r:=d[j]; end; begin Writeln (‘Введите элементы массива a:'); For k1:=1 to n do Readln (a[k1]); Writeln (‘Введите элементы массива b:'); For k2:=1 to m do Readln (b[k2]); Writeln ('Введите элементы массива c:'); For k3:=1 to 10 do Readln (c[k3]); min (n, a, l1); min (m, b, l2); min (10, c, l3); If l1 > 10 then i:=l2+l3 else i:=1+l3*l3; Writeln ('L1=',l1:2,' ','L2=',l2:2,' ','L3=',l3:2,' ','i=',i:5); end. |
08.10.2008, 19:48 | #2 |
Форумчанин
Регистрация: 22.11.2007
Сообщений: 224
|
Код:
|
08.10.2008, 19:52 | #3 | ||
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
Это весьма просто, вот код:
Код:
ЗЗЫ NikLik Ваш код на Паскале не откомпилируется! Во-первых, Паскаль не знает переменной Цитата:
Цитата:
Последний раз редактировалось -=<[Evklidd]>=-; 08.10.2008 в 20:01. |
||
08.10.2008, 20:20 | #4 |
Форумчанин
Регистрация: 22.11.2007
Сообщений: 224
|
Извиняюсь....
Привык, знаете ли.... |
17.11.2008, 23:26 | #5 |
Пользователь
Регистрация: 24.02.2008
Сообщений: 17
|
Спасибо огромное, сори что не написал сразу давно не был на форуме(уежал). Спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Немогу переделать(переписать) прогу!!!! | metamfetamin | Помощь студентам | 0 | 25.11.2007 14:27 |
Помогите переделать | Stanislav | Общие вопросы Delphi | 2 | 24.10.2007 16:14 |
Помогите переделать БД | Antowka | БД в Delphi | 17 | 15.06.2007 21:35 |