Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

iffrac(a[i,j]) < 0.55 then

Begin

//установить индикатор

f:=true;

//вывести номер строки

writeln(i);

//и прервать цикл

break;

end;

 

//Если индикатор не установлен - чисел нет

if f=false

then writeln('Net podhodyashih chisel');

 

//Пауза

readkey;

end.

 

8. Ввести квадратную матрицу порядка n. Вычислить произведение элементов, расположенных на главной диагонали. Сформировать одномерный массив из элементов исходной матрицы, расположенных ниже главной диагонали и больших произведения ее элементов. Вывести полученный массив или сообщение об отсутствии таких элементов.

program t8;

uses crt;

Var

n,i,j: byte; //размерность матрицы, переменные цикла

a: array [1..100,1..100] of byte; //матрица

prod: integer; //произведение элементов

a2: array [1..100] of byte; //одномерный массив

a2_pos: byte; //длина одномерного массива

Begin

//Ввод значения

writeln('n=');

readln(n);

 

//Ввод матрицы

for i:=1 to n do

for j:=1 to n do

Begin

write('a[',i,',',j,']');

readln(a[i,j]);

end;

 

//Вычисление произведения элементов главной диагонали

prod:=1;

for i:=1 to n do

prod:=prod*a[i,i];

 

//Извлечение из матрицы чисел ниже главной диагонали и больших произведения главной диагонали

a2_pos:=0;

for i:=1 to n do

for j:=1 to n do

//Если условия выполняются -

If(i>j) and(a[i,j]>prod) then

Begin

//увеличить длину массива

inc(a2_pos);

//добавить в одномерный массив текущий элемент матрицы

a2[a2_pos]:=a[i,j];

end;

 

//Если длина одномерного массива ненулевая - вывесли его элементы

Ifa2_pos>0 then

for i:=1 to a2_pos do

write(a2[i],' ')

//Иначе - массив пуст

else writeln('Net podhodyashih elementov');

 

//Пауза

readkey;

end.

9. Дан одномерный целочисленный массив размерностью N. Сформировать новый массив из элементов исходного, расположенных до первого отрицательного элемента и большего первого элемента исходного массива. Если такие элементы отсутствуют, то выдать об этом сообщение.

program t9;

uses crt;

Var

n,i,a2_pos: byte; //размерность первого массива, переменная цикла, длина второго массива

a1,a2: array [1..100] of integer; //массивы

Begin

//Переопределить генератор случайных чисел

randomize;

 

//Ввод размерности первого массива

write('n=');

readln(n);

 

//Заполнение массива случайными числами (-20..80) вместе с выводом на экран

for i:=1 to n do

Begin

a1[i]:=random(100)-20;

write(a1[i],' ');

end;

writeln;

 

//Поиск элементов, больших первого элемента массива, до первого отрицательного числа. Добавление во второй массив.

a2_pos:=0;

for i:=1 to n do

Ifa1[i]>0 then

Begin

Ifa1[i]>a1[1] then

Begin

inc(a2_pos);

a2[a2_pos]:=a1[i];

end;

End

//Если элемент отрицательный - прекратить поиск

else break;

 

//Вывод сформированного массива

Ifa2_pos>0 then

for i:=1 to a2_pos do

write(a2[i],' ')

//Или сообщение о том, что элементов нет

else writeln('Net podhodyashih elementov');

 

//Пауза

readkey;

end.


Дата добавления: 2015-08-03; просмотров: 53 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Whilex>0 do| СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ ИНФОРМАЦИИ

mybiblioteka.su - 2015-2024 год. (0.008 сек.)