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

Вернуться   Форум программистов > Delphi > Lazarus, Free Pascal, CodeTyphon
Регистрация

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

Ответ
 
Опции темы
Старый 28.08.2016, 09:06   #1
martofpain
Пользователь
 
Регистрация: 15.03.2016
Сообщений: 30
Репутация: 10
По умолчанию дан произвольный массив R размерностью

дан произвольный массив R размерностью n. найти сумму элементов массива R, а так же сумму корней элементов массива R. Исходные данные взять самостоятельно.
Проблема в том что надо использовать процедуру или функцию.
я написал но без них. А переделать не понимаю как
Помогите
вот код
Код:

var 
min, max, sum:REAL; 
skk : real; 
n,t,i, imin, imax:integer; 
a:array[1..20] of integer; 
begin 
write('Введите размерность массива: '); readln(n); 
for i:= 1 to N do 
begin 
a[i]:=random(20)-10; 
write(a[i]:4); 
end; 
writeln; 
min := a[1]; imin:=1; 
for i:= 1 to N do 
begin 
if a[i] < min then 
begin 
min := a[i]; 
imin := i; 
end; 
end; 
max := a[1]; imax:=1; 
for i:= 1 to N do 
begin 
if a[i] > max then 
begin 
max := a[i]; 
imax := i; 
end; 
end; 
if imin>=imax then 
begin 
t:=imin; 
imin:=imax; 
imax:=t; 
end; 
 
//отвечает за сумму
sum := 0; 
for i:= imin to imax do 
begin 
sum := sum + a[i]; 
end; 
 
//отвечает за сумму кв корней
for i:= imin to imax do 
begin 
skk:=skk+sqr(a[i]); 
end; 
 
writeln('Сумма квадратных корней элементов массива ',skk); 
writeln('Сумма ',sum); 
end.

martofpain вне форума   Ответить с цитированием
Старый 28.08.2016, 09:11   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 8,909
Репутация: 1402

icq: 216409213
По умолчанию

Цитата:
Проблема в том что надо использовать процедуру или функцию.
я написал но без них. А переделать не понимаю как
Напишите процедуру/функцию, в которую перенесите весь код суммирования, а в основном теле поставьте ее вызов.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Ответ



Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа в Паскале: Дан одномерный массив С размерностью N. Переставить местами первый и последний элемент массива, если... hars1 Паскаль 7 19.03.2014 17:30
Дан массив размерностью M*N. В каждой строке, где первый элемент больше всех остальных, увеличить все элементы на 10. (С) Kirillgr Помощь студентам 6 02.02.2014 22:25
Дан одномерный массив размерностью N Maksus-Mks Паскаль 3 17.12.2012 14:36
Дан вещественный массив размерностью m*n.... Александра С. Microsoft Office Word 2 17.03.2012 22:28
Дан двумерный массив размерностью n*m ValeriySergeevich Помощь студентам 4 16.01.2011 14:13




07:29.


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

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


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