Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Роботы https://www.cyberforum.ru/ pascalabc/ thread1024443.html
Программа "Роботы" - Робот движется по полю, которое состоит из N клеток, выстроенных в ряд. На каждой из клеток находится кубик определенного цвета. До начала движения робот находится на первой...
Pascal ABC Сгенерировать матрицу смежности полного графа
1. Сгенерировать матрицу смежности полного графа (количество вершин n = 3) и найти минимальный гамильтонова цикла методом полного перебора. 2. Сгенерировать матрицу смежности произвольного графа...
Pascal ABC Вычислить значение выражения
вычислить y=\sqrt{a^2+b^2} , где a=\left\{\begin{matrix}\tan x, x>2 \\ x^2, 0\leq x\leq 2 \\ 4, -1\leq x<0 \\ \sqrt{sinx} \end{matrix}\right. заранее огромнейшее спасибо ...
Pascal ABC Решение уравнений методом простой итерации Метод простой итерации состоит в последовательном вычислениичисел по следующему алгоритму (для данного уравнения x-cos(x)=0) В качестве начального значения х предыдущее можно взять какое-то... https://www.cyberforum.ru/ pascalabc/ thread1024377.html
Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread1024373.html
Дано действительное число x. Вычислить ((x-2)*(x-4)*(x-8)...(x-64))/((x-1)*(x-3)*(x-7)...(x-63))
Pascal ABC Записать полином Лагранжа для функции
Записать многочлен Лагранжа функции f(x), заданной таблицей...
Найти решение выражения Pascal ABC
Написать программу на нахождение S S=1/x+2/x^2+3/x^3+...+6/x^6 Ребят помогите пожалуйста. Не шарю в программировании. Заранее спасибо.
Pascal ABC Вычислить значение заданной функции Вычислите значение заданной функции, если Х изменяется от Хнач до Хкон с шагом \Delta Х (в качестве исходных данных может использоваться другая переменная. Если при функции стоят знаки суммы (\Delta... https://www.cyberforum.ru/ pascalabc/ thread1024349.html
Pascal ABC Среднее арифметическое элементов массива https://www.cyberforum.ru/ pascalabc/ thread1024314.html
Дан массив целых чисел. Определите среднее арифметическое всех элементов заданного массива.
Pascal ABC Вычислить сумму Снизу файл с примером. Ребят помогите пожалуйста. Не шарю в программировании. Заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread1024302.html
Модератор
63667 / 47245 / 32557
Регистрация: 18.05.2008
Сообщений: 114,490
01.12.2013, 12:06 0

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру

01.12.2013, 12:06. Показов 599. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
type mtr=array[1..10, 1..10] of real;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
write('0<N<=10 N = ');
read(N);
until N in [1..10];
writeln('Исходная матрица:');
writeln;
for i := 1 to N do
 begin
  for j := 1 to N do
   begin
    a[i, j] := 20 * random - 10; //вещественное число с интервала -10..10
    write(a[i, j]:7:2);
   end;
  writeln;
 end;
end;
function Q_Up(a:mtr;n:integer):integer;
var i,j,k:integer;
begin
k:=0;
for i := 1 to N do
for j := 1 to N do
if (a[i, j] < 0)and(i < j) then inc(k);
Q_Up:=k
end;
function Q_Down(a:mtr;n:integer):integer;
var i,j,k:integer;
begin
k:=0;
for i := 1 to N do
for j := 1 to N do
if (a[i, j] < 0)and(i > j) then inc(k);
Q_Down:=k
end;
var a:mtr;
    n:integer;
begin
randomize;
Matrix(a,n);
writeln('Отрицательные элементы:');
writeln(' выше главной диагонали: ', Q_up(a,n));
writeln(' ниже главной диагонали: ', Q_down(a,n));
end.


Вернуться к обсуждению:
Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2013, 12:06
Готовые ответы и решения:

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Оформить с использованием функций и процедур. Нахождение основных значений оформить через...

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Код программы: const n=6; var a:array of byte; i,j,k,x:byte; begin for i:=1 to n do ...

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Дана квадратная вещественная матрица размерности n. Построить матрицу вектор (одномерный массив)...

Нахождение основных значений оформить через функцию RESHENIE(), ввод данных и вывод на печать через функцию MAIN()
а помогите теперь эту задачку #include &lt;iostream&gt; int main() { int last = 0, next = 1; ...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.