Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 23.12.2017, 16:40   #1
Umkaa
Новичок
 
Регистрация: 23.12.2017
Сообщений: 2
Репутация: 10
По умолчанию Функции и подпрограммы

Для однотипных ,повторяющихся в реализуемом алгоритме вычислительных операций (нахождения сумм,произведение, количество , экстремальных значений , операции над векторами матрицы ...и др) организовать подпрограммы .
№1.даны четыре вектора-четыре одномерных массива:
А=2,5 ; -0,3 ; 5,6 ; 9,4 ; -8,0 ;
B=0,1 ; 7,25 ; 1,12 ; -4,7 ; 3,14 ;
C=1,1 ; 2,87 ; -5,5 ; -3,3 ; 6,0 ; 7,25 ; -0,15 ; 9,1 ; 8,0 ; 4,5 ;
D=9,15; -1,8 ; 6,33 ; -7,7 ; 5,1 ; -0,5 ; -2,75 ; 4,8 ; 2,2 ; 9,9 ;

Задание. Сформировать новый массив из максимальных значений элементов массивов задания №1 и найти у него максимальный элемент.
Umkaa вне форума   Ответить с цитированием
Старый 23.12.2017, 16:47   #2
Alex11223
Модератор
Заслуженный модератор
 
Регистрация: 12.01.2011
Сообщений: 16,799
Репутация: 3300

icq: 512-765
skype: alexp.frl
По умолчанию

Тут не решатель задач.

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Alex11223 вне форума   Ответить с цитированием
Старый 23.12.2017, 17:03   #3
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,693
Репутация: 1522

skype: newerow1989
По умолчанию

Код:

function max(p:array of real):real;
var i:integer;
begin
   Result:=p[Low(p)];
   For i:=Low(p)+1 to High(p) do
      If Result<p[i] then
         Result:=p[i];
end;

const a:array[1..5] of real=(2.5,-0.3,5.6,9.4,-8);
      b:array[1..5] of real=(0.1,7.25,1.12,-4.7,3.14);
      c:array[1..10] of real=(1.1,2.87,-5.5,-3.3,6,7.25,-0.15,9.1,8,4.5);
      d:array[1..10] of real=(9.15,-1.8,6.33,-7.7,5.1,-0.5,-2.75,4.8,2.2,9.9);
var p:array[1..4] of real;
    i:integer;
begin
   p[1]:=Max(a);
   p[2]:=Max(b);
   p[3]:=Max(c);
   p[4]:=Max(d);
   For i:=1 to 4 do
      Write(p[i]:1:2,'  ');
   Writeln;
   Writeln(Max(p):1:2);
   Readln;
end.

__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 23.12.2017, 20:26   #4
digitalis
Участник клуба
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 928
Репутация: 365
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
Тут не решатель задач.
Ну это кто как понимает -намякиваю на пост #3
digitalis на форуме   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование подпрограммы-функции: Вычислить значение функции (Турбо паскаль) RealUnited Паскаль 1 05.12.2012 20:34
Подпрограммы функции по-мо-ги-те --Sashok-- Помощь студентам 2 07.11.2011 19:52
Подпрограммы-функции bwitcher Помощь студентам 3 03.12.2010 23:50
Подпрограммы-процедуры, подпрограммы-функции в Pascal rishikesh Помощь студентам 19 18.05.2010 23:05
Подпрограммы и функции! Jungler99 Помощь студентам 1 17.12.2009 02:42


10:25.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru