PRIMAT.ORG
© 2008-2012
ПРИКЛАДНАЯ
МАТЕМАТИКА
Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.
                Вход



    НОВОЕ В БИБЛИОТЕКЕ
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Составление дифференциал...
● Составление дифференциал...
● Производные высших поряд...
● Производные высших поряд...
● Дифференцирование тригон...
● Дифференцирование алгебр...
● Дифференцирование алгебр...

    НОВЫЕ ФАЙЛЫ
● Sm графики функций (beta...
● Graf_builder
● Учимся считать
● Мобильный справочник по ...
● Уникальный калькулятор
● Программа для построения...
● «Новости ПриМата» для An...
● Schedule Builder Light 2...
● График
● Sm Калькулятор


    ЛУЧШИЕ ПУБЛИКАЦИИ
● Бухаете? Тогда я иду к в...
● Программирование под And...
● Считаем сумму ряда
● Программирование под And...
● Программирование под And...
● Новый вирус - три десятк...
● Получить кнопку ТИЦ и Pa...
● Матричный калькулятор (3...
● Небольшая забава для про...
● Пара интересных задач

    ЛУЧШИЕ МАТЕРИАЛЫ
● Высшая математика. Лекци...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Умножение матриц (Паскал...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Высшая математика. Лекци...
● Сортировка Хоара (быстра...
● Темы курсовых работ (укр...
● Теория графов плюс бонус...

    10 ЛУЧШИХ ФАЙЛОВ
● Эконометрика
● Таблица производных
● Шпаргалка по высшей мате...
● Гмурман. Теория вероятно...
● Математические формулы
● Таблица интегралов
● Таблицы неопределенных и...
● Программирование на язык...
● Программирование на Си (...
● Программирование на язык...

     
 
Карта программистов

Конструктор информеров



На сайте всего: 12
Посетителей: 12
Пользователей: 0
Создать сайт бесплатно
 БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ 

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » МАТЕРИАЛ К ЛЕКЦИЯМ [ ДОБАВИТЬ ]

Применение функции (Паскаль)
Пример. Функция гиперболический синус:

Function Sinh(X:Real):Real;
begin
 Sinh:=(Exp(X)-Exp(-X))/2;
end;

Пример. Сумма элементов нескольких массивов.

Program Count_Sum;
 const
 Nmax=200;
type
 Mas=array[1..Nmax] of real;
var
 A,B:Mas;
 Suma,Sumb:Real;
 i,n:integer;

Function SumMas (k:Integer;X:Mas):Real;
var
 i:integer;
 s:real; {локальная переменная-сумма}
begin
 s:=0;
 for i:=1 to k do s:=s+X[i];
 SumMas:=S;
end; {SumMas}

{Основная программа}
begin
 writeln(’Введите размер массивов’);
 readLn(n);
 writeln(’Введите первый массив’);
 for i:=1 to n do
   readln (A[i]);
 writeln(’Введите второй массив’);
 for i:=1 to n do readln (B[i]);
 Suma:=SumMas(n,A);
 Sumb:=SumMas(n,B);
 writeln(’Сумма чисел 1-го массива =’,Suma:8:2);
 writeln(’Сумма чисел 2-го массива =’,Sumb:8:2);
 writeLn(’Нажмите клавишу ENTER’);
 readln;
end.


Просмотров [ 1620 ]  ●  19.02.08  ●   Рейтинг  [ 0% ]


Комментариев: [ 0 ]

  Ваше Имя  



   





Украинская Баннерная Сеть