Pascal: Code: const n=5; m=7; var i, j, count: integer; x[1..n, 1..m] of integer; begin randomize(); for i := 1 to n do for j := 1 to m do x[i, j] := random(50)-15; writeln('Massiv:'); for i := 1 to n do begin for j := 1 to m do write(x[i, j]):4); writeln(); end; count := 0; for i := 1 to n do for j := 1 to m do if x[i, j] < 0 then inc(count); writeln('Koli4estvo otritsatelnih: ', count); end.
Кто может написать готовые программы по моим задачам, нужны исходники, желательно на Delphi ну можно и на Pascal. Дублирую задачи 1. Напишите программу для вычисления выражения (С!-В!)/N!, где С, В и N вводятся с клавиатуры. Для определения факториала используйте подпрограмму-процедуру. 2. Составьте алгоритм в виде блок-схемы для подсчёта количества отрицательных элементов в массиве Х(n,m). Массив заполните случайными числами в диапазоне от -15 до 34. Предусмотрите вывод матрицы на экран.
Code: double Fact(double n) { if(n == 0) return 1; else return Fact(n-1)*n; } int main(int argc, char* argv[]) { double C,B,N; printf("Enter C B N:"); scanf("%f %f %f",&C,&B,&N); printf("%f",(Fact(C) - Fact(B))/Fact(N)); return 0; } так понятнее???
Мне нужно что бы запускать под виндой. То есть язык программирования должен быть: Pascal, Delphi, C++ Желательно конечно Delphi