ВУЗ:
Составители:
void main(void)
{
int mas[size];
int i,j;
printf("\n max=%d",max(mas,size));
printf("\n min=%d", min(mas,size));
}
int max(int data[],int s)
{
int maximum=data[0];
int i,j;
for (i=0;i<s;i++)
if(data[i]>maximum) maximum=data[i];
return(maximum);
}
int min(int data[],int s)
{
int minimum=data[0];
int i,j;
for (i=0;i<s;i++)
if(data[i]<=minimum) minimum=data[i];
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; {Вывод пустой строки}
Страницы
- « первая
- ‹ предыдущая
- …
- 19
- 20
- 21
- 22
- 23
- …
- следующая ›
- последняя »