Водномерном массиве найти произведение ненулевых элементов ( задать рандомно )

Program n1;
const n=10;
var a: array [1..n] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to n do a[i]:=random(10);
for i:=1 to n do if a[i]<>0 then p:=p*a[i];
writeln(p);
end.

Напишем программу "kvur.c" для вычисления корней квадратного уравнения общего вида: ax2 + bx +c = 0. 

   #include <stdio.h>
   #include <windows.h>
   #include <conio.h>
   #include <math.h>
   /*Вычисление корней квадратного уравнения*/
   main()
   {
   float a, b, c, d, x1, x2;
   char str[50];
   //Очистить экран
   textbackground(4);
   textcolor(15);
   clrscr();
   //ВВод коэффициентов a, b, c
   CharToOem("Введите коэффициенты a, b, c\n", str);
   printf(str);
   scanf("%f %f %f", &a, &b, &c);
   //Вычисление дискриминанта d
   d=b*b - 4*a*c;
   if (d<0) {
   CharToOem("Действительных решений нет", str);
   printf(str);
   }
   else {
   // Вычисление корней уравнения x1 и x2
   x1=(-b - sqrt(d))/(2*a);
   x2=(-b + sqrt(d))/(2*a);
   // Вывод корней уравнения x1 и x2
   CharToOem("\n x1=%f x2=%f", str);
   printf(str, x1, x2);
   };
   // Конец программы
   CharToOem("\nДля выхода нажмите любую клавишу", str);
   printf(str);
   getch();
   }

название : тип text или varchar (text может хранить не более 65 535 символов, varchar может хранить не более 255 символов, поскольку в русском языке нет слов длиной больше 255 символов то тут предпочтительнее varchar)

Длины достаточно 80 символов 

материк: так же типа varchar здесь достаточно длины 50 символов (50 взято для запаса, если вдруг решат изменить это поле скажем на страну в которой протекает река)

длина: здесь можно использовать два типа или float если мы хотим получить длину в километрах с точкой, т.е чтобы можно было записать 655,78 км, или UNSIGNED INT (беззнаковое целое число, беззнаковое потому что длина реки не может быть отрицательной), если нам нужно хранить только целую часть длины в километрах

максимальная глубина: десь так же или float или unsigned int 

куда впадает: здесь тип varchar, длиной в 80 символовю

наличие водохранилищ: тип bool (1 - есть водохранилища, 0 - нет водохранилищ)

 

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

- название не подходит потому что  например по Калимантану протекает две реки с одинаковым названием — Капуас, значит название реки не может быть первичным ключом.

- материк, тут понятно не может, потому что есть много рек текущих по одному материку

- длина в километрах: теоретически может выступать как первичный ключ, но нельзя исключить что в мире есть 2 реки с одинаковой длиной.

- максимальная глубина: очевидно что нет никаких гарантий что в мире нет рек с одинаковой максимальной глубиной. 

- куда впадает: в одно и то же место может впадать множество рек, это тоже не подходит под первичный ключ.

-наличие водохранилищи тоже не может выступать как первичный ключ, поскольку уже для 3х рек он не будет уникальным (ведь он принимает только 2 значение TRUE или FALSE)

 

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

 

Поэтому для первичного ключа надо ввести еще одно поле ID, куда записывать число типа UNSIGNED INT, причем применяя атрибут AUTOINCREMENT, т.е для каждой строки увеличивая ее значение на 1.

 

Тогда можно будет различить две реки даже если у них совпадает 1 или более полей.

 

Чтобы избежать повторного занесения одних и тех же данных можно сделать обработку вносимой информации, перед заполнение в базу данных.

 

В принципе это делается достаточно просто с запроса и некоторого обработчика входных данных.