Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 21.12.2009, 20:32   #1 (permalink)
HaXaJI
Member
 
Регистрация: 23.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Програмирование с использование функций и процедур

В массивах А=(-5.2 ,8 ,1.3, -6) и В=(-4.7, -3, 2.6, 7, 13, -1)определить величины и номера максимальных элементов. Поиск максимального элемента оформить в виде под программы.
HaXaJI вне форума   Ответить с цитированием

Старый 21.12.2009, 20:32
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме часто создаются аналогичные темы

Назначение функций кнопок
Pascal. Програмирование итерационных процессов
График функций

Старый 21.12.2009, 20:53   #2 (permalink)
HaXaJI
Member
 
Регистрация: 23.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Паскаль
HaXaJI вне форума   Ответить с цитированием
Старый 21.12.2009, 21:25   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,829
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от HaXaJI Посмотреть сообщение
В массивах А=(-5.2 ,8 ,1.3, -6) и В=(-4.7, -3, 2.6, 7, 13, -1)определить величины и номера максимальных элементов. Поиск максимального элемента оформить в виде под программы.
Код:
CONST
 A:ARRAY[1..4] of REAL=(-5.2 ,8 ,1.3, -6);
 B:ARRAY[1..6] of REAL=(-4.7, -3, 2.6, 7, 13, -1);
TYPE
 AR=ARRAY[1..10] of REAL;
VAR
 C:AR;
 Max_el:REAL;
 Imax,i:INTEGER;

PROCEDURE Find_Max(Af:AR;Nf:INTEGER; var Maxf:REAL; var I_f:INTEGER);
 VAR i:INTEGER;
 BEGIN
  Maxf:=Af[1];
  FOR i:=2 TO Nf DO
    IF Af[i]>Maxf THEN
     BEGIN
       Maxf:=Af[i];
       I_f:=i;
     END;
 END;

BEGIN
 FOR i:=1 TO 4 DO
   C[i]:=A[i];
 Find_Max(C,4,Max_el,Imax);
 Writeln('Max. value in array1 has elem. N ',Imax,' equal to ',Max_el:4:1);
 FOR i:=1 TO 6 DO
   C[i]:=B[i];
 Find_Max(C,6,Max_el,Imax);
 Writeln('Max. value in array2 has elem. N ',Imax,' equal to ',Max_el:4:1);
 ReadLn;
END.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 21.12.2009, 21:28   #4 (permalink)
HaXaJI
Member
 
Регистрация: 23.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

СПАСИБО!!!!
HaXaJI вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:22.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.