сервис вопросов и ответовСоставить функцию определения факта нахождения в одномерной матрице хоть одного нуля, состоящей из целых чисел и количеством элементов k. применить данную
10-11 класс|
|
функцию для нахождения номеров строк, произвольной матрицы, не содержащей нулей. Составить на языке паскаль.
Dianatoichkina
08 сент. 2014 г., 10:48:13 (9 лет назад)
Pomysov2005
08 сент. 2014 г., 12:41:39 (9 лет назад)
function isNull(var x: integer): boolean;
begin
if x = 0 then
isNull := true
else
isNull := false;
end;
const
k = 30;
var
a, v: array[1..k] of integer;
i, j: integer;
begin
j := 0;
randomize();
for i := 1 to k do
begin
a[i] := random(21) - 10;
writeln(a[i]:4);
if not(isNull(a[i])) then
begin
j := j + 1;
v[j] := i;
end;
end;
write('Номера строк, не содержащих нулей: ');
for i := 1 to j do
write(v[i], ', ');
end.
Ответить
Другие вопросы из категории
На языке паскаль написать программу вычисления по формуле: G=(2sin(x-2pi/3))/(1/2+cos^2y); H=1+(z^5/3+(z^5/5)), при исходных данных: x=2
,367, y=-1,057, z=3,025
Читайте также
Написать программу на языке Паскаль. Вводятся размер и элементы одномерного массива A(N), состоящего из целых чисел. Подсчитать сумму простых
чисел, оканчивающихся на 3. Результат вывести на экран.
В двумерной матрице A(N, M), состоящей из произвольных чисел, определить номера столбцов, в которых среднее арифметическое его элементов меньше чем
среднее арифметическое элементов массива.
1) Составить функцию, которая определяет наибольшее из трех чисел и привести пример ее использования. Пример: Введите три числа:
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.
помогите решить задачки по Паскалю "4": Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Вы находитесь на странице вопроса "Составить функцию определения факта нахождения в одномерной матрице хоть одного нуля, состоящей из целых чисел и количеством элементов k. применить данную", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.