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

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

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

Ответ
 
Опции темы
Старый 26.12.2008, 03:43   #1
Oleg36
 
Регистрация: 26.12.2008
Сообщений: 3
Репутация: 10
По умолчанию Процедуру и функцию помогите составить плиз

Составить программу содержащую
1) заполнение массива А элементами зачения которых расчитываются по формуле ai=(i+2)*(|i-5|), 1<i<15 из элементов массива
2) расчет элементов массива оформит в функции и процедуре
3) вывести на экран полученный массив и искомую велечину
4) Создать модуль содержащий процедуру и функцию
Oleg36 вне форума   Ответить с цитированием
Старый 26.12.2008, 10:04   #2
alex_fcsm
Новичок
Профессионал
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Адрес: Орел
Сообщений: 1,502
Репутация: 254

icq: 450490пять84
По умолчанию

Код:

const n=15;
var a:array[1..n] of integer;
    i,j:integer;

function Eval(x:integer):integer;
begin
Eval:=(x+2)*(abs(x-5));
end;

procedure Init(var x:array of integer);
var i:integer;
begin
for i:=0 to n-1 do
 x[i]:=Eval(i);
end;

begin
Init(a);
for i:=1 to n do
 write(a[i],' ');
end.

__________________
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума   Ответить с цитированием
Старый 26.12.2008, 12:27   #3
Oleg36
 
Регистрация: 26.12.2008
Сообщений: 3
Репутация: 10
По умолчанию

Спасибо большое!
Oleg36 вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать функцию плиз.Не получается Clockgen Microsoft Office Excel 2 14.12.2008 23:01
Помогите оптимизировать процедуру Cold Went Компоненты Delphi 4 29.04.2008 15:11
Составить процедуру, которая в задоном массиве С заменяет элементы Absent Помощь студентам 1 26.03.2008 00:11
Как создать процедуру и функцию? Absent Общие вопросы Delphi 1 18.11.2007 18:36


11:43.


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

RusProfile.ru


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