Информатика. Учебно-методическое пособие. Артемова С.В - 25 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

return(minimum);
}
Порядок выполнения работы
1 Получить вариант задания.
2 Составить программы вычисления значений арифметических выражений на языках СИ и Пас-
каль. Обозначить в текстах программ порядок выполнения арифметических операций.
3 Выполнить расчет по программе.
Пример программы на языке Паскаль
{ Составление простейших вычислительных }
{ программ циклической структуры }
{ с помощью функций }
uses crt; { Подключается библиотека ввода-вывода }
var m:Integer; { Наибольшее значение аргумента }
{ Функция для подсчета факториала }
Function Fact(x:Integer):Integer;
var k, i : Integer; { k-переменная накопления значения факториала,
i-счетчик цикла }
begin
k := 1; { Присвоение начального значения рекуррентной формуле
вычисления факториала }
for i := 1 to x do k:=k*i; { Вычисление факториала}
Fact := k; { Возврат вычисленного значения факториала }
end;{Function Fact}
{ В данной функции производится расчет произведения ряда множителей }
Function Raschet(m:Integer):Real;
var n, i : Integer; { n-номер члена ряда, i-счетчик цикла }
k : Real; { Переменная накопления произведения членов ряда }
begin
n := 1; { Присвоение начального значения аргументу члена ряда }
k := 1; { Присвоение начального значения рекуррентной формуле
произведения членов ряда }
repeat { Цикл с постусловием}
for i:=1 to n do
k := k * (Sqrt(Fact(n))+8*n)/(3*n-2); { Накопление произведения
членов ряда }
n := n+1; { Приращение аргумента }
until n > m; { Сравнение аргумента с верхней границей диапазона }
Raschet := k;
end;{Function Raschet}
{ Основной блок программы }
begin
ClrScr;{ Производится очистка экрана }
WriteLn('Выполнил Поляков Д.Г., КТФ, Р-11 ');
WriteLn; { Вывод пустой строки }
WriteLn('Введите количество множителей ');
ReadLn(m); { Вводится верхняя граница диапазона изменения аргумента }
WriteLn('Выводится результат вычисляемого выражения');

Страницы