Задано целое число вывести на ступне​

#include <stdio.h> 
#include <math.h>
void minmax(int x1[],int y1[])
{
int i, j, imax, jmax, imin, jmin;
int len=sizeof(x1);
float max = 0;
float min = 1000;
float r;
for ( i = 0; i < len-1; i ++ ) 
      for ( j = i+1; j < len; j ++ )
      {
      r = sqrt((x1[i]-x1[j])*(x1[i]-x1[j])+(y1[i]-y1[j])*(y1[i]-y1[j]));
      if (r>max) { max = r; imax = i; jmax = j;}
      if (r<min) { min = r; imin = i; jmin = j;}
      }
   printf("max = %f точки: %d - %d\n", max, imax+1, jmax+1);
   printf("min = %f точки: %d - %d\n", min, imin+1, jmin+1);
}

int main() 
{ 
   int n=5;
   int x[n], y[n], i; 

   srand (time(NULL));  
   for ( i = 0; i < n; i ++ )  
   {
    x[i] = rand() % 20 -10;
    y[i] = rand() % 20 -10;
    printf ("%4d, %4d ", x[i], y[i]);
    printf("\n");
   }
    minmax(x,y);
    return 0;
}

Пример:
-10, 4
-5, 2
-9, -1
 7, 2
 7, -3
max = 17.117243 точки: 1 - 4
min = 5.000000 точки: 2 - 3

Логические операции применимы не только к логическому типу данных, но и к целочисленному типу данных. Для целых чисел операции выполняются поразрядно, отдельно с каждым битом.

Тип данных String в Pascal.

Со строковыми переменными можно производить различные операции. Операция сцепления строк позволяет соеденить 2 строки между собой.

Логические операции And, Or, Not, Xor в Pascal.

Над переменными логического типа можно производить логические операции. В языке программирования Pascal существуют следующие логические операции : And – логическое умножение, Or – логическое сложение, Not – логическое отрицание, Xor – ...

Циклы и массивы

Стандартные функции в Паскаль.

Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке Паскаль с встроенных (иногда говорят — стандартных) функций и процедур.

Программирование вычислительных процессов.

Решение задачи на ЭВМ — это сложный процесс, в ходе которого пользователю приходится выполнять целый ряд действий, прежде чем он получит интересующий его результат.

Табулирование функций.

Язык программирования Паскаль Категория: Лекции по Pascal.

Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец промежутка табулирования, при этом (Х0< Хn); n – число шагов разбиения промежутка [Х0, Xn]; F(X) – описание табулируемой функции.

При составлении алгоритма предполагается, что X – текущее значение аргумента; h – шаг изменения аргумента (иногда его называют шагом табуляции функции); i – текущий номер точки, в которой вычисляются функция (i = 0 .. n).

Количество интервалов n, шаг табуляции h и величины Х0, Хn связаны между собой фор-мулой:

tabulirovanie funkcii

Интерпретация переменных (т. е. их обозначение в математической постановке задачи, смысл и тип, обозначения в блок-схеме и программе) приведена в таблице имен.

tabulirovanie funkcii.

Пример 17. Табулировать функцию F(X) в N равноотстоящих точках, заданную на промежутке [Х0, Xn], где

tabulirovanie funkcii..PROGRAM PR17;

VAR

I, N: INTEGER;

X, Y: REAL;

H, X0, XN: REAL;

BEGIN

WRITELN('ВВЕДИТЕ X0, XN, N');

READLN(X0, XN, N);

H := (XN - X0)/N;

FOR I:=0 TO N

DO BEGIN

Y:= SIN(X+1)*EXP(2-X*X);

X := X0 + I * H;

WRITELN (X:4:1,",Y:9:6)

END

END.

tabulirovanie funkcii...

Теперь запишем решение этой же задачи, но с использованием цикла While...DO.

PROGRAM PR17_while;

VAR

N: INTEGER;

X, Y: REAL;

H, X0, XN: REAL;

BEGIN

WRITELN('ВВЕДИТЕ X0, XN, N');

READLN(X0, XN, N);

H := (XN - X0)/N;

X:=X0;

WHILE X<=XN

DO BEGIN

Y:= SIN(X+1)*EXP(2-X*X);

X := X + H;

WRITELN (X:4:1,",Y:9:6)

END

END.